diff options
| author | Siddharth Agarwal | 2019-09-03 18:27:40 +0530 |
|---|---|---|
| committer | Siddharth Agarwal | 2019-09-03 18:27:40 +0530 |
| commit | 8ac15bc5efafa2afc053c293152605b0e6ae60ff (patch) | |
| tree | e1bc17aae137922b1ee990f17aae4a6cb15b7d87 /Working_Examples/2777/CH5 | |
| parent | 52a477ec613900885e29c4a0b02806a415b4f83a (diff) | |
| download | Xcos_block_examples-master.tar.gz Xcos_block_examples-master.tar.bz2 Xcos_block_examples-master.zip | |
Diffstat (limited to 'Working_Examples/2777/CH5')
29 files changed, 1547 insertions, 0 deletions
diff --git a/Working_Examples/2777/CH5/EX5.1/Ex5_1.sce b/Working_Examples/2777/CH5/EX5.1/Ex5_1.sce new file mode 100755 index 0000000..7a60ea9 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.1/Ex5_1.sce @@ -0,0 +1,66 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.1
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+// For Case (a)
+
+S_a = 30; // Total number of Slots
+m_a = 3; // Total number of Poles
+p_a = 2; // Total number of Phases
+
+// For Case (b)
+
+S_b = 60; // Total number of Slots
+m_b = 3; // Total number of Poles
+p_b = 4; // Total number of Phases
+
+// For Case (c)
+
+S_c = 24; // Total number of Slots
+m_c = 3; // Total number of Poles
+p_c = 4; // Total number of Phases
+
+// For Case (d)
+
+S_d = 12; // Total number of Slots
+m_d = 3; // Total number of Poles
+p_d = 2; // Total number of Phases
+
+
+// CALCULATIONS
+// For Case (a)
+
+spp_a = S_a/(p_a*m_a); // Slot per poles per phase
+
+// For Case (b)
+
+spp_b = S_b/(p_b*m_b); // Slot per poles per phase
+
+// For Case (c)
+
+spp_c = S_c/(p_c*m_c); // Slot per poles per phase
+
+// For Case (d)
+
+spp_d = S_d/(p_d*m_d); // Slot per poles per phase
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.1 : SOLUTION :-") ;
+printf("\n For case (a) Slot per poles per phase, spp = %.f \n ",spp_a);
+printf("\n For case (b) Slot per poles per phase, spp = %.f \n ",spp_b);
+printf("\n For case (c) Slot per poles per phase, spp = %.f \n ",spp_c);
+printf("\n For case (d) Slot per poles per phase, spp = %.f \n ",spp_d);
+
+
diff --git a/Working_Examples/2777/CH5/EX5.10/Ex5_10.sce b/Working_Examples/2777/CH5/EX5.10/Ex5_10.sce new file mode 100755 index 0000000..d15b4a4 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.10/Ex5_10.sce @@ -0,0 +1,32 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.10
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+
+m = 3; // Total Number of phase in Induction Motor
+p = 4; // Total number of Poles in Induction Motor
+f = 50; // Frequency in Hertz
+s = 0.03; // Slip
+
+
+// CALCULATIONS
+
+Ns = (120*f)/p; // Synchronous Speed in RPM
+Nr = (1-s)*Ns; // Rotor Speed in RPM
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.10 : SOLUTION :-");
+printf("\n (a) Rotor Speed , Nr = %.f RPM \n",Nr)
diff --git a/Working_Examples/2777/CH5/EX5.11/Ex5_11.sce b/Working_Examples/2777/CH5/EX5.11/Ex5_11.sce new file mode 100755 index 0000000..ca8b07f --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.11/Ex5_11.sce @@ -0,0 +1,38 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.11
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+
+m = 3; // Total Number of phase in Induction Motor
+p = 6; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+s = 0.03; // Slip
+
+
+// CALCULATIONS
+
+Ns = (120*f)/p; // Synchronous Speed in RPM
+Nr = (1-s)*Ns; // Rotor Speed in RPM
+Nf = Ns - Nr; // Speed of Forward Rotating magnetic fields with respect to stator and rotor in RPM
+Nb = Ns + Nr; // Speed of Backward Rotating magnetic fields with respect to stator and rotor in RPM
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.11 : SOLUTION :-");
+printf("\n (a) Speed of Forward Rotating magnetic fields with respect to stator and rotor is equal to + %.f RPM \n",Nf)
+printf("\n (b) Speed of Backward Rotating magnetic fields with respect to stator and rotor is equal to + %.f RPM \n",Nb)
+
+
+
diff --git a/Working_Examples/2777/CH5/EX5.12/Ex5_12.sce b/Working_Examples/2777/CH5/EX5.12/Ex5_12.sce new file mode 100755 index 0000000..3541e45 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.12/Ex5_12.sce @@ -0,0 +1,35 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.12
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+m = 3; // Total Number of phase in Induction Motor
+p = 2; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+s = 0.05; // Slip
+
+
+// CALCULATIONS
+
+Ns = (120*f)/p; // Synchronous Speed in RPM
+Nr = (1-s)*Ns; // Rotor Speed in RPM
+Nf = s*Ns; // Speed of Forward Rotating magnetic fields with respect to stator and rotor in RPM
+Nb = (p-s)*Ns; // Speed of Backward Rotating magnetic fields with respect to stator and rotor in RPM
+fr = (p-s)*f; // Backward rotating magnetic field induces a current of frequency in Hertz
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.12 : SOLUTION :-");
+printf("\n (a) Speed of Forward Rotating magnetic fields with respect to stator and rotor is equal to + %.f RPM \n",Nf)
+printf("\n (b) Speed of Backward Rotating magnetic fields with respect to stator and rotor is equal to + %.f RPM \n",Nb)
diff --git a/Working_Examples/2777/CH5/EX5.13/Ex5_13.sce b/Working_Examples/2777/CH5/EX5.13/Ex5_13.sce new file mode 100755 index 0000000..88850d4 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.13/Ex5_13.sce @@ -0,0 +1,45 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.13
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+
+m = 3; // Total Number of phase in Induction Motor
+p = 4; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+s = 0.05; // Slip
+
+
+// CALCULATIONS
+
+Ns = (120*f)/p; // Synchronous Speed in RPM
+fr = s*f; // Rotor-induced Frequency of forward field in Hertz
+Nfr = s*Ns; // Speed of Forward Rotating magnetic fields with respect to rotor surface in RPM
+f2r = s*f; // Rotor-induced Frequency of Backward field in Hertz
+Nbr = -(s*Ns); // Speed of Backward Rotating magnetic fields with respect to rotor surface in RPM
+Nr = (1-s)*Ns; // Rotor running in Forward direction in RPM
+Nfs = Nr+(s*Ns); // Speed of Forward Rotating magnetic fields with respect to stator surface in RPM
+Nbs = Nr-(s*Ns); // Speed of Backward Rotating magnetic fields with respect to stator surface in RPM
+Nbs_new = -(0.5*Ns)+(1-0.5)*Nr; // Speed of Backward Rotating magnetic fields with respect to stator for 50% of slip in RPM
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.13 : SOLUTION :-");
+printf("\n (a.1) Speed of Forward Rotating magnetic fields with respect to rotor surface is equal to + %.f RPM \n",Nfr)
+printf("\n (a.2) Speed of Backward Rotating magnetic fields with respect to rotor surface is equal to + %.f RPM \n",Nbr)
+printf("\n (b.1) Speed of Forward Rotating magnetic fields with respect to stator surface is equal to + %.f RPM \n",Nfs)
+printf("\n (b.2) Speed of Backward Rotating magnetic fields with respect to stator surface is equal to + %.f RPM \n",Nbs)
+printf("\n (c) Speed of Backward Rotating magnetic fields with respect to stator for 50 percenatge slip is equal to %.1f RPM \n",Nbs_new)
+printf("\n\n [ TEXT BOOK SOLUTION IS PRINTED WRONGLY ( I verified by manual calculation )]\n" );
+printf("\n WRONGLY PRINTED ANSWERS ARE :- (a) Speed of Backward Rotating magnetic fields with respect to stator for 50 percenatge slip is equal to 0 RPM instead of %.1f RPM \n ",Nbs_new);
diff --git a/Working_Examples/2777/CH5/EX5.14/Ex5_14.sce b/Working_Examples/2777/CH5/EX5.14/Ex5_14.sce new file mode 100755 index 0000000..d967110 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.14/Ex5_14.sce @@ -0,0 +1,31 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.14
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+f = 50; // Stator Frequency of Inductor Motor in Hertz
+fr = 10; // Rotor Frequency of Inductor Motor in Hertz
+p = 2; // Number of poles
+
+
+// CALCULATIONS
+
+Ns = (120*f)/p; // Synchronous Speed of Induction Motor in RPM
+s = fr/f; // Slip of the Induction Motor
+Nr = (1-s)*Ns; // Rotor Speed of the Induction Motor
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.14 : SOLUTION :-");
+printf("\n (a) Rotor Speed of Induction Motor, Nr = %.f RPM \n",Nr)
diff --git a/Working_Examples/2777/CH5/EX5.15/Ex5_15.sce b/Working_Examples/2777/CH5/EX5.15/Ex5_15.sce new file mode 100755 index 0000000..2eb9ed8 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.15/Ex5_15.sce @@ -0,0 +1,79 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.15
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+printf("\n EXAMPLE : 5.15 : \n\n Given Data No-load test : 440V, 30A, 4.5KW \n");
+printf("\n Blocked rotor test : 90V,50Hz, 120A, 16KW \n");
+m = 3; // Total Number of phase in Induction Motor
+p = 6; // Total number of Poles of Induction Motor
+V = 440; // Operating voltage of the Induction motor in Volts
+out_hp = 100; // Output of the Induction motor in Horse-Power
+R = 0.15; // Average dc Resistance in Ohms
+Wsc = 16000; // Power at Blocked Rotor test in Watts
+Vsc = 90; // Voltage at Blocked Rotor test in Volts
+Isc = 120; // Current at Blocked Rotor test in Amphere
+W0 = 4500; // Power at No-load test in Watts
+V0 = 440; // Voltage at No-load test in Volts
+I0 = 30; // Current at No-load test in Amphere
+s = 0.05; // Slip
+f = 50; // Frequency in Hertz
+
+
+// CALCULATIONS
+
+R1 = R/2; // DC winding Resistance per phase in Ohms
+Rac = Wsc/(3*Isc^2); // AC Resistance referred to stator from locked rotor test at supply frequency in Ohms
+R_2 = Rac - R1; // Per phase Rotor Resistance to Stator in Ohms
+Zsc = Vsc/(sqrt(3)*Isc); // Per phase Impedance from locked rotor test in Ohms
+Xs = sqrt((Zsc^2)-(Rac^2)); // Per phase leakage Reactance referred to stator in Ohms
+theta_0 = acosd(W0/(V0*I0*sqrt(3))); // No-load power factor angle in degree
+Im = I0*sind(theta_0); // Reactive component of no-load current in Amphere
+Xm = V0/(Im*sqrt(3)); // Magnetizing Reactance in Ohms
+Pc = W0 - 3*I0^2*R1; // Total Core loss in Watts
+Rc = (V0/sqrt(3))^2*(3/Pc); // Per phase core loss Resistance in Watts
+Vph = V0/sqrt(3); // Per phase Voltage in Volts
+Ic = Vph/Rc; // Core loss current in Amphere
+I_m = Vph/(%i * Xm); // Magnetizing Current in Amphere
+I_o = Ic + I_m; // No-load current in Amphere
+I_2 = Vph/(R1+(R_2/s)+(%i*Xs)); // Current in Amphere
+I1 = I_o + I_2; // Input Current in Amphere
+Pf = cosd(atand(imag(I1)/real(I1))); // Power factor
+P1 = (3*(abs(I_2)^2*R_2)/s)/1000; // 3-phase air gap power or Rotor intake Power in Kilo-Watts
+Po = P1*(1-s); // Output Power in Kilo-Watts
+Ws = 2*%pi*((120*f/p)*(1/60)); // Angular Roatation in Radians per Seconds
+T = P1*1000/Ws; // Torque in Newton-Meter
+
+
+// DISPLAY RESULTS
+
+disp(" SOLUTION :-");
+printf("\n (a.1) DC winding Resistance per phase, R1 = %.3f Ohms \n",R1)
+printf("\n (a.2) AC Resistance referred to stator from locked rotor test at supply frequency = %.4f Ohms \n",Rac)
+printf("\n (a.3) Per phase Rotor Resistance to Stator, R2 = %.4f Ohms \n",R_2)
+printf("\n (a.4) Per phase Impedance from locked rotor test,Zsc = %.3f Ohms \n",Zsc)
+printf("\n (a.5) Per phase leakage Reactance referred to stator, Xs = %.4f Ohms \n",Xs)
+printf("\n (a.6) No-load power factor angle, theta_O = %.2f Degree \n",theta_0)
+printf("\n (a.7) Reactive component of no-load current, Im = %.1f A \n",Im)
+printf("\n (a.8) Magnetizing Reactance, Xm = %.2f Ohms \n",Xm)
+printf("\n (a.9) Total Core loss, Pc = %.1f W \n",Pc)
+printf("\n (a.10) Per phase core loss Resistance, Pc = %.f Ohms \n",Rc)
+printf("\n (a.11) Per phase Voltage, Vph = %.f V \n",Vph)
+printf("\n (a.12) Core loss current, Ic = %.2f < %.f A \n",abs(Ic),atand(imag(Ic),real(Ic)))
+printf("\n (a.13) Magnetizing Current, Im = %.1f < %.f A \n",abs(I_m),atand(imag(I_m),real(I_m)))
+printf("\n (a.14) No-load current, I0 = %.2f < %.2f A \n",abs(I_o),atand(imag(I_o),real(I_o)))
+printf("\n (a.15) Current, I2 = %.2f < %.2f A \n",abs(I_2),atand(imag(I_2),real(I_2)))
+printf("\n (b) Input current, I1 = %.2f < %.2f A \n",abs(I1),atand(imag(I1),real(I1)))
+printf("\n (c) Power Factor, Pf = %.4f Lagging \n",Pf)
+printf("\n (d) Output Power, P0 = %.1f kW \n",Po)
+printf("\n (e) Torque, T = %.2f NM \n",T)
diff --git a/Working_Examples/2777/CH5/EX5.17/Ex5_17.sce b/Working_Examples/2777/CH5/EX5.17/Ex5_17.sce new file mode 100755 index 0000000..ea44107 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.17/Ex5_17.sce @@ -0,0 +1,59 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.17
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+printf("\n EXAMPLE : 5.17 : \n\n Given Data No-load test : 440V, 3.0A, 500KW, 50Hz \n");
+printf("\n Blocked rotor test at rated frequency : 110V, 18A, 2500W, 50Hz \n");
+printf("\n DC test on Stator per phase : 10V, 15A \n");
+m = 3; // Total Number of phase in Induction Motor
+p = 4; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+V = 440; // Operating Voltage of the Inductuon Motor
+out_hp = 20; // Motor Power Rating in Horse-Power
+Vdc = 10; // DC Voltage in Volts
+Idc = 15; // DC Current in Amphere
+Wsc = 2500; // Power at Blocked Rotor test rated frequency in Watts
+Wsc_red = 2050; // Power at Blocked Rotor test reduced frequency in Watts
+Vsc = 110; // Voltage at Blocked Rotor test rated frequency in Volts
+Isc = 18; // Current at Blocked Rotor test rated frequency in Amphere
+Wo = 500; // Power at No-load test in Watts
+Vo = 440; // Voltage at No-load test in Volts
+Io = 4.0; // Current at No-load test in Amphere
+fsc = 50; // Rated Frequency at blocked rotor test in Hertz
+fo = 50; // Rated Frequency at no-load test in Hertz
+fsc1 = 15; // Reduced Frequency at blocked rotor in Hertz
+Pfw = 200; // Friction and Windage loss in Watts
+
+
+// CALCULATIONS
+
+R1dc = Vdc/Idc; // DC winding Resistance per phase in Ohms
+Rac = Wsc/(3*Isc^2); // AC Resistance from Locked rotor test at supply frequency
+Rac_red = Wsc_red/(3*Isc^2); // AC Resistance from Locked rotor test at reduced frequency
+R1ac = (Rac/Rac_red)*R1dc; // Corrected Value of AC stator winding Resistance in Ohms
+R2dc = Rac_red - R1dc; // Second rotor parameter, rotor resistance referred to stator is at low frequency in Ohms
+Zsc = Vsc/(sqrt(3)*Isc); // Per phase Impedance from locked rotor test at power frequency in Ohms
+Xs = sqrt((Zsc^2)-(Rac^2)); // Per phase leakage Reactance referred to stator in Ohms
+theta_0 = acosd(Wo/(Vo*Io*sqrt(3))); // No-load power factor angle in degree
+Im = Io*sind(theta_0); // Reactive component of no-load current in Amphere
+Xm = Vo/(Im*sqrt(3)); // Magnetizing Reactance in Ohms
+Pc = Wo - 3*Io^2*R1ac-Pfw; // Total Core loss in Watts
+Rc = (Vo/sqrt(3))^2*(3/Pc); // Per phase core loss Resistance in Watts
+
+
+// DISPLAY RESULTS
+
+disp(" SOLUTION :-");
+printf("\n (a) Magnetizing Reactance of Equivalent circuit, Xm = %.1f Ohms \n",Xm)
+printf("\n (b) Per phase core loss Resistance, Pc = %.f Ohms \n",Rc)
diff --git a/Working_Examples/2777/CH5/EX5.18/Ex5_18.sce b/Working_Examples/2777/CH5/EX5.18/Ex5_18.sce new file mode 100755 index 0000000..20f0e97 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.18/Ex5_18.sce @@ -0,0 +1,54 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.18
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+// From Previous problem data (Example 5.17)
+
+R1ac = 0.8127; // Corrected Value of AC stator winding Resistance in Ohms
+R2dc = 1.4433; // Second rotor parameter, rotor resistance referred to stator is at low frequency in Ohms
+Xs = 2.42; // Per phase leakage Reactance referred to stator in Ohms
+Xm = 64.4; // Magnetizing Reactance in Ohms
+Rc = 742; // Per phase core loss Resistance in Watts
+s = 0.035; // Slip
+m = 3; // Total Number of phase in Induction Motor
+p = 4; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+V = 440; // Operating Voltage of the Inductuon Motor
+out_hp = 20; // Motor Power Rating in Horse-Power
+
+
+// CALCULATIONS
+
+Vph = V/sqrt(3); // Per phase Voltage in Volts
+Ic = Vph/Rc; // Core loss current in Amphere
+I_m = Vph/(%i * Xm); // Magnetizing Current in Amphere
+I_o = Ic + I_m; // No-load current in Amphere
+I_2 = Vph/(R1ac+(R2dc/s)+(%i*Xs)); // Current in Amphere
+I1 = I_o + I_2; // Input Current in Amphere
+Pf = cosd(atand(imag(I1)/real(I1))); // Power factor
+P1 = 3*(abs(I_2)^2*R2dc)/s; // 3-phase air gap power or Rotor intake Power in Watts
+Po = P1*(1-s); // Output Power in Watts
+Ws = 2*%pi*((120*f/p)*(1/60)); // Angular Roatation in Radians per Seconds
+T = P1/Ws; // Torque in Newton-Meter
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.18 : SOLUTION :-");
+printf("\n (a) Input current, I1 = %.2f < %.2f A \n",abs(I1),atand(imag(I1),real(I1)))
+printf("\n (b) Power Factor, Pf = %.3f Lagging \n",Pf)
+printf("\n (c) Output Power, P0 = %.2f W \n",Po)
+printf("\n (d) Torque, T = %.2f NM \n",T)
+printf("\n\n [ TEXT BOOK SOLUTION IS PRINTED WRONGLY ( I verified by manual calculation )]\n" );
+printf("\n WRONGLY PRINTED ANSWERS ARE :- (a) T = 4340.82 Nm instead of %.2f Nm \n ",T);
+printf("\n\n IN TEXT BOOK, CALCULATION OF TORQUE IS NOT DONE \n ");
diff --git a/Working_Examples/2777/CH5/EX5.19/Ex5_19.sce b/Working_Examples/2777/CH5/EX5.19/Ex5_19.sce new file mode 100755 index 0000000..5fc9518 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.19/Ex5_19.sce @@ -0,0 +1,58 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.19
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+s = 0.05; // Slip
+m = 3; // Total Number of phase in Induction Motor
+p = 4; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+V = 440; // Operrating Voltage of the Inductuon Motor
+R1 = 0.10; // Circuit Parameter in Ohms
+R2 = 0.11; // Circuit Parameter in Ohms
+X1 = 0.35; // Circuit Parameter in Ohms
+X2 = 0.40; // Circuit Parameter in Ohms
+pf = 0.2; // Power factor (Lagging)
+Pr = 900; // Rotational Loss in Watts
+Psc = 1000; // Stator core loss in Watts
+I = 15; // Line current draws by the motor in Amphere
+
+
+// CALCULATIONS
+
+Vph = V/sqrt(3); // Per phase Voltage in Volts
+I_2 = Vph/(R1+(R2/s)+(%i*(X1+X2))); // Current in Amphere
+Io = I * exp(-( %i * acosd(pf) * %pi/180)); // No-load current in Amphere
+I1 = Io + I_2; // Input line Current in Amphere
+PF = cosd(atand(imag(I1)/real(I1))); // Power factor
+Ws = 2*%pi*((120*f/p)*(1/60)); // Angular Roatation in Radians per Seconds
+Pg = (3*(abs(I1)^2*R2))/s; // 3-phase air gap power or Rotor intake Power in Watts
+T = Pg/Ws; // Torque in Newton-Meter
+Po = Pg*(1-s)-Pr; // Output Power in Watts
+Po_HP = Po/746; // Output Power in Horse-Power
+eta = (Po/(Po+Psc+Pr))*100; // Efficiency in Percentage
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.19 : SOLUTION :-");
+printf("\n (a) Input line current, I1 = %.1f < %.2f A \n",abs(I1),atand(imag(I1),real(I1)))
+printf("\n (b) Power Factor, Pf = %.4f Lagging \n",PF)
+printf("\n (c) Output Power, P0 = %.1f HP \n",Po_HP)
+printf("\n (d) Torque, T = %.2f Nm \n",T)
+printf("\n (e) Efficiency, eta = %.1f Percenatge \n",eta)
+printf("\n\n [ TEXT BOOK SOLUTION IS PRINTED WRONGLY ( I verified by manual calculation )]\n" );
+printf("\n WRONGLY PRINTED ANSWERS ARE :- (a) I1 = 114.2<-24.68 A instead of %.1f<%.2f A \n ",abs(I1),atand(imag(I1),real(I1)));
+printf("\n (b) T = 548.24 Nm instead of %.2f Nm \n ",T);
+printf("\n (c) Po = 108.4 HP instead of %.1f HP \n ",Po_HP);
+
diff --git a/Working_Examples/2777/CH5/EX5.2/Ex5_2.sce b/Working_Examples/2777/CH5/EX5.2/Ex5_2.sce new file mode 100755 index 0000000..4a53f79 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.2/Ex5_2.sce @@ -0,0 +1,91 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.2
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+// For Case (a)
+
+S_a = 54; // Total number of Slots
+m_a = 3; // Total number of Poles
+p_a = 8; // Total number of Phases
+
+// For Case (b)
+
+S_b = 32; // Total number of Slots
+m_b = 3; // Total number of Poles
+p_b = 4; // Total number of Phases
+
+// For Case (c)
+
+S_c = 30; // Total number of Slots
+m_c = 3; // Total number of Poles
+p_c = 4; // Total number of Phases
+
+
+// CALCULATIONS
+// For Case (a)
+
+spp_a = S_a/(p_a*m_a); // Slot per poles per phase
+l_a = 0 * spp_a; // Phase allociation Series
+m_a = 1 * spp_a; // Phase allociation Series
+n_a = 2 * spp_a; // Phase allociation Series
+o_a = 3 * spp_a; // Phase allociation Series
+p_a = 4 * spp_a; // Phase allociation Series
+d_a = 0; // d_a = l_a (Rounding off)
+e_a = 2; // e_a = m_a (Rounding off)
+f_a = 4; // f_a = n_a (Rounding off)
+g_a = 6; // g_a = o_a (Rounding off)
+h_a = 9; // h_a = p_a (Rounding off)
+R_a = e_a - d_a; // Phase allociation
+Y_a = f_a - e_a; // Phase allociation
+B_a = g_a - f_a; // Phase allociation
+R1_a = h_a - g_a; // Phase allociation
+
+// For Case (b)
+
+spp_b = S_b/(p_b*m_b); // Slot per poles per phase
+l_b = 0 * spp_b; // Phase allociation Series
+m_b = 1 * spp_b; // Phase allociation Series
+n_b = 2 * spp_b; // Phase allociation Series
+o_b = 3 * spp_b; // Phase allociation Series
+d_b = 0; // d_b = l_b (Rounding off)
+e_b = 2; // e_b = m_b (Rounding off)
+f_b = 5; // f_b = n_b (Rounding off)
+g_b = 8; // g_b = o_b (Rounding off)
+R_b = e_b - d_b; // Phase allociation
+Y_b = f_b - e_b; // Phase allociation
+B_b = g_b - f_b; // Phase allociation
+
+// For Case (c)
+
+spp_c = S_c/(p_c*m_c); // Slot per poles per phase
+l_c = 0 * spp_c; // Phase allociation Series
+m_c = 1 * spp_c; // Phase allociation Series
+n_c = 2 * spp_c; // Phase allociation Series
+d_c = 0; // d_b = l_b (Rounding off)
+e_c = 2; // e_b = m_b (Rounding off)
+f_c = 5; // f_b = n_b (Rounding off)
+R_c = e_c - d_c; // Phase allociation
+Y_c = f_c - e_c; // Phase allociation
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.2 : SOLUTION :-") ;
+printf("\n For Case (a) Slot per poles per phase , spp = %.3f \n ",spp_a);
+printf("\n Phase allociation series is %.f, %.f, %.f, %.f, %.f, %.f, %.f, %.f, %.f,slots are allocated respectively to R, Y, B, R, Y, B, R, Y, B....... phase in Sequence\n ",R_a,Y_a,B_a,R1_a,R_a,Y_a,B_a,R1_a,R_a);
+printf("\n By seeing Sequence its Slot per pole per phase is an Integer and such, balanced winding may be possible \n");
+printf("\n For Case (b) Slot per poles per phase , spp = %.3f \n ",spp_b);
+printf("\n Phase allociation series is %.f, %.f, %.f \n",R_b,Y_b,B_b);
+printf("\n By seeing Sequence its Slot per pole per phase are not Integer therefore R-phase will have 8 slots whereas Y-phase and B-phase will have 12 slots \n");
+printf("\n For Case (c) Slot per poles per phase , spp = %.1f \n ",spp_c);
+printf("\n Phase allociation series is %.f, %.f, %.f, %.f, %.f, %.f, %.f, %.f, %.f, %.f, %.f, %.f slots are allocated respectively to R, Y, B, R, Y, B, R, Y, B, R, Y, B....... phase in Sequence\n ",R_c,Y_c,R_c,Y_c,R_c,Y_c,R_c,Y_c,R_c,Y_c,R_c,Y_c);
+printf("\n By seeing Sequence its Slot per pole per phase is an Integer and such, balanced winding may be possible \n");
diff --git a/Working_Examples/2777/CH5/EX5.20/Ex5_20.sce b/Working_Examples/2777/CH5/EX5.20/Ex5_20.sce new file mode 100755 index 0000000..1971ca4 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.20/Ex5_20.sce @@ -0,0 +1,60 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.20
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+m = 3; // Total Number of phase in Induction Motor
+p = 6; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+V = 440; // Operating Voltage of the Inductuon Motor
+R1 = 0.25; // Circuit Parameter in Ohms
+R2 = 0.25; // Circuit Parameter in Ohms
+X1 = 0.75; // Circuit Parameter in Ohms
+X2 = 0.75; // Circuit Parameter in Ohms
+Xm = 1000; // Circuit Parameters in Ohms
+Rc = 100; // Circuit Parameters in Watts
+s = 0.025; // Slip
+Pr = 450; // Rotational Loss in Watts
+Psc = 800; // Stator core loss in Watts
+
+
+// CALCULATIONS
+
+Vph = V/sqrt(3); // Per phase Voltage in Volts
+I_2 = Vph/(R1+(R2/s)+(%i*(X1+X2))); // Current in Amphere
+Ic = Vph/Rc; // Core loss current in Amphere
+I_m = Vph/(%i * Xm); // Magnetizing Current in Amphere
+I_o = Ic + I_m; // No-load current in Amphere
+I1 = I_o + I_2; // Input Current in Amphere
+Pf = cosd(atand(imag(I1)/real(I1))); // Power factor
+Ns = (120*f)/p; // Synronous Speed in RPM
+Pg = 3*(abs(I_2)^2*R2)/s; // 3-phase air gap power or Rotor intake Power in Watts
+Pm = Pg*(1-s); // Output Power in Watts
+Ws = 2*%pi*Ns*(1/60); // Angular Roatation in Radians per Seconds
+T = Pg/Ws; // Torque in Newton-Meter
+Po = Pm-Pr; // Output Power in Watts
+Po_HP = Po/746; // Output Power in Horse-Power
+eta = (Po/(Po+Psc+Pr))*100; // Efficiency in Percentage
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.20 : SOLUTION :-");
+printf("\n (a) Input line current, I1 = %.f < %.2f A \n",abs(I1),atand(imag(I1),real(I1)))
+printf("\n (b) Power Factor, Pf = %.4f Lagging \n",Pf)
+printf("\n (c) Output Power, P0 = %.2f HP \n",Po_HP)
+printf("\n (d) Torque, T = %.1f Nm \n",T)
+printf("\n (e) Efficiency, eta = %.1f Percenatge \n",eta)
+printf("\n\n [ TEXT BOOK SOLUTION IS PRINTED WRONGLY ( I verified by manual calculation )]\n" );
+printf("\n WRONGLY PRINTED ANSWERS ARE :- (a) I1 = 26.8-j3.584 {27<-7.62} A in instead of (%.1f)+(j%.3f) {%.f<%.2f} A \n ",real(I1),imag(I1),abs(I1),atand(imag(I1),real(I1)));
+printf("\n (b) pf = 0.9885 Lagging instead of %.4f Lagging \n ",Pf);
diff --git a/Working_Examples/2777/CH5/EX5.21/Ex5_21.sce b/Working_Examples/2777/CH5/EX5.21/Ex5_21.sce new file mode 100755 index 0000000..3ff9730 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.21/Ex5_21.sce @@ -0,0 +1,41 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.21
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+m = 3; // Total Number of phase in Induction Motor
+p = 4; // Total number of Poles of Induction Motor
+s = 0.05; // Slip
+f = 50; // Frequency in Hertz
+Tm = 500; // Maximum Torque in Newton-Meter
+Tst = 200; // Starting Torque in Newton-Meter
+sst = 1.0; // Starting Slip
+
+
+// CALCULATONS
+
+p1 = poly([1 -5 1],'sm','c'); // Slip at Maximum Torque (obtained from Equation Tst = (2*Tm)/((sst/sm)+(sm+sst))
+a = roots(p1); // Value of slip at Maximum Torque (obtained from Equation Tst = (2*Tm)/((sst/sm)+(sm+sst))
+sm = a(2,1); // Slip at Maximum Torque (obtained from Equation Tst = (2*Tm)/((sst/sm)+(sm+sst)) { 1st root is 4.8 so its out of range because slip value is lies between 0-1 so its neglected and second root will be slip }
+T = (2*Tm)/((s/sm)+(sm/s)); // Torque at 0.05 slip
+Ns = (120*f)/p; // Synchronous Speed in RPM
+Wr = (2*%pi)*(1-s)*(Ns/60); // Angular Velocity in Radians-per-Second
+P = T * Wr; // Power Output in Watts
+P_HP = P/746; // Power Output in Horse-Power
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.21 : SOLUTION :-");
+printf("\n (a) Torque at 0.05 slip, T = %.2f Nm \n",T)
+printf("\n (b) Power Output at 0.05 slip, P = %.1f W = %.2f HP \n",P,P_HP)
diff --git a/Working_Examples/2777/CH5/EX5.22/Ex5_22.sce b/Working_Examples/2777/CH5/EX5.22/Ex5_22.sce new file mode 100755 index 0000000..6103f5f --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.22/Ex5_22.sce @@ -0,0 +1,76 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.22
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+Wsc = 1000; // Power at Blocked Rotor test in Watts
+Vsc = 56; // Voltage at Blocked Rotor test in Volts
+Isc = 18; // Current at Blocked Rotor test in Amphere
+Woc = 52; // Power at No-load test in Watts
+Voc = 220; // Voltage at No-load test in Volts
+Ioc = 2.6; // Current at No-load test in Amphere
+m = 3; // Total Number of phase in Induction Motor
+p = 4; // Total number of Poles of Induction Motor
+V = 220; // Operating voltage of the Induction motor in Volts
+f = 50; // Frequency in Hertz
+s = 0.05; // Slip
+R = 0.65; // Per phase stator Resistance in Ohms
+
+
+// CALCULATIONS
+
+Vph = Voc/sqrt(3); // Per phase Voltage in Volts
+Wo = Woc/m; // Per phase No-load loss in Watts
+theta_0 = acosd(Wo/(Voc*Ioc*sqrt(3))); // No-load power factor angle in degree
+VSC = Vsc/sqrt(3); // Per phase locked rotor Voltage in Volts
+WSC = Wsc/m; // Per phase locked rotor loss in Watts
+theta_sc = acosd(WSC/(VSC*Isc)); // No-load power factor angle in degree
+ISC = Isc*(Voc/Vsc); // locked rotor current at full Voltage in Amphere
+Re = WSC/Isc^2; // Resistance in Ohms
+R1 = R*1.1; // Per phase AC stator Resistance in Ohms
+R_2 = Re - R1; // Per phase rotor Resistance in Ohms
+Zsc = VSC/Isc; // Per phase impedance in Ohms
+Xs = sqrt((Zsc^2)-(Re^2)); // Leakage Reactance in Ohms
+I_2 = (Voc/sqrt(3))/sqrt((R1+(R_2/s))^2+(Xs^2)); // Current in Amphere
+pf = cosd(atand(Xs/(R1+(R_2/s)))); // Power Factor
+Ws = 2*%pi*((120*f/p)*(1/60)); // Rotational Speed in Radians per Seconds
+Pg = (3*(abs(I_2)^2*R_2))/s; // 3-phase air gap power or Rotor intake Power in Watts
+T = Pg/Ws; // Torque in Newton-Meter
+// CALCULATIONS OR DATA OBTAINED FROM CIRCLE DIAGRAM FIGURE 5.35 and PAGE NO:-303
+OA = 2.60; // Correspounding Current in Amphere at 87' from Y-axis (from Circle diagram)
+OE = 70.70; // Correspounding Current in Amphere at 55' from Y-axis (from Circle diagram)
+OP = 17.77; // Current in Amphere (from Circle diagram)
+OV = Voc/sqrt(3); // Phase Voltage in No-load test or value obatined from circle diagram in Volts
+PK = 11.6; // Correspounding Value from Circle diagram
+JK = 0.8; // Correspounding Value from Circle diagram
+PJ = 10.8; // Correspounding Value from Circle diagram
+PM = 11.6; // Correspounding Value from Circle diagram
+Pir = 3*OV*PK; // Total Rotor intake in Watts
+Plr = 3*OV*JK; // Total Rotor loss in Watts
+Po = 3*OV*PJ; // Total Mechanical power output in Watts
+T_c = (3*OV*PK)/Ws; // Total Torque in Newton-Meter
+s_c = JK/PK; // Slip obtained from Circle diagram
+s_pc = 100*s_c; // Slip in percentage
+eta = 100*(PJ/PM); // Eifficiency in Percentage
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.22 : SOLUTION :-");
+printf("\n (a) Input line current, I2 = %.2f A \n",I_2)
+printf("\n (b) Power Factor, Pf = %.3f \n",pf)
+printf("\n (c) Torque, T = %.2f Nm \n",T)
+printf(" \n Verification Results from Circle Diagram :-\n");
+printf("\n (a) Efficency, eta = %.2f Percent \n",eta)
+printf("\n (b) slip, s = %.3f = %.f percent \n",s_c,s_pc)
+printf("\n (c) Torque, T = %.2f Nm \n",T_c)
diff --git a/Working_Examples/2777/CH5/EX5.23/Ex5_23.sce b/Working_Examples/2777/CH5/EX5.23/Ex5_23.sce new file mode 100755 index 0000000..5e298d4 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.23/Ex5_23.sce @@ -0,0 +1,92 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.23
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+R1 = 0.2; // Circuit Parameter in Ohms
+R2 = 0.4; // Circuit Parameter in Ohms
+X1 = 1.0; // Circuit Parameter in Ohms
+X2 = 1.5; // Circuit Parameter in Ohms
+m = 3; // Total Number of phase in Induction Motor
+p = 2; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+V = 440; // Operating Voltage of the Inductuon Motor
+
+
+// CALCULATIONS
+
+Ws = 2*%pi*f; // Synchronous angular speed in Radians per second
+Z = (R1+R2)+((%i)*(X1+X2)); // At slip s=1, the impedance seen from the terminals in Ohms
+s = 1; // Slip
+
+// For Case(a) Winding is connected in star
+
+Isy_a = V/(abs(Z)*sqrt(3)); // Current in Amphere
+Tsy_a = (3*Isy_a^2*R2)/(s*Ws); // Torque in Newton-Meter
+
+// Winding is connected in delta
+
+Isd_a = (V*sqrt(3))/abs(Z); // Current in Amphere
+Tsd_a = (3*(Isd_a/sqrt(3))^2*R2)/(s*Ws); // Torque in Newton-Meter
+I_R = Isd_a/Isy_a; // Ratio of the line current
+T_R = Tsd_a/Tsy_a; // Ratio of the Torque
+
+// For Case(b) Machine is started using auto-transfromer and voltage is 50% reduced
+
+Isy_b = (0.5*V)/(abs(Z)*sqrt(3)); // Current in Amphere when Winding is connected star
+Tsy_b = (3*Isy_b^2*R2)/(s*Ws); // Torque in Newton-Meter when Winding is connected star
+Isd_b = (0.5*V*sqrt(3))/abs(Z); // Current in Amphere when Winding is connected delta
+Tsd_b = (3*(Isd_b/sqrt(3))^2*R2)/(s*Ws); // Torque in Newton-Meter when Winding is connected delta
+
+// For Case(c) Both Voltage and Frequency are reduced to 50%
+
+f_new = (10/100)*f; // New Frequency
+Ws_c = 2*%pi*f_new; // Synchronous angular speed in Radians per second
+Z_c = ((R1+R2)+((%i)*(X1+X2))*(f_new/f)); // At slip s=1, the impedance seen from the terminals in Ohms
+Isy_c = (0.1*V)/(abs(Z_c)*sqrt(3)); // Current in Amphere when Winding is connected star
+Tsy_c = (3*Isy_c^2*R2)/(s*Ws_c); // Torque in Newton-Meter when Winding is connected star
+Isd_c = (0.1*V*sqrt(3))/abs(Z_c); // Current in Amphere when Winding is connected delta
+Tsd_c = (3*(Isd_c/sqrt(3))^2*R2)/(s*Ws_c); // Torque in Newton-Meter when Winding is connected delta
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.23 : SOLUTION :-");
+printf("\n For Case (a.1) Winding is connected in star \n");
+printf("\n (a.1.1) Per phase impedance seen from the terminals in Ohms, Z = %.3f < %.1f Ohms \n",abs(Z),atand(imag(Z),real(Z)));
+printf("\n (a.1.2) Initial Starting Current , Isy = %.2f A \n",Isy_a)
+printf("\n (a.1.3) Starting Torque , Tsy = %.1f Nm \n",Tsy_a)
+printf("\n For Case (a.2) Winding is connected in delta \n" );
+printf("\n (a.2.1) Initial Starting Current , Isd = %.2f A \n",Isd_a)
+printf("\n (a.2.2) Starting Torque , Tsd = %.2f Nm \n",Tsd_a)
+printf("\n For Case (b) Machine is started using auto-transfromer and voltage is 50 percentage reduced :- (b.1) Winding is connected in star \n ")
+printf("\n (b.1.1) Per phase impedance seen from the terminals in Ohms, Z = %.3f<%.1f Ohms \n",abs(Z),atand(imag(Z),real(Z)));
+printf("\n (b.1.2) Initial Starting Current , Isy = %.1f A \n",Isy_b)
+printf("\n (b.1.3) Starting Torque , Tsy = %.2f Nm \n",Tsy_b)
+printf("\n For Case (b.2) Winding is connected in delta \n" );
+printf("\n (b.2.1) Initial Starting Current , Isd = %.2f A \n",Isd_b)
+printf("\n (b.2.2) Starting Torque , Tsd = %.f Nm \n",Tsd_b)
+printf("\n For Case (c) Both Voltage and Frequency are reduced to 50 percentage :- (c.1) Winding is connected in star \n ");
+printf("\n (c.1.1) Per phase impedance seen from the terminals in Ohms, Z = %.2f<%.2f Ohms \n",abs(Z_c),atand(imag(Z_c),real(Z_c)));
+printf("\n (c.1.2) Initial Starting Current , Isy = %.2f A \n",Isy_c)
+printf("\n (c.1.3) Starting Torque , Tsy = %.2f Nm \n",Tsy_c)
+printf("\n For Case (c.2) Winding is connected in delta \n" );
+printf("\n (c.2.1) Initial Starting Current , Isd = %.2f A \n",Isd_c)
+printf("\n (c.2.2) Starting Torque , Tsd = %.2f Nm \n",Tsd_c)
+printf('\nComparing the Calculated values of starting current and torque eid rated frequency and rated voltage\n")
+printf("\n star delta\n")
+printf("\n 440V,50Hz 44V,5Hz 440V,50Hz 44V,5Hz \n")
+printf("\n starting current %.2f A %.f A %.f A %.2f A \n",Isy_a,Isy_c,Isd_a,Isd_c)
+printf("\n starting Torque %.1f Nm %.2f Nm %.f Nm %.2f Nm \n",Tsy_a,Tsy_c,Tsd_a,Tsd_c)
+printf("\n\n [ TEXT BOOK SOLUTION IS PRINTED WRONGLY ( I verified by manual calculation )]\n" );
+printf("\n WRONGLY PRINTED ANSWERS ARE :- For Case (a.2) Winding is connected in delta :- (a) Initial Starting Current Isy = 254.01 A instead of %.2f A \n\n ",Isd_a);
diff --git a/Working_Examples/2777/CH5/EX5.24/Ex5_24.sce b/Working_Examples/2777/CH5/EX5.24/Ex5_24.sce new file mode 100755 index 0000000..bd0bf31 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.24/Ex5_24.sce @@ -0,0 +1,74 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.24
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+m = 3; // Total Number of phase in Induction Motor
+f = 50; // Frequency in Hertz
+V = 440; // Operating voltage of the Induction Motor in Volts
+R1 = 0.2; // Circuit Parameter in Ohms
+R2 = 0.4; // Circuit Parameter in Ohms
+X1 = 1.0; // Circuit Parameter in Ohms
+X2 = 1.5; // Circuit Parameter in Ohms
+Rc = 150; // Circuit Parameter in Ohms
+Xm = 30; // Circuit Parameter in Ohms
+
+
+// CALCULATIONS
+
+V1 = V/sqrt(3); // Rated Voltage in Volts
+Zdol = (R1+%i*X1)+(Rc*%i*Xm*(R2+%i*X2))/(Rc*%i*Xm+Rc*(R2+%i*X2)+(%i*Xm)*(R2+%i*X2)); // Equivalent impedance per phase in DOL starter in Ohms
+I = V1/Zdol; // Starting Current in DOL starter in Amphere
+
+// For Case(a) A per Phase resistance of 0.5 Ohms is added in Series with the stator circuit
+
+Zsr = (0.5+R1+%i*X1)+((Rc*%i*Xm*(R2+%i*X2))/((Rc*%i*Xm+Rc*(R2+%i*X2)+(%i*Xm)*(R2+%i*X2)))); // Total impedance seen from the terminals in Ohms
+Isr = V1/Zsr; // Starting Current in DOL starter in Amphere
+
+// For Case(b) A per Phase resistance of 0.5 Ohms is added in Series with the rotor circuit here assumed that stator to rotor turn ratio is 1.0
+
+Zrr = (R1+%i*X1)+((Rc*%i*Xm*(0.5+R2+%i*X2))/(Rc*%i*Xm+Rc*(0.5+R2+%i*X2)+(%i*Xm)*(0.5+R2+%i*X2))); // Total impedance seen from the terminals in Ohms
+Irr = V1/Zrr; // Starting Current in DOL starter in Amphere
+
+// For Case(c) When applied Voltage reduced to 50%
+
+I_c = (0.5*V1)/Zdol; // Starting Current in DOL starter in Amphere
+
+// For Case(d) When Motor is supplied by reduced Voltage of 44V ( Voltage is reduced by 10%) and the reduced frequency is 5Hz
+
+f_n = 5; // Reduced Frequency in Hertz
+X1_n = (f_n/f)*X1; // Changed Circuit Parameter in Ohms
+X2_n = (f_n/f)*X2; // Changed Circuit Parameter in Ohms
+Xm_n = (f_n/f)*Xm; // Changed Circuit Parameter in Ohms
+Zdol_n = (R1+%i*X1_n)+((Rc*%i*Xm_n*(R2+%i*X2_n))/(Rc*%i*Xm_n+Rc*(R2+%i*X2_n)+(%i*Xm_n)*(R2+%i*X2_n))); // Equivalent impedance per phase in DOL starter in Ohms
+I_n = (V1*0.1)/Zdol_n; // Starting Current in DOL starter in Amphere
+Ratio = abs(I_n)/abs(I); // Ratio of the Starting Current witha the rated Voltage and frequency to the reduced Voltage and frequency
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.24 : SOLUTION :-");
+printf("\n Normal Initial Starting Current in DOL starter, I = %.1f <%.1f A \n",abs(I),atand(imag(I),real(I)))
+printf("\n For Case(a) A per Phase resistance of 0.5 Ohms is added in Series with the stator circuit \n")
+printf("\n Initial Starting Current in DOL starter, I = %.1f <%.2f A \n",abs(Isr),atand(imag(Isr),real(Isr)))
+printf("\n For Case(b) A per Phase resistance of 0.5 Ohms is added in Series with the rotor circuit \n")
+printf("\n Initial Starting Current in DOL starter, I = %.2f <%.1f A \n",abs(Irr),atand(imag(Irr),real(Irr)))
+printf("\n For Case(c) When applied Voltage reduced to 50 percentage \n")
+printf("\n Initial Starting Current in DOL starter, I = %.2f <%.1f A \n",abs(I_c),atand(imag(I_c),real(I_c)))
+printf("\n For Case(d) When Motor is supplied by reduced Voltage of 44V ( Voltage is reduced by 10 percenatge ) and the reduced frequency is 5Hz \n")
+printf("\n Initial Starting Current in DOL starter, I = %.1f <%.1f A \n",abs(I_n),atand(imag(I_n),real(I_n)))
+printf("\n By reducing volatge as well as the frequency, the peak starting current at the instant os starting is reduced by a fector of %.4f of the starting current with the reted volatge and frequency \n",Ratio)
+printf("\n\n [ TEXT BOOK SOLUTION IS PRINTED WRONGLY ( I verified by manual calculation )]\n" );
+printf("\n WRONGLY PRINTED ANSWERS ARE :- For Case(d) When Motor is supplied by reduced Voltage of 44V ( Voltage is reduced by 10 percenatge ) and the reduced frequency is 5Hz, I = 24.1 < 25.6 A instead of %.1f < (%.2f) A \n ",abs(I_n),atand(imag(I_n),real(I_n)));
+printf("\n Ratio of the Starting Current with the rated Voltage and frequency to the reduced Voltage and frequency, Ratio = 0.2518 instead of %.4f \n ",Ratio);
+
diff --git a/Working_Examples/2777/CH5/EX5.25/Ex5_25.sce b/Working_Examples/2777/CH5/EX5.25/Ex5_25.sce new file mode 100755 index 0000000..98245e2 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.25/Ex5_25.sce @@ -0,0 +1,34 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.25
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+m1 = 3; // Total Number of phase in 1st Induction Motor
+p1 = 6; // Total number of Poles of 1st Induction Motor
+f = 50; // Frequency in Hertz
+m2 = 3; // Total Number of phase in 2nd Induction Motor
+p2 = 10; // Total number of Poles of 2nd Induction Motor
+
+
+// CALCULATIONS
+
+Ns1 = (120*f)/p1; // Synchronous speed of 1st Induction Motor in RPM
+Ns2 = (120*f)/p2; // Synchronous speed of 2nd Induction Motor in RPM
+Nscu = (120*f)/(p1+p2); // Speed during cumalative casade in RPM
+Ndiff = (120*f)/(p2-p1); // Speed during cumalative casade in RPM
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.25 : SOLUTION :-");
+printf("\n (a) Range of speed is %.f - %.f - %.f - %.f RPM \n",Nscu,Ns2,Ns1,Ndiff)
diff --git a/Working_Examples/2777/CH5/EX5.26/Ex5_26.sce b/Working_Examples/2777/CH5/EX5.26/Ex5_26.sce new file mode 100755 index 0000000..33e3732 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.26/Ex5_26.sce @@ -0,0 +1,68 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.26
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+m = 3; // Total Number of phase in Induction Motor
+p = 4; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+V = 440; // Operating Voltage of the Inductuon Motor
+R1 = 0.25; // Circuit Parameter in Ohms
+R2 = 0.5; // Circuit Parameter in Ohms
+X1 = 1.5; // Circuit Parameter in Ohms
+X2 = 1.5; // Circuit Parameter in Ohms
+
+
+// CALCULATIONS
+
+Vph = V/sqrt(3); // Per phase Voltage in Volts
+Ns = (120*f)/p; // Synchoronous Speed in RPM
+Ws = (2*%pi*Ns)/60; // Roatation Speed in Radians per Seconds
+
+// For Case (a) Machine running at, N = 1400 RPM
+
+N_a = 1400; // Machine running in RPM
+s_a = (Ns-N_a)/Ns; // Slip
+I_2_a = Vph/(R1+(R2/s_a)+(%i*(X1+X2))); // Rotor per phase Current referred to the stator side in Amphere
+Pg_a = 3*(abs(I_2_a)^2*R2)/s_a; // 3-phase air gap power or Rotor intake Power in Watts
+T_a = Pg_a/Ws; // Torque in Newton-Meter
+
+// For Case (b) Machine running at, N = 1600 RPM
+
+N_b = 1600; // Machine running in RPM
+s_b = (Ns-N_b)/Ns; // Slip
+I_2_b = Vph/(R1+(R2/s_b)+(%i*(X1+X2))); // Rotor per phase Current referred to the stator side in Amphere
+Pg_b = 3*(abs(I_2_b)^2*R2)/s_b; // 3-phase air gap power or Rotor intake Power in Watts
+T_b = Pg_b/Ws; // Torque in Newton-Meter
+
+// For Case (b) Machine running at, N = -100 RPM
+
+N_c = -100; // Machine running in RPM
+s_c = (Ns-N_c)/Ns; // Slip
+I_2_c = Vph/(R1+(R2/s_c)+(%i*(X1+X2))); // Rotor per phase Current referred to the stator side in Amphere
+Pg_c = 3*(abs(I_2_c)^2*R2)/s_c; // 3-phase air gap power or Rotor intake Power in Watts
+T_c = -Pg_c/Ws; // Torque in Newton-Meter (minus sign because its counter opposing torque)
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.26 : SOLUTION :-");
+printf("\n For Case (a) Machine running at, N = 1400 RPM \n ")
+printf("\n (a.1) Rotor per phase Current referred to the stator side, I2 = %.2f < %.2f A \n",abs(I_2_a),atand(imag(I_2_a),real(I_2_a)))
+printf("\n (a.2) Developed Torque, T = %.2f Nm \n",T_a)
+printf("\n For Case (b) Machine running at, N = 1600 RPM \n ")
+printf("\n (a.1) Rotor per phase Current referred to the stator side, I2 = %.2f < %.2f A \n",abs(I_2_b),atand(imag(I_2_b),real(I_2_b)))
+disp(" ( angle -157.52 + 180 = 22.48 ) ")
+ printf("\n (a.2) Developed Torque, T = %.2f Nm \n",T_b)
+printf("\n For Case (c) Machine running at, N = -100 RPM \n ")
+printf("\n (c.1) Rotor per phase Current referred to the stator side, I2 = %.2f < %.2f A \n",abs(I_2_c),atand(imag(I_2_c),real(I_2_c)))
+printf("\n (c.2) Developed Torque, T = %.2f Nm \n",T_c)
diff --git a/Working_Examples/2777/CH5/EX5.27/Ex5_27.sce b/Working_Examples/2777/CH5/EX5.27/Ex5_27.sce new file mode 100755 index 0000000..4375b97 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.27/Ex5_27.sce @@ -0,0 +1,56 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.27
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+m = 3; // Total Number of phase in Induction Motor
+p = 2; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+V = 440; // Operating Voltage of the Inductuon Motor
+R1 = 0.25; // Circuit Parameter in Ohms
+R2 = 0.25; // Circuit Parameter in Ohms
+X1 = 0.75; // Circuit Parameter in Ohms
+X2 = 0.75; // Circuit Parameter in Ohms
+out_hp = 50; // Output of the induction motor in HP
+
+
+// CALCULATIONS
+
+V1 = V/sqrt(3); // Phase Voltage in Volts
+I = (out_hp*746)/(V*sqrt(3)); // Rated Current in Amphere
+sm = R2/(sqrt(R1^2+(X1+X2)^2)); // Slip at Maximum torque both its in Positive and negative sign
+Ws = 2*%pi*((120*f/p)*(1/60)); // Angular Roatation in Radians per Seconds
+Tm = (3*V1^2)/((2*Ws)*(R1+sqrt((R1^2)+(X1+X2)^2))); // Maximum torque during motoring in Newton-Meter
+Tg = -(3*V1^2)/((2*Ws)*(-R1+sqrt((R1^2)+(X1+X2)^2))); // Maximum torque during generating in Newton-Meter
+
+// For Case (a) slip = 0.05
+
+s_a = 0.05; // Slip
+T_a = (2*Tm)/((s_a/sm)+(sm/s_a)); // Torque in Newton-Meter
+
+// For Case (b) slip = -0.05
+
+s_b = -0.05; // Slip
+T_b = (2*Tg)/((s_b/sm)+(sm/s_b)); // Torque in Newton-Meter
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.27 : SOLUTION :-");
+printf("\n Maximim Torque during Motoring, Tm = %.f N-m \n",Tm)
+printf("\n Maximim Torque during Generating, Tm = %.2f N-m \n",Tg)
+printf("\n For Case (a) slip = 0.05 \n ")
+printf("\n (a.1) Torque, T = %.2f Nm \n",T_a)
+printf("\n For Case (b) slip = -0.05 \n ")
+printf("\n (b.1) Torque, T = %.2f Nm \n",T_b)
+
diff --git a/Working_Examples/2777/CH5/EX5.28/Ex5_28.sce b/Working_Examples/2777/CH5/EX5.28/Ex5_28.sce new file mode 100755 index 0000000..5eda796 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.28/Ex5_28.sce @@ -0,0 +1,43 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.28
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+m = 3; // Total Number of phase in Induction Motor
+p = 2; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+V = 440; // Operating Voltage of the Inductuon Motor in Volts
+R0 = 0.5; // Circuit Parameter in Ohms
+Ri = 0.05; // Circuit Parameter in Ohms
+X0 = 0.2; // Circuit Parameter in Ohms
+Xi = 0.9; // Circuit Parameter in Ohms
+s = 0.07; // Slip
+
+
+// CALCULATIONS
+
+Ws = 2*%pi*f; // Synchronous speed in Radins per second
+v = V/sqrt(3); // Phase Voltage in Volts
+Io = v/(R0+%i*X0); // Starting Current in the outer cage in Amphere
+Ii = v/(Ri+%i*Xi); // Starting Current in the inner cage in Amphere
+Tst = ((3*abs(Io)^2*R0)/Ws)+((3*abs(Ii)^2*Ri)/Ws); // Starting torque i.e at standstill, s=1
+Ios = v/((R0/s)+(%i*X0)); // Current in the outer cage at slip = 0.07
+Iis = v/((Ri/s)+(%i*Xi)); // Current in the outer cage at slip = 0.07
+T = ((3*abs(Ios)^2*R0)/(s*Ws))+((3*abs(Iis)^2*Ri)/(s*Ws)); // Starting torque at s=0.07 in Newton-Meter
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.28 : SOLUTION :-");
+printf("\n (a) Starting torque, Tst = %.2f Nm \n",Tst)
+printf("\n (b) Running torque at slip = 0.07, T = %.2f Nm \n",T)
diff --git a/Working_Examples/2777/CH5/EX5.29/Ex5_29.sce b/Working_Examples/2777/CH5/EX5.29/Ex5_29.sce new file mode 100755 index 0000000..573903d --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.29/Ex5_29.sce @@ -0,0 +1,48 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.29
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+p = 4; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+V = 440; // Operating Voltage of the Inductuon Motor in Volts
+out = 25*1000; // Power rating of the Induction motor in Watts
+R0 = 2.5; // Circuit Parameter in Ohms
+Ri = 0.5; // Circuit Parameter in Ohms
+X0 = 1.0; // Circuit Parameter in Ohms
+Xi = 5.0; // Circuit Parameter in Ohms
+Rc = 500; // Circuit Parameter in Ohms
+R1 = 0.2; // Circuit Parameter in Ohms
+Xm = 50; // Circuit Parameter in Ohms
+X123 = 2.0; // Circuit Parameter in Ohms
+s = 0.05; // Slip
+
+
+// CALCULATIONS
+
+Ws = (2*%pi*120*f)/(p*60); // Synchronous speed in Radins per second
+Zo = (R0/s)+(%i*X0); // Outer cage impedance at slip = 0.05 in Ohms
+Zi = (Ri/s)+(%i*Xi); // Inner cage impedance at slip = 0.05 in Ohms
+Z = (R1+%i*X123)+((Zo*Zi)/(Zo+Zi)); // Total impdance in Ohms
+I = V/Z; // Current in the Cage winding in Amphere
+Io = (I*((Zo*Zi)/(Zo+Zi)))/Zo; // Current in the outer cage in Amphere
+Ii = (I*((Zo*Zi)/(Zo+Zi)))/Zi; // Current in the inner cage in Amphere
+T = ((3*abs(Io)^2*R0)/(s*Ws))+((3*abs(Ii)^2*Ri)/(s*Ws)); // Starting torque in Newton-Meter
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.29 : SOLUTION :-");
+printf("\n (a) Torque at slip %.2f, T = %.2f Nm \n",s,T)
+
+
diff --git a/Working_Examples/2777/CH5/EX5.3/Ex5_3.sce b/Working_Examples/2777/CH5/EX5.3/Ex5_3.sce new file mode 100755 index 0000000..de6886f --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.3/Ex5_3.sce @@ -0,0 +1,46 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.3
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+s = 24; // Total number of the pole
+p = 4; // Total number of the poles in the Alternator
+
+
+// CALCULATIONS
+// For Case (a) Short pitching by one Slots
+
+spp = s/p; // Slot per pole
+E_a = ((180*2)/24)*(4/2); // Slot angle in Electrical
+kp_a = cosd(E_a/2); // Pitch Factor
+kp5_a = cosd((5*E_a)/2); // Pitch Factor
+kp7_a = cosd((7*E_a)/2); // Pitch Factor
+
+// For Case(b) Short pitching by two Slots
+
+E_b = 2*((180*2)/24)*(4/2); // Slot angle in Electrical
+kp_b = cosd(E_b/2); // Pitch Factor
+kp5_b = cosd((5*E_b)/2) // Pitch Factor
+kp7_b = cosd((7*E_b)/2); // Pitch Factor
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.3 : SOLUTION :-") ;
+printf("\n For Case (a) Short pitching by one Slots:- Pitch Facor , kp = %.4f \n ",kp_a);
+printf("\n kp5 = %.4f \n ",kp5_a);
+printf("\n kp7 = %.4f \n ",kp7_a);
+printf("\n For Case (a) Short pitching by Two Slots:- Pitch Facor , kp = %.4f \n ",kp_b);
+printf("\n kp5 = %.4f \n ",kp5_b);
+printf("\n kp7 = %.4f \n ",kp7_b);
+
diff --git a/Working_Examples/2777/CH5/EX5.30/Ex5_30.sce b/Working_Examples/2777/CH5/EX5.30/Ex5_30.sce new file mode 100755 index 0000000..70ec500 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.30/Ex5_30.sce @@ -0,0 +1,50 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.30
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+m = 1; // Total Number of phase in Induction Motor
+p = 2; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+V = 220; // Operating Voltage of the Inductuon Motor in Volts
+R1 = 10; // Circuit Parameter in Ohms
+R2 = 11; // Circuit Parameter in Ohms
+X1 = 12; // Circuit Parameter in Ohms
+X2 = 12; // Circuit Parameter in Ohms
+Xm = 125; // Circuit Parameter in Ohms
+s = 0.03; // Slip
+
+
+// CALCULATIONS
+
+Zf = ((%i*Xm/2)*((R2/(2*s))+(%i*X2/2)))/((%i*Xm/2)+(R2/(2*s))+(%i*X2/2)); // Impedance offered by the forward field in Ohms
+Zb = ((%i*Xm/2)*((R2/(2*(2-s)))+(%i*X2/2)))/((%i*Xm/2)+(R2/(2*(2-s)))+(%i*X2/2)); // Impedance offered by the backward field in Ohms
+Z = (R1+%i*X1)+Zf+Zb; // Total Impedance in Ohms
+I = V/Z; // Total input current in Amphere
+pf = cosd(atand(imag(I),real(I))); // Power Factor (lagging)
+Vf = I*Zf; // Forward Volatge at slip 0.03 in Volts
+Vb = I*Zb; // Backward Volatge at slip 0.03 in Volts
+If = Vf/(0.5*R2/s); // Forward Current in Amphere
+Ib = Vb/(0.5*R2/(2-s)); // Forward Current in Amphere
+Ws = 2*%pi*f; // Synchronous Speed in radians per second
+T = ((0.5*If^2*R2)/(s*Ws))-((0.5*Ib^2*R2)/((2-s)*Ws)); // Starting torque
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.30 : SOLUTION :-");
+printf("\n (a) Input Current, I = %.2f < %.f A \n",abs(I),atand(imag(I),real(I)))
+printf("\n (b) Power factor, pf = %.2f Lagging \n",pf)
+printf("\n (c) Developed Torque, T = %.3f Nm \n",T)
+
+
diff --git a/Working_Examples/2777/CH5/EX5.31/Ex5_31.sce b/Working_Examples/2777/CH5/EX5.31/Ex5_31.sce new file mode 100755 index 0000000..42e3428 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.31/Ex5_31.sce @@ -0,0 +1,63 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.31
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+Wsc = 900; // Power at Blocked Rotor test in Watts
+Vsc = 200; // Voltage at Blocked Rotor test in Volts
+Isc = 5.0; // Current at Blocked Rotor test in Amphere
+Wo = 60; // Power at No-load test in Watts
+Vo = 220; // Voltage at No-load test in Volts
+Io = 1.5; // Current at No-load test in Amphere
+m = 1; // Total Number of phase in Induction Motor
+p = 4; // Total number of Poles of Induction Motor
+V = 220; // Operating voltage of the Induction motor in Volts
+f = 50; // Frequency in Hertz
+s = 0.07; // Slip
+R1 = 12; // Resistance of the main primary winding in Ohms
+
+
+// CALCULATIONS
+
+Zsc = Vsc/Isc; // Impedance in Blocked Rotor test in Ohms
+Rsc = Wsc/(Isc^2); // Resistance in Blocked Rotor test in Ohms
+Xsc = sqrt((Zsc^2)-(Rsc^2)); // Reactance in Blocked Rotor test in Ohms
+Xl1 = Xsc/2; // Leakage reactance of stator and rotor to be equal in Ohms
+Xl2 = Xsc/2; // Leakage reactance of stator and rotor to be equal in Ohms
+R2 = Rsc-R1; // Equivalent resistance of rotor referred to stator in Ohms
+Z0 = Vo/Io; // Impedance in Blocked Rotor test in Ohms
+R0 = Wo/(Io^2); // Resistance in Blocked Rotor test in Ohms
+X0 = sqrt((Z0^2)-(R0^2)); // Reactance in Blocked Rotor test in Ohms
+Wloss = Wo - ((Io^2)*(R1+R2)); // Loss in Watts
+Xm_half = X0-Xl1-Xl2/2;
+R2f = (R2/s)+((%i*Xl2)/2); // Forward resiatance in Ohms
+Zf = ((%i*Xm_half)*R2f)/(%i*Xm_half+R2f); // Total Forward impedance in Ohms
+R2b = (R2/(2-s))+((%i*Xl2)/2); // Backward resiatance in Ohms
+Zb = ((%i*Xm_half)*R2b)/(%i*Xm_half+R2b); // Total Backward impedance in Ohms
+Z = Zf+Zb+(R1+%i*Xl1); // Total impedance in Ohms
+I = V/Z; // Motor Current in Amphere
+pf = cosd(atand(imag(I),real(I))); // Power Factor (lagging)
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.31 : SOLUTION :-");
+printf("\n Circuit Parameters are \n\n (a) Leakage reactance of stator and rotor to be equal, Xl1 = Xl2 = %.2f Ohms \n",Xl1)
+printf("\n (b) Equivalent resistance of rotor referred to stator, R2 = %.f Ohms \n",R2)
+printf("\n (c) Total Forward impedance, Zf = %.1f < %.2f Ohms \n",abs(Zf),atand(imag(Zf),real(Zf)))
+printf("\n (c) Total Backward impedance, Zb = %.2f < %.2f Ohms \n",abs(Zb),atand(imag(Zb),real(Zb)))
+printf("\n (d) Total impedance, Z = %.2f < %.2f Ohms \n",abs(Z),atand(imag(Z),real(Z)))
+printf("\n (e) Input Current, I = %.2f < %.2f A \n",abs(I),atand(imag(I),real(I)))
+printf("\n (f) Power factor, pf = %.2f Lagging \n",pf)
+
+
diff --git a/Working_Examples/2777/CH5/EX5.32/Ex5_32.sce b/Working_Examples/2777/CH5/EX5.32/Ex5_32.sce new file mode 100755 index 0000000..7741ec1 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.32/Ex5_32.sce @@ -0,0 +1,72 @@ +
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.32
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+Wsc = 600; // Power at Blocked Rotor test in Watts
+Vsc = 125; // Voltage at Blocked Rotor test in Volts
+Isc = 15.0; // Current at Blocked Rotor test in Amphere
+Wo = 360; // Power at No-load test in Watts
+Vo = 220; // Voltage at No-load test in Volts
+Io = 6.5; // Current at No-load test in Amphere
+m = 1; // Total Number of phase in Induction Motor
+p = 4; // Total number of Poles of Induction Motor
+V = 220; // Operating voltage of the Induction motor in Volts
+f = 50; // Frequency in Hertz
+s = 0.05; // Slip
+R1 = 1.2; // Resistance of the main primary winding in Ohms
+
+
+// CALCULATIONS
+
+Zlr = Vsc/Isc; // Impedance in Blocked Rotor test in Ohms
+Rlr = Wsc/(Isc^2); // Resistance in Blocked Rotor test in Ohms
+Xlr = sqrt((Zlr^2)-(Rlr^2)); // Reactance in Blocked Rotor test in Ohms
+Xl1 = Xlr/2; // Leakage reactance of stator and rotor to be equal in Ohms
+Xl2 = Xlr/2; // Leakage reactance of stator and rotor to be equal in Ohms
+R2 = (Rlr-R1); // Equivalent resistance of rotor referred to stator in Ohms
+R2_half = R2/2; // Equivalent resistance of rotor referred to stator in Ohms
+Z0 = Vo/Io; // Impedance in Blocked Rotor test in Ohms
+R0 = Wo/(Io^2); // Resistance in Blocked Rotor test in Ohms
+X0 = sqrt((Z0^2)-(R0^2)); // Reactance in Blocked Rotor test in Ohms
+Wloss = Wo - ((Io^2)*(R1+R2)); // Loss in Watts
+Xm_half = X0-Xl1-Xl2/2;
+R2f = (R2/(2*s))+((%i*Xl2)/2); // Forward resiatance in Ohms
+Zf = ((%i*Xm_half)*R2f)/(%i*Xm_half+R2f); // Total Forward impedance in Ohms
+R2b = (R2/(2*(2-s)))+((%i*Xl2)/2); // Backward resiatance in Ohms
+Zb = ((%i*Xm_half)*R2b)/(%i*Xm_half+R2b); // Total Backward impedance in Ohms
+Z = Zf+Zb+(R1+%i*Xl1); // Total impedance in Ohms
+I = V/Z; // Motor Current in Amphere
+pf = cosd(atand(imag(I),real(I))); // Power Factor (lagging)
+Vf = I*Zf; // Voltage across forward impedance in Volts
+If = Vf/R2f; // Forward current producing torque in Amphere
+Tf = ((abs(If)^2)*R2)/(2*s); // Forward torque in synchronous Watts
+Vb = I*Zb; // Voltage across Backward impedance in Volts
+Ib = Vb/R2b; // Backward current producing torque in Amphere
+Tb = ((abs(Ib)^2)*R2)/(2*(2-s)); // Backward torque in synchronous Watts
+T = Tf-Tb; // Net torque in Synchronous Watts
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.32 : SOLUTION :-");
+printf("\n Circuit Parameters are \n\n (a) Leakage reactance of stator and rotor to be equal, Xl1 = Xl2 = %.2f Ohms \n",Xl1)
+printf("\n (b) Equivalent resistance of rotor referred to stator, R2 = %.2f Ohms \n",R2)
+printf("\n (c) Total Forward impedance, Zf = %.1f < %.2f Ohms \n",abs(Zf),atand(imag(Zf),real(Zf)))
+printf("\n (c) Total Backward impedance, Zb = %.2f < %.2f Ohms \n",abs(Zb),atand(imag(Zb),real(Zb)))
+printf("\n (d) Total impedance, Z = %.2f < %.2f Ohms \n",abs(Z),atand(imag(Z),real(Z)))
+printf("\n (e) Input Current, I = %.2f < %.f A \n",abs(I),atand(imag(I),real(I)))
+printf("\n (f) Power factor, pf = %.4f Lagging \n",pf)
+printf("\n (g) Forward torque, Tf = %.2f Synchronous Watts \n",Tf)
+printf("\n (h) Backward torque, Tb = %.2f Synchronous Watts \n",Tb)
+printf("\n (i) Net torque, T = %.2f Synchronous Watts \n",T)
diff --git a/Working_Examples/2777/CH5/EX5.4/Ex5_4.sce b/Working_Examples/2777/CH5/EX5.4/Ex5_4.sce new file mode 100755 index 0000000..927a99f --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.4/Ex5_4.sce @@ -0,0 +1,31 @@ +// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.4
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+s = 60; // Total number of Slot
+m = 3; // Total number of Phase
+p = 4; // Total number of Pole
+
+
+// CALCULATIONS
+
+M = s/(m*p); // Slot per pole per Phase
+sigma = 180/m; // Phase Spread in angle (deg)
+Ka = sind((M*sigma)/2)/(M*sind(sigma/2)); // Distribution Factor
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.4 : SOLUTION :-");
+printf("\n (a) Distribution Factor, Ka = %.1f \n",Ka)
+
diff --git a/Working_Examples/2777/CH5/EX5.7/Ex5_7.sce b/Working_Examples/2777/CH5/EX5.7/Ex5_7.sce new file mode 100755 index 0000000..214e31c --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.7/Ex5_7.sce @@ -0,0 +1,36 @@ +// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.7
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+f = 50; // Frequency of the 2-pole Induction Motor
+p = 2; // Total Number of Poles
+
+
+// CALCULATIONS
+
+Ns = (120*f)/p; // Synchronous Speed in RPM
+Ns5 = -(120*f)/(5*p); // Synchronous Speed of 5th order space harmonic in RPM
+N5 = -(120*5*f)/p; // Synchronous Speed of 5th order time harmonic in RPM
+Ns7 = (120*f)/(7*p); // Synchronous Speed of 7th order space harmonic in RPM
+N7 = (120*7*f)/p; // Synchronous Speed of 7th order time harmonic in RPM
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.7 : SOLUTION :-");
+printf("\n (a.1) Synchronous Speed of 5th order space harmonic, Ns5 = %.f RPM \n",Ns5)
+printf("\n (a.2) Synchronous Speed of 5th order time harmonic, N5 = %.f RPM \n",N5)
+printf("\n (b.1) Synchronous Speed of 7th order space harmonic, Ns7 = %.2f RPM \n",Ns7)
+printf("\n (b.2) Synchronous Speed of 7th order time harmonic, N7 = %.f RPM \n",N7)
+
+
diff --git a/Working_Examples/2777/CH5/EX5.8/Ex5_8.sce b/Working_Examples/2777/CH5/EX5.8/Ex5_8.sce new file mode 100755 index 0000000..b8b1079 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.8/Ex5_8.sce @@ -0,0 +1,34 @@ +// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.8
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+p_a = 6; // Total number of Poles in the Alternator
+p_m = 4; // Total number of Poles of Induction Motor
+N_a = 900; // Running Speed of the Alternator in RPM
+N_m = 1250; // Running Speed of the Induction Motor in RPM
+m = 3; // Total Number of phase in Induction Motor
+
+
+// CALCULATIONS
+
+f = (N_a*p_a)/120; // Frequency of the 6-pole Alternator running at 900 RPM in Hertz
+Ns = (120*f)/p_m; // Synchronous Speed of 4-pole Induction Motor in RPM
+s = (Ns-N_m)/Ns; // Slip
+fr = s*f; // Frequency of the Rotor Current in Hertz
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.8 : SOLUTION :-");
+printf("\n (a) Frequency of the Rotor Current, fr = %.2f Hz \n",fr)
+
diff --git a/Working_Examples/2777/CH5/EX5.9/Ex5_9.sce b/Working_Examples/2777/CH5/EX5.9/Ex5_9.sce new file mode 100755 index 0000000..ebc4ea3 --- /dev/null +++ b/Working_Examples/2777/CH5/EX5.9/Ex5_9.sce @@ -0,0 +1,35 @@ +// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD
+
+// CHAPTER : 5 : INDUCTION MACHINES
+
+// EXAMPLE : 5.9
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+p = 2; // Total number of Poles of Induction Motor
+f = 50; // Frequency in Hertz
+Nr = 2800; // Running Speed of the Induction Motor in RPM
+m = 3; // Total Number of phase in Induction Motor
+V = 400; // Operating Voltage of Induction Motor in Volts
+
+
+// CALCULATIONS
+
+Ns = (120*f)/p; // Synchronous Speed in RPM
+s = 100*((Ns-Nr)/Ns); // Slip in Percentage
+fr = (s/100)*f; // Frequency of the Rotor Current in Hertz
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 5.9 : SOLUTION :-");
+printf("\n (a) Slip, s = %.2f percent \n",s);
+printf("\n (b) Frequency of the Rotor Current, fr = %.2f Hz \n",fr)
+
+
|