diff options
Diffstat (limited to '1430/CH6/EX6.3/exa6_3.sce')
| -rw-r--r-- | 1430/CH6/EX6.3/exa6_3.sce | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/1430/CH6/EX6.3/exa6_3.sce b/1430/CH6/EX6.3/exa6_3.sce new file mode 100644 index 000000000..46ccd2994 --- /dev/null +++ b/1430/CH6/EX6.3/exa6_3.sce @@ -0,0 +1,20 @@ +// Example 6.3
+// Parallel Network with an AC Voltage Source
+v_m=30; // Magnitude of voltage phasor
+omega=4000; // radian frequency
+phase_v=20; // Phase angle in degree
+Z_r= 5; // Impedance of Resistance
+C= 25*10^-6; // Capacitance
+Z_c= 1/(%i*omega*C);// Impedance of Capacitance
+i_r=v_m/Z_r; // Ohm's Law in Phasor form
+i_c=v_m/abs(Z_c); // Ohm's Law in Phasor form
+phase_r= phase_v;
+phase_c=phase_v-(-90);
+x_r=i_r*cos((%pi/180)*phase_r);
+y_r=i_r*sin((%pi/180)*phase_r);
+I_r=complex(x_r,y_r);
+x_c=i_c*cos((%pi/180)*phase_c);
+y_c=i_c*sin((%pi/180)*phase_c);
+I_c=complex(x_c,y_c);
+I=I_r+I_c;
+disp(I,"Resultant Steady-state input current in rectangular form(Amps)=")
|