1 files changed, 16 insertions, 0 deletions
diff --git a/3816/CH8/EX8.7.a/8_7a.sce b/3816/CH8/EX8.7.a/8_7a.sce
new file mode 100644
index 000000000..fce834af5
--- /dev/null
+++ b/3816/CH8/EX8.7.a/8_7a.sce
@@ -0,0 +1,16 @@
+clc;
+clear;
+V=420;
+f=50;
+P=6;
+Z=1+(2*%i);//Both stator and rotor referred leakage impedance
+J=3;//Total inertia of the drive
+S1=1.96;
+S2=1;
+r1=1;
+r2=1;
+x1=4;
+ti=((((r1^2)+(x1^2))/(2*r2))*((S2^2)-(S1^2)))+(2*r1*(S2-S1))+(r2*log(S2/S1));
+Ws=2*%pi*(1000/60);
+t=J*(105^2)*(-ti/(V^2));
+disp(Ws,t,'The total time and speed is:')