1 files changed, 52 insertions, 0 deletions
diff --git a/2123/CH5/EX5.17/Exa_5_17.sce b/2123/CH5/EX5.17/Exa_5_17.sce
new file mode 100755
index 000000000..19dc43bd9
--- /dev/null
+++ b/2123/CH5/EX5.17/Exa_5_17.sce
@@ -0,0 +1,52 @@
+//Example No. 5.17
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data : 
+V=220;//V
+f=50;//Hz
+L=0.012;//H
+Ra=0.72;//ohm
+K=2;//V/rad/s
+T=60;//N-m
+alfa=90;//degree
+Va=3*sqrt(3)*V*sqrt(2)/2/%pi*(1+cosd(alfa));//V
+Ia=5;//A
+disp(Ia,"Armature Current in A : ");
+T1=Ia*K;//N-m
+disp(T1,"Torque in N-m : ");
+Eb=Va-Ia*Ra;//V
+omega=Eb/K;//rad/s
+N1=omega*60/2/%pi;//rpm
+disp(N1,"Speed in rpm : ");
+disp("");
+Ia=10;//A
+disp(Ia,"Armature Current in A : ");
+T2=Ia*K;//N-m
+disp(T2,"Torque in N-m : ");
+Eb=Va-Ia*Ra;//V
+omega=Eb/K;//rad/s
+N2=omega*60/2/%pi;//rpm
+disp(N2,"Speed in rpm : ");
+Ia=20;//A
+disp(Ia,"Armature Current in A : ");
+T3=Ia*K;//N-m
+disp(T3,"Torque in N-m : ");
+Eb=Va-Ia*Ra;//V
+omega=Eb/K;//rad/s
+N3=omega*60/2/%pi;//rpm
+disp(N3,"Speed in rpm : ");
+Ia=30;//A
+disp(Ia,"Armature Current in A : ");
+T4=Ia*K;//N-m
+disp(T4,"Torque in N-m : ");
+Eb=Va-Ia*Ra;//V
+omega=Eb/K;//rad/s
+N4=omega*60/2/%pi;//rpm
+disp(N4,"Speed in rpm : ");
+plot([T1 T2 T3 T4],[N1 N2 N3 N4]);
+title('Speed Torque Characteristics');
+xlabel('Torque(N-m)');
+ylabel('speed(RPM)');