1 files changed, 29 insertions, 0 deletions
diff --git a/2123/CH5/EX5.33/Exa_5_33.sce b/2123/CH5/EX5.33/Exa_5_33.sce
new file mode 100755
index 000000000..e297f4d3c
--- /dev/null
+++ b/2123/CH5/EX5.33/Exa_5_33.sce
@@ -0,0 +1,29 @@
+//Example No. 5.33
+clc;
+clear;
+close;
+format('v',9);
+
+//Given Data : 
+P=6;//poles
+V=220;//V
+f=50;//Hz
+Ra=0.2;//ohm
+Rf=150;//ohm
+Z=150;//no. of conductors
+fi=0.02027;//Wb(flux)
+alfa=0;//degree
+alfa_a=45;//degree
+Ia=25;//A
+A=2;//
+T=Z*P*fi*Ia/(2*%pi*A);//N-m
+disp(T,"Totque in N-m : ");
+Vm=V*sqrt(2);//V
+Vdc=2*Vm/%pi*cosd(alfa_a);//V
+Eb=Vdc-Ia*Ra;//V
+N=Eb*60*A/(Z*P*fi);//rpm
+disp(N,"Speed in rpm : ");
+Pout=Vdc*Ia;//W
+pf=Pout/V/Ia;//lagging
+disp(pf,'Lagging power factor : ' );
+