12 files changed, 235 insertions, 0 deletions
diff --git a/3574/CH4/EX4.1/EX4_1.png b/3574/CH4/EX4.1/EX4_1.png
new file mode 100644
index 000000000..d92a3df1a
--- /dev/null
+++ b/3574/CH4/EX4.1/EX4_1.png
diff --git a/3574/CH4/EX4.1/EX4_1.sce b/3574/CH4/EX4.1/EX4_1.sce
new file mode 100644
index 000000000..a2629f77a
--- /dev/null
+++ b/3574/CH4/EX4.1/EX4_1.sce
@@ -0,0 +1,18 @@
+// Example 4.1
+// Computation of synchronous speed of a six pole induction motor
+// Page No. 140
+
+clc;
+clear;
+close;
+
+// Given data
+f=60;                // Frequency
+p=6;                 // Number of poles
+
+
+fs=f*0.85;           // Frequency is 85% of its rated value
+ns=120*fs/p;         // Synchronous speed
+
+// Display result on command window
+printf("\n Synchronous speed of a six pole induction motor = %0.0f r/min ",ns);
diff --git a/3574/CH4/EX4.2/EX4_2.png b/3574/CH4/EX4.2/EX4_2.png
new file mode 100644
index 000000000..43ba98685
--- /dev/null
+++ b/3574/CH4/EX4.2/EX4_2.png
diff --git a/3574/CH4/EX4.2/EX4_2.sce b/3574/CH4/EX4.2/EX4_2.sce
new file mode 100644
index 000000000..eb605e746
--- /dev/null
+++ b/3574/CH4/EX4.2/EX4_2.sce
@@ -0,0 +1,32 @@
+// Example 4.2
+// Computation of (a) Frequency (b) Induced voltage of six pole induction motor
+// Page No. 143
+
+clc;
+clear;
+close;
+
+// Given data
+f=60;                // Frequency
+p=6;                 // Number of poles
+nr=1100;             // Rotor speed
+Ebr=100;             // Blocked rotor voltage
+
+// (a) Synchronous speed
+ns=120*f/p;              // Synchronous speed
+
+// (b) Slip
+s=(ns-nr)/ns;              // Slip
+
+// (c) Rotor frequency
+fr=s*f;              // Rotor frequency
+
+// (d) Rotor voltage
+Er=s*Ebr;              // Rotor voltage
+
+
+// Display result on command window
+printf("\n Synchronous speed = %0.0f r/min ",ns);
+printf("\n Slip = %0.4f  ",s);
+printf("\n Rotor frequency = %0.1f Hz ",fr);
+printf("\n Rotor voltage = %0.2f V ",Er);
diff --git a/3574/CH4/EX4.3/EX4_3.png b/3574/CH4/EX4.3/EX4_3.png
new file mode 100644
index 000000000..2483aa565
--- /dev/null
+++ b/3574/CH4/EX4.3/EX4_3.png
diff --git a/3574/CH4/EX4.3/EX4_3.sce b/3574/CH4/EX4.3/EX4_3.sce
new file mode 100644
index 000000000..7669aef39
--- /dev/null
+++ b/3574/CH4/EX4.3/EX4_3.sce
@@ -0,0 +1,57 @@
+// Example 4.3
+// Determine (a) Synchronous speed (b) Slip (c) Rotor impedance (d) Rotor current
+// (e) Rotor current if changing the shaft load resulted in 1.24 percenr slip 
+// (f) Speed for the condition in (e) 
+// Page No. 146
+
+clc;
+clear;
+close;
+
+// Given data
+fs=60;                  // Frequency
+p=6;                    // Number of poles
+nr=1164;                // Rotor speed
+Rr=0.10;                // Equivalent resistance
+Xbr=0.54;               // Equivalent reactance
+Ebr=150;                // Blocked rotor voltage per phase
+s1=0.0124;              // Percent slip
+
+// (a) Synchronous speed
+ns=120*fs/p;               // Speed 
+
+// (b) Slip
+s=(ns-nr)/ns; 
+
+// (c) Rotor impedance  
+Zr=(Rr/s)+%i*Xbr;
+// Complex to Polar form...
+Zr_Mag=sqrt(real(Zr)^2+imag(Zr)^2);         // Magnitude part
+Zr_Ang=atan(imag(Zr),real(Zr))*180/%pi;     // Angle part 
+
+// (d) Rotor current
+Ir_Mag=Ebr/Zr_Mag;                          // Magnitude
+Ir_Ang=0-Zr_Ang;                            // Angle
+
+// (e) Rotor current if changing the shaft load resulted in 1.24 percent slip 
+Zrnew=Rr/s1+%i*Xbr;
+// Complex to Polar form...
+Zrnew_Mag=sqrt(real(Zrnew)^2+imag(Zrnew)^2);         // Magnitude part
+Zrnew_Ang=atan(imag(Zrnew),real(Zrnew))*180/%pi;     // Angle part 
+
+Irnew_Mag=Ebr/Zrnew_Mag;                             // Magnitude
+Irnew_Ang=0-Zrnew_Ang;                               // Angle
+
+// (f) Speed for the condition in (e) 
+nr=ns*(1-s1); 
+
+// Display result on command window
+printf("\n Synchronous speed = %0.0f r/min ",ns);
+printf("\n Slip = %0.3f ",s);
+printf("\n Rotor impedance magnitude = %0.2f Ohm ",Zr_Mag);
+printf("\n Rotor impedance angle = %0.2f deg ",Zr_Ang);
+printf("\n Rotor current magnitude = %0.1f Ohm ",Ir_Mag);
+printf("\n Rotor current angle = %0.1f deg ",Ir_Ang);
+printf("\n Rotor current magnitude by changing the shaft load = %0.1f Ohm ",Irnew_Mag);
+printf("\n Rotor current angle by changing the shaft load = %0.2f deg ",Irnew_Ang);
+printf("\n New rotor speed = %0.0f r/min ",nr);
diff --git a/3574/CH4/EX4.4/EX4_4.png b/3574/CH4/EX4.4/EX4_4.png
new file mode 100644
index 000000000..5266e7da7
--- /dev/null
+++ b/3574/CH4/EX4.4/EX4_4.png
diff --git a/3574/CH4/EX4.4/EX4_4.sce b/3574/CH4/EX4.4/EX4_4.sce
new file mode 100644
index 000000000..a5f21e675
--- /dev/null
+++ b/3574/CH4/EX4.4/EX4_4.sce
@@ -0,0 +1,39 @@
+// Example 4.4
+// Determine (a) Total three phase apparent power crossing the air gap 
+// (b) Active and reactive components (c) Rotor power factor
+// Page No. 149
+
+clc;
+clear;
+close;
+
+// Given data
+Ebr=150;                // Blocked rotor voltage per phase
+Ir_Mag=44.421;          // Rotor current magnitude
+Ir_Ang=-9.2;            // Rotor current angle
+Ir_magConj=9.2; 
+
+
+// (a) Total three phase apparent power crossing the air gap 
+Sgap_Mag=3*Ebr*Ir_Mag;     // Apparent power crossing the air gap magnitude
+Sgap_Ang=Ir_magConj;       // Apparent power crossing the air gap angle
+
+// Polar to Complex form
+Sgap_R=Sgap_Mag*cos(-Sgap_Ang*%pi/180); // Real part of complex number
+Sgap_I=Sgap_Mag*sin(Sgap_Ang*%pi/180); //Imaginary part of complex number
+Sgap=ceil(Sgap_R)+%i*ceil(Sgap_I);
+
+// (b) Active and reactive components 
+Pgap=Sgap_R;               // Active power component
+Qgap=Sgap_I;               // Reactive power component
+
+// (c) Rotor power factor
+FP=cosd(Ir_magConj);
+
+// Display result on command window
+printf("\n Total three phase apparent power crossing the air gap (VA) =");
+disp(Sgap);
+printf("\n Active power component = %0.0f W",Pgap);
+printf("\n Reactive power component = %0.0f var ",Qgap);
+printf("\n Rotor power factor = %0.2f ",FP);
+
diff --git a/3574/CH4/EX4.5/EX4_5.png b/3574/CH4/EX4.5/EX4_5.png
new file mode 100644
index 000000000..9718b95cd
--- /dev/null
+++ b/3574/CH4/EX4.5/EX4_5.png
diff --git a/3574/CH4/EX4.5/EX4_5.sce b/3574/CH4/EX4.5/EX4_5.sce
new file mode 100644
index 000000000..633446cee
--- /dev/null
+++ b/3574/CH4/EX4.5/EX4_5.sce
@@ -0,0 +1,34 @@
+// Example 4.5
+// Computation of (a) Shaft speed (b) Mechanical power developed
+// (c) Developed torque
+// Page No. 152
+
+clc;
+clear;
+close;
+
+// Given data
+Prcl=263;               // Rotor copper loss
+Pgap=14580;             // Power input to the rotor
+fs=60;                  // Frequency
+p=4;                    // Number of poles
+
+
+
+// (a) Shaft speed
+s=Prcl/Pgap;               // Slip
+ns=120*fs/p;               // Speed of stator
+nr=ns*(1-s);               // Speed of shaft
+
+// (b) Mechanical power developed
+Pmech=Pgap-Prcl;                  // Mechanical power developed
+Pmechhp=Pmech/746;                // Mechanical power developed in hp
+
+//(c) Developed torque
+TD=5252*Pmechhp/nr;
+
+
+// Display result on command window
+printf("\n Shaft speed = %0.1f r/min ",nr);
+printf("\n Mechanical power developed in hp = %0.2f hp ",Pmechhp);
+printf("\n Developed torque = %0.1f lb-ft ",TD);
diff --git a/3574/CH4/EX4.6/EX4_6.png b/3574/CH4/EX4.6/EX4_6.png
new file mode 100644
index 000000000..de03e2ab8
--- /dev/null
+++ b/3574/CH4/EX4.6/EX4_6.png
diff --git a/3574/CH4/EX4.6/EX4_6.sce b/3574/CH4/EX4.6/EX4_6.sce
new file mode 100644
index 000000000..ca4a27b8c
--- /dev/null
+++ b/3574/CH4/EX4.6/EX4_6.sce
@@ -0,0 +1,55 @@
+// Example 4.6
+// Determine (a) Power input (b) Total losses (c) Air gap power (d) Shaft speed
+// (e) Power factor (f) Combined windage, friction and stray load loss
+// (g) Shaft torque
+// Page No. 159
+
+clc;
+clear;
+close;
+
+// Given data
+Pshaft=74600;                // Shaft power
+eeta=0.910;                  // Rated efficiency
+ns=1200;                     // Speed of stator
+Pcore=1697;                  // Power in core
+Pscl=2803;                   // Stator copper loss
+Prcl=1549;                   // Rotor copper loss
+fs=60;                       // Synchronous frequency
+p=6;                         // Number of poles
+Vline=230;                   // Line voltage
+Iline=248;                   // Line current
+
+// (a) Power input
+Pin=Pshaft/eeta;             // Parallel resistance
+
+// (b) Total losses
+Ploss=Pin-Pshaft;
+
+//(c) Air gap power
+Pgap=Pin-Pcore-Pscl;
+
+// (d) Shaft speed
+s=Prcl/Pgap;      // Parallel resistance
+ns=120*fs/p;
+nr=ns*(1-s);
+
+// (e) Power factor
+Sin=sqrt(3)*Vline*Iline;
+FP=Pin/Sin;
+
+//(f) Combined windage, friction and stray load loss
+Closs=Ploss-Pcore-Pscl-Prcl;
+
+//(g) Shaft torque
+Tshaft=5252*100/nr;
+
+
+// Display result on command window
+printf("\n Power input = %0.0f W",Pin);
+printf("\n Total losses = %0.0f W",Ploss);
+printf("\n Air gap power = %0.0f W ",Pgap);
+printf("\n Shaft speed = %0.0f r/min ",nr);
+printf("\n Power factor = %0.2f ",FP);
+printf("\n Combined windage, friction and stray load loss = %0.0f W ",Closs);
+printf("\n Shaft torque = %0.1f lb-ft ",Tshaft);