diff options
Diffstat (limited to '1430/CH7/EX7.8/exa7_8.sce')
| -rw-r--r-- | 1430/CH7/EX7.8/exa7_8.sce | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/1430/CH7/EX7.8/exa7_8.sce b/1430/CH7/EX7.8/exa7_8.sce new file mode 100644 index 000000000..64a153be1 --- /dev/null +++ b/1430/CH7/EX7.8/exa7_8.sce @@ -0,0 +1,18 @@ +// Example 7.8
+// Three-Phase Circuit with Line Impedance
+V_ab_m=45*10^3; // Volts
+Z_l=complex(0.5,3); // Each transmission line impedance
+Z=complex(4.5,9); // Load impedance
+V_l_m=V_ab_m // Line voltage
+V_phi=V_ab_m/sqrt(3); // Phase voltage
+Z_Y=Z_l+Z; // total phase impedance
+I_l=V_phi/(abs(Z_Y));
+P= 3*real(Z_Y)*(I_l)^2; // Real power generated by source
+Q= 3*imag(Z_Y)*(I_l)^2; // Reactive power generated by source
+P_L=3*real(Z)*I_l^2; // Real power that reaches the load
+Eff=P_L/P;
+disp(I_l,"RMS line current(in Amps)=")
+disp(P,"Real power generated by source(in Watt)= ")
+disp(Q,"Reactive power generated by source(in VAr)=")
+disp(P_L,"Real power that reaches the load(in Watt)=")
+disp(Eff,"Power transfer Efficiency=")
|