blob: 2d3da2eff2e9932c1964b4b84574d071ddbb1f69 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
//Example 14
disp("CHAPTER 2");
disp("EXAMPLE 14");
//VARIABLE INITIALIZATION
v=100; //amplitude of rms value of voltage in Volts
I=20; //amplitude of rms value of current in Amperes
//SOLUTION
//solution(i)
w=314; //angular frequency in radian/sec
f=w/(2*%pi); //as w=2*(%pi)*f
f=ceil(f);
disp(sprintf("(i) The frequency is %d Hz",f));
//solution (ii)
E=v/sqrt(2);
angle_E=-45; //in degrees
I=I/sqrt(2);
angle_I=-90; //in degrees
z=E/I;
angle=angle_E-angle_I;
disp(sprintf("(ii) The impedance is %d Ω, %d degrees",z,angle));
function [x,y]=pol2rect(mag,angle1);
x=mag*cos(angle1*(%pi/180)); //to convert the angle from degrees to radian
y=mag*sin(angle1*(%pi/180));
endfunction;
[r,x]=pol2rect(z,angle);
L=x/(2*%pi*f);
disp(sprintf(" The inductance is %f H",L));
//END
|
