1 files changed, 34 insertions, 0 deletions
diff --git a/2672/CH3/EX3.11/Ex3_11.sce b/2672/CH3/EX3.11/Ex3_11.sce
new file mode 100755
index 000000000..dd52d9853
--- /dev/null
+++ b/2672/CH3/EX3.11/Ex3_11.sce
@@ -0,0 +1,34 @@
+//Example 3_11
+clc;
+clear;
+close;
+format('v',6);
+//given data :
+V=100;//V
+f=50;//Hz
+R1=8;//ohm
+X1=6;//ohm
+R2=6;//ohm
+X2=-8;//ohm
+Z1=R1+%i*X1;//ohm
+Z2=R2+%i*X2;//ohm
+I1=V/Z1;//A
+I1mag=abs(I1);//A
+I1ang=atand(imag(I1),real(I1));//degree
+disp(I1ang,I1mag,"Branch Current I1, magnitude(A) & angle(degree) are: ");
+I2=V/Z2;//A
+I2mag=abs(I2);//A
+I2ang=atand(imag(I2),real(I2));//degree
+disp(I2ang,I2mag,"Branch Current I2, magnitude(A) & angle(degree) are: ");
+I=I1+I2;//A
+Imag=abs(I);//A
+Iang=atand(imag(I),real(I));//degree
+disp(Iang,Imag,"Total Current I, magnitude(A) & angle(degree) are: ");
+fi=atand(imag(I),real(I));//degree
+pf=cosd(fi);//Power Factor lagging
+disp(pf,"Total Power Factor(lagging)");
+P=V*Imag*cosd(fi);//W
+disp(P,"Active Power(W)");
+S=V*Imag*sind(fi);//VAR
+disp(S,"Reactive Power(VAR)");
+//Answer is not accurate in the book.