1 files changed, 35 insertions, 0 deletions
diff --git a/2672/CH3/EX3.25/Ex3_25.sce b/2672/CH3/EX3.25/Ex3_25.sce
new file mode 100755
index 000000000..ca1738c58
--- /dev/null
+++ b/2672/CH3/EX3.25/Ex3_25.sce
@@ -0,0 +1,35 @@
+//Example 3_25
+clc;
+clear;
+close;
+format('v',6);
+//given data :
+R1=12;//ohm
+L=50;//mH
+R2=50;//ohm
+C=50;//micro F
+V=200*expm(%i*30*%pi/180);//V
+f=50;//Hz
+XL=2*%pi*f*L/1000;//ohm
+XC=1/2/%pi/f/(C*10^-6);//ohm
+Z1=R1+%i*XL;//ohm
+Z2=R2+%i*XC;//ohm
+I1=V/Z1;//A
+I2=V/Z2;//A
+I=I1+I2;//A
+Imag=abs(I);//A
+Iang=atand(imag(I)/real(I));//degree
+disp(Iang,Imag,"Total current drawn, magnitude(A) & Angle(degree) are");
+pf=cosd(Iang);//Power Factor(lagging)
+fi=acosd(pf);//degree
+disp(pf,"Power Factor(lagging)");
+P=abs(V)*Imag*pf;//W
+P=P/1000;//kW
+disp(P,"Power Consumed(kW)");
+S=abs(V)*Imag*sind(fi);//VARs
+S=S/1000;//kVARs
+disp(S,"Reactive Power (kVARs)");
+Pa=abs(V)*Imag/1000;//kVA
+disp(Pa,"Apparent Power(kVA)");
+//Answer is not accurate in the book.
+