1 files changed, 33 insertions, 0 deletions
diff --git a/3784/CH4/EX4.10/Ex4_10.sce b/3784/CH4/EX4.10/Ex4_10.sce
new file mode 100644
index 000000000..c4631e041
--- /dev/null
+++ b/3784/CH4/EX4.10/Ex4_10.sce
@@ -0,0 +1,33 @@
+clc
+//Variable Initialisation
+V=230//Input Voltage of motor in volts
+f=300//Chopper Frequency
+Tl=40//Load Torque in N-m
+N1=900//Rated Speed of Motor in rpm
+Ra=0//Armature resistance in ohm
+La=12e-3//Inductance in Henry
+k=2//Motor Constant
+//Solution
+Ia=Tl/k
+W=2*%pi*N1/60
+Eb=k*W
+d=(Eb+(Ia*Ra))/V
+t1=1/f
+ton=d*t1
+toff=(1-d)*t1
+Z1=(V-Eb)/La
+Z2=-Eb/La
+A=Z1*ton //A=Imax-Imin
+B=2*Ia //B=Imax+Imin
+Imax=(A+B)/2
+Imin=(B-A)/2
+
+t=poly(0,'t');
+x=Imin+Z1*t
+y=Imax+Z2*t
+
+disp (Imax ,"Maximum Armature Current in Amp is")
+disp (Imin ,"Minimum Armature Current in Amp is")
+disp (A ,"Armature Current Excursion in Amp is")
+disp (x ,"Armature Current During Ton in Amp is")
+disp (y ,"Armature Current During Toff in Amp is")