1 files changed, 41 insertions, 0 deletions
diff --git a/3784/CH4/EX4.1/Ex4_1.sce b/3784/CH4/EX4.1/Ex4_1.sce
new file mode 100644
index 000000000..d2d4226aa
--- /dev/null
+++ b/3784/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,41 @@
+clc
+//Variable Initialisation
+V=230//Input Voltage of motor in volts
+Vdc=240//Dc equivalent input to motor in Volts
+Po=746//Power rating of DC motor in Watt
+N=500//Rated Speed of Motor in rpm
+Ia=4.1//Armature Current in Ampere
+Ra=7.56//Armature resistance in ohm
+La=55e-3//Armature inductance in Henry
+f=500//Chopper Frequency
+Tmin=5//minimum load Torque in N-m
+//Solution
+T=(1/f)//Period of Chopper
+w=2*%pi*N*(1/60)
+Eb=V-(Ia*Ra)//Back emf in Volts
+k=Eb*(1/w)
+Pin=V*Ia//Armature Power Input
+L=Pin-Po-(Ia*Ia*Ra)//Rotational Loss
+Ta=L/w
+Ta1=Tmin+Ta//Average internal Torque in N-m
+Ia1=Ta1/k
+E0=Eb+(Ia1*Ra)
+ton=(E0/Vdc)*T
+ton11=ton*1000//ton in microseconds
+ta=(La/Ra)
+A=log(((Eb/Vdc)*(%e^(T/ta)-1))+1)
+ton1=A*ta
+ton12=ton1*1000//ton in microseconds
+E01=(ton1/T)*Vdc
+Ia2=(E01-Eb)/Ra
+Ta2=k*Ia2
+Tc=Ta2-Ta
+printf('\n\n ton for minimum load torque of 500rpm=%0.1f 10^(-3)sec\n\n',ton11)
+printf('\n\n ton for current is continuous at 500rpm=%0.1f 10^(-3)sec\n\n',ton12)
+if ton>ton1 then
+    disp("Current (Ia) is continuous") 
+else
+    disp("Current (Ia) is not continuous")
+end
+printf('\n\n The coupling Torque for minimum value of ton obtain=%0.1f N-m\n\n',Tc)
+