1 files changed, 24 insertions, 0 deletions
diff --git a/1892/CH1/EX1.25/Example1_25.sce b/1892/CH1/EX1.25/Example1_25.sce
new file mode 100755
index 000000000..8e6998b11
--- /dev/null
+++ b/1892/CH1/EX1.25/Example1_25.sce
@@ -0,0 +1,24 @@
+// Example 1.25
+
+clear; clc; close;
+format('v',7);
+// Given data
+V=440;//in volt
+f=50;//in Hz
+P=4;//no. of poles
+X1=5.2;//in ohm
+R2dash=1.2;//in ohm
+X2dash=4.5;//in ohm
+
+//Calculations
+disp("Magnetic components not present. So, Rth=R1 & Xth=X1")
+//Rth=R1;//in ohm
+//Xth=X1;//in ohm
+//Formula : R2dash/Sm=sqrt(X1^2+X2dash^2)
+Sm=R2dash/(X1+X2dash);//Maximum Slip
+I1=V/sqrt(3)/sqrt((R2dash/Sm)^2+(X1+X2dash)^2);//in Ampere
+I2dash=I1;//in Ampere(Neglecting I0)
+Ns=120*f/P;//in rpm
+Tmax=3*I2dash^2*R2dash/Sm/2/%pi/Ns*60;//in N-m
+disp(Tmax,"Maximum Torque in N-m ; ");
+disp(Sm*100,"Maximum Slip in % : ");