1 files changed, 28 insertions, 0 deletions
diff --git a/1892/CH1/EX1.81/Example1_81.sce b/1892/CH1/EX1.81/Example1_81.sce
new file mode 100755
index 000000000..7fcb2eba3
--- /dev/null
+++ b/1892/CH1/EX1.81/Example1_81.sce
@@ -0,0 +1,28 @@
+// Example  1.81
+
+clc;clear;close;
+
+// Given data
+format('v',6);
+P=4;//no. of poles
+f=50;//in Hz
+VL=200;//in volt
+R2=0.1;//in ohm
+X2=0.9;//in ohm
+Te2ByTe1=0.67;//ratio of rotor to stator turns
+S=4;//in %
+
+//calculations
+S=S/100;//slip
+Ns=120*f/P;//in rpm
+E1=VL/sqrt(3);//in volt
+E2=E1*Te2ByTe1;//in volt
+Td=3*S*E2^2*R2/2/%pi/(Ns/60)/(R2^2+(S*X2)^2);//in N-m
+disp(Td,"(a) Total torque at 4% slip in N-m : ");
+Tmax=3*E2^2/2/%pi/(Ns/60)/(2*X2);//in N-m
+disp(Tmax,"(b) Total torque at 4% slip in N-m : ");
+Sm=R2/X2;//slip at max torque
+Nm=(1-Sm)*Ns;//speed at Tmax in rpm
+disp(Nm,"(c) Speed at maximum torque in rpm : ");
+Pmd_max=2*%pi*Nm/60*Tmax;//in N-m
+disp(Pmd_max,"(d) Maximum mechanical power in N-m : ");