blob: 3d34c9759e4cf648bfea599e4b0552435b409246 (
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
|
//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
//Example 10
disp("CHAPTER 2");
disp("EXAMPLE 10");
//VARIABLE INITIALIZATION
v=230; //in Volts
z1=3+(%i*4); //impedance in rectangular form in Ohms
z2=6+(%i*8); //impedance in rectangular form in Ohms
//SOLUTION
function [z,angle]=rect2pol(x,y);
z=sqrt((x^2)+(y^2)); //z is impedance & the resultant of x and y
angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees
endfunction;
[z1,angle1]=rect2pol(3,4);
[z2,angle2]=rect2pol(6,8);
z=(z1*z2)/(z1+z2);
I=v/z;
angle=-angle1; //as angle1=angle2
p=v*I*cos(angle*%pi/180); //to convert the angle from degrees to radians
disp(sprintf("The power drawn from the source is %f kW",p/1000));
//END
|
