1 files changed, 19 insertions, 0 deletions
diff --git a/2372/CH2/EX2.5/ex5.sce b/2372/CH2/EX2.5/ex5.sce
new file mode 100644
index 000000000..f1255f9a9
--- /dev/null
+++ b/2372/CH2/EX2.5/ex5.sce
@@ -0,0 +1,19 @@
+clc;
+clear;
+ang1=-5*%pi/180;
+v1=complex(120*cos(ang1),120*sin(ang1));
+v2=100;
+z=complex(1,7);//line impedance
+i12=(v1-v2)/z;
+i21=(v2-v1)/z;
+s12=v1*i12';
+s21=v2*i21';
+sl=s12+s21;//line loss
+mprintf("since p1 is negative and p2 is positive,source1 receives %3.1f W and source 2 generates %4.1f W and the real power loss in the line is %2.1f W. the real power loss in the line can be checked by:\n",abs(real(s12)),real(s21),real(sl));
+r=real(z);//resistance of line
+x=imag(z);//impedance of line
+pl=r*abs(i12)*abs(i12);
+mprintf("verifying active power loss in line,pl=%2.1f W\n",pl);
+mprintf("also q1 is positive and q2 is negative, source1 delivers %4.1f var and source2 receives %4.1f var, and reactive power loss in line is %3.1f var. the reactive power loss in the line can be checked by :\n",imag(s12),abs(imag(s21)),imag(sl));
+ql=x*abs(i12)*abs(i12);
+mprintf("verifying reactive power loss in line, ql=%3.1f var\n",ql);