summaryrefslogtreecommitdiff
path: root/1445/CH2/EX2.8/ch2_ex_8.sce
blob: 042588a04215bb46f0c291c6c6468f5c4cb8e6af (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
//Example 8

disp("CHAPTER 2");
disp("EXAMPLE 8");

//VARIABLE INITIALIZATION
v=300/sqrt(2);                   //in Volts
angle_v=110;                     //in degrees
I=15/sqrt(2);                    //in Amperes
angle_I=80;                      //in degrees

//SOLUTION
Z=v/I;
angle_Z=angle_v-angle_I;
disp(sprintf("The circuit impedance is %d Ω",Z));
disp(sprintf("The phase angle is %d degrees",angle_Z));
p_av=v*I*cos(angle_Z*(%pi/180));  //to convert angle_z from degrees to radians  
disp(sprintf("The average power drawn is %f W",p_av));

//END