4 files changed, 91 insertions, 87 deletions
diff --git a/503/CH5/EX5.11/ch5_11.sci b/503/CH5/EX5.11/ch5_11.sci
index 5042cb8f8..6b7603dea 100755
--- a/503/CH5/EX5.11/ch5_11.sci
+++ b/503/CH5/EX5.11/ch5_11.sci
@@ -1,20 +1,21 @@
-// to find fundamental mmf wave,speed and its peak value
-
-clc;
-p=4;
-S=60;
-g=180*p/S;
-ph=3;
-m=S/(p*ph);    //slots/pole/phase
-K_b=sind(m*g/2)/(m*sind(g/2));    //breadth factor
-I_L=48;
-I_P=I_L/sqrt(3);
-I_Pmax=I_P*sqrt(2);
-c=24;        //conductors
-N_ph=S*c/(ph*2);      //turns/phase
-F_m=(4/%pi)*K_b*(N_ph/p)*I_Pmax;
-disp(F_m,'F_m(AT/pole)');
-F_peak=(3/2)*F_m;
-disp(F_peak,'F_peak(AT/pole)');
-n=120*f/P;
-disp(n,'speed(rpm)');
+// to find fundamental mmf wave,speed and its peak value
+
+clc;
+p=4;
+f = 50;
+S=60;
+g=180*p/S;
+ph=3;
+m=S/(p*ph);    //slots/pole/phase
+K_b=sind(m*g/2)/(m*sind(g/2));    //breadth factor
+I_L=48;
+I_P=I_L/sqrt(3);
+I_Pmax=I_P*sqrt(2);
+c=24;        //conductors
+N_ph=S*c/(ph*2);      //turns/phase
+F_m=(4/%pi)*K_b*(N_ph/p)*I_Pmax;
+disp(F_m,'F_m(AT/pole)');
+F_peak=(3/2)*F_m;
+disp(F_peak,'F_peak(AT/pole)');
+n=120*f/p;
+disp(n,'speed(rpm)');
+\ No newline at end of file
diff --git a/503/CH5/EX5.14/ch5_14.sci b/503/CH5/EX5.14/ch5_14.sci
index 8d39a413f..177e97ac6 100755
--- a/503/CH5/EX5.14/ch5_14.sci
+++ b/503/CH5/EX5.14/ch5_14.sci
@@ -1,31 +1,33 @@
-//to determine in F2,peak rotor AT, max torque, ele i/p at max torque(motoring mode),open ckt voltage(generating mode)
-
-clc;
-disp('motoring mode');
-K_w=.976;
-N_pole=746;
-p=4;
-I_f=20;
-F2=(4/%pi)*K_w*(N_pole/p)*I_f;
-disp(F2,'F2(AT)');
-B_r=1.6;
-D=.29;
-l=.35;
-T_max=(p/2)*(%pi*D*l/2)*F2*B_r;
-disp(T_max,'T_max');
-f=50;
-w_m=4*%pi*f/p;
-P_in=T_max*w_m;
-disp(P_in,'P_in(W)');
-
-disp('generating mode');
-m=S/(3*p);
-ga=180*p/S;
-K_b=sind(30)/(3*sind(15/2));
-K_w=K_b;
-u_o=4*%pi*10^-7;
-phi_r=((2*D*l/p)*(u_o/g))*F2;
-N_ph=20*p*4/2;
-E_ph=4.44*K_b*f*N_ph*phi_r;
-E_l=sqrt(3)*E_ph;
+//to determine in F2,peak rotor AT, max torque, ele i/p at max torque(motoring mode),open ckt voltage(generating mode)
+
+clc;
+disp('motoring mode');
+K_w=.976;
+N_pole=746;
+p=4;
+I_f=20;
+F2=(4/%pi)*K_w*(N_pole/p)*I_f;
+S = 48; 
+g = 1.5 *10^-3;
+disp(F2,'F2(AT)');
+B_r=1.6;
+D=.29;
+l=.35;
+T_max=(p/2)*(%pi*D*l/2)*F2*B_r;
+disp(T_max,'T_max');
+f=50;
+w_m=4*%pi*f/p;
+P_in=T_max*w_m;
+disp(P_in,'P_in(W)');
+
+disp('generating mode');
+m=S/(3*p);
+ga=180*p/S;
+K_b=sind(30)/(3*sind(15/2));
+K_w=K_b;
+u_o=4*%pi*10^-7;
+phi_r=((2*D*l/p)*(u_o/g))*F2;
+N_ph=20*p*4/2;
+E_ph=4.44*K_b*f*N_ph*phi_r;
+E_l=sqrt(3)*E_ph;
 disp(E_l,'E_l(V)');
 \ No newline at end of file
diff --git a/503/CH5/EX5.18/ch5_18.sci b/503/CH5/EX5.18/ch5_18.sci
index d8e275fcc..022fd02e6 100755
--- a/503/CH5/EX5.18/ch5_18.sci
+++ b/503/CH5/EX5.18/ch5_18.sci
@@ -1,21 +1,21 @@
-//to find no of poles, slip and freq of rotor currents at full load, motor speed at twice of full load
-
-clc;
-n_s=600;
-f=50;
-P=120*f/n_s;
-disp(p,'no of poles');
-n=576;
-s=(n_s-n)/n_s;
-disp(s,'slip');
-f2=s*f;
-n_r=s*n_s;
-disp(n_r,'rotor speed wrt rotating field(rpm)');
-ss=f2*s;
-n=(1-ss)*n_s;
-disp(n,'motor speed(rpm)');
-nn=528;
-s_old=s;
-s_new=(n_s-nn)/n_s;
-fac=s_new/s_old;
+//to find no of poles, slip and freq of rotor currents at full load, motor speed at twice of full load
+
+clc;
+n_s=600;
+f=50;
+P=120*f/n_s;
+disp(P,'no of poles');
+n=576;
+s=(n_s-n)/n_s;
+disp(s,'slip');
+f2=s*f;
+n_r=s*n_s;
+disp(n_r,'rotor speed wrt rotating field(rpm)');
+ss=f2*s;
+n=(1-ss)*n_s;
+disp(n,'motor speed(rpm)');
+nn=528;
+s_old=s;
+s_new=(n_s-nn)/n_s;
+fac=s_new/s_old;
 disp(fac,'factor is');
 \ No newline at end of file
diff --git a/503/CH5/EX5.4/ch5_4.sci b/503/CH5/EX5.4/ch5_4.sci
index cc120a890..171bb33b9 100755
--- a/503/CH5/EX5.4/ch5_4.sci
+++ b/503/CH5/EX5.4/ch5_4.sci
@@ -1,17 +1,18 @@
-// to calculate flux/pole
-
-clc;
-S=42;
-p=2;
-ph=3;
-m=S/(p*ph);    //slots/pole/phase
-g=180*p/S;    //slots angle
-K_b=sind(m*g/2)/(m*sind(g/2));    //breadth factor
-cp=17;
-pp=S/p;
-theta_sp=(pp-cp)*g;    //short pitch angle
-K_p=cosd(theta_sp/2);
-N_ph=S*2/(ph*p*2);        //2 parallel paths
-E_p=2300/sqrt(3);
-phi=E_p/(4.44*K_b*K_p*f*N_ph);
-disp(phi,'flux/pole(Wb)');
+// to calculate flux/pole
+
+clc;
+S=42;
+p=2;
+ f = 50;
+ph=3;
+m=S/(p*ph);    //slots/pole/phase
+g=180*p/S;    //slots angle
+K_b=sind(m*g/2)/(m*sind(g/2));    //breadth factor
+cp=17;
+pp=S/p;
+theta_sp=(pp-cp)*g;    //short pitch angle
+K_p=cosd(theta_sp/2);
+N_ph=S*2/(ph*p*2);        //2 parallel paths
+E_p=2300/sqrt(3);
+phi=E_p/(4.44*K_b*K_p*f*N_ph);
+disp(phi,'flux/pole(Wb)');
+\ No newline at end of file