6 files changed, 117 insertions, 0 deletions
diff --git a/1628/CH17/EX17.1/Ex17_1.sce b/1628/CH17/EX17.1/Ex17_1.sce
new file mode 100755
index 000000000..e2cb67334
--- /dev/null
+++ b/1628/CH17/EX17.1/Ex17_1.sce
@@ -0,0 +1,24 @@
+
+                             // Examle 17.1
+
+f=50;                 // Frequency
+p=4;                  // No.Of poles
+Ns=(120*f)/p;         // Synchronous speed 
+N=1410;               // No.Of Revolution in rmp
+I=2.9;                // I/p current
+V=230;                // Supply voltage
+CosQ=0.71;            // Power factor 
+s=(Ns-N)/Ns;          // The Slip
+disp(' The Slip is = '+string(s*100)+' %');
+
+po=375;               // O/p power
+pin=V*I*CosQ;         // I/p power
+eff=po/pin;           // Efficiency
+disp(' The efficiency is = '+string(eff*100)+' %');
+
+
+
+
+
+ 
+                   //  p 683       17.1
diff --git a/1628/CH17/EX17.2/Ex17_2.sce b/1628/CH17/EX17.2/Ex17_2.sce
new file mode 100755
index 000000000..e4ebcf7a9
--- /dev/null
+++ b/1628/CH17/EX17.2/Ex17_2.sce
@@ -0,0 +1,27 @@
+
+                     // Examle 17.2
+
+
+zm=(5+%i*12);            // Impedence of main-Winding
+za=(12+%i*5);            // Impedence of starting-Winding
+V=230+%i*0;              // Supply voltage
+Im=V/zm;                 // Current in main-Winding
+disp(' The Current in main-Winding = '+string(Im)+' Amp  or  ('+string(abs(Im))+' <'+string(atand(imag(Im),real(Im)))+' Amp )');
+
+Ia=V/za;                 // Current in starting-Winding
+disp(' The Current in starting-Winding = '+string(Ia)+' Amp  or  ('+string(abs(Ia))+' <'+string(atand(imag(Ia),real(Ia)))+' Amp )');
+
+Il=Im+Ia;                // The line Current
+disp(' The line Current = '+string(Il)+' Amp  or  ('+string(abs(Il))+' <'+string(atand(imag(Il),real(Il)))+' Amp )');
+
+Qa=-22.62;               // Phase angle of starting-winding
+Qm=-67.38;               // Phase angle of main-winding
+Q=Qa-Qm;                 // The phase displacement (Q)
+disp(' The phase displacement (Q) = '+string(Q)+'  i.e = '+string(round(Q))+' Digree');
+
+pf=cosd(round(Q));       // The Power factor
+disp(' The Power factor is = '+string(pf)+' lagging');
+
+
+
+               // p 683        17.2 
+\ No newline at end of file
diff --git a/1628/CH17/EX17.3/Ex17_3.sce b/1628/CH17/EX17.3/Ex17_3.sce
new file mode 100755
index 000000000..15f61b4a8
--- /dev/null
+++ b/1628/CH17/EX17.3/Ex17_3.sce
@@ -0,0 +1,18 @@
+
+                // Examle 17.3
+
+Xm=20;                    // Inductive reactance of Main-winding
+Rm=2;                     // Main-winding resistance
+Ra=25;                    // Auxilliary-winding resistance
+f=50;                     // Frequency
+Xa=5;                     // Inductive reactance of Auxilliary-winding
+Qm=atand(Xm/Rm);          // Angle of Main-winding
+Qa=Qm-90;                 // Angle of Auxilliary-winding
+Xc=Xa-(tand(Qa)*Ra);      // Capacitive reactance
+C=1/(2*%pi*f*7.495);      //Capacitor (C)   ==> { Xc= 7.5 ,but taking Xc= 7.495 }
+disp('The value of Capacitor (C) = '+string(C)+' F');
+
+
+
+
+            // p 684    17.3
+\ No newline at end of file
diff --git a/1628/CH17/EX17.4/Ex17_4.sce b/1628/CH17/EX17.4/Ex17_4.sce
new file mode 100755
index 000000000..04792c792
--- /dev/null
+++ b/1628/CH17/EX17.4/Ex17_4.sce
@@ -0,0 +1,17 @@
+
+                // Examle 17.4
+
+b=2.5;              // Step Angle
+r=360/b;            // Resolution (r)
+disp('Resolution (r) = '+string(r)+' steps per revolution');
+
+n=r*25;             // No.Of step Required for (25 Rev)
+disp('No.Of step Required for (25 Rev) = '+string(n));
+
+s=(b*n)/360;        // Shaft Speed (s)
+disp('Shaft Speed (s) = '+string(s)+' rps');
+
+
+
+
+         //  p 689      17.4    
+\ No newline at end of file
diff --git a/1628/CH17/EX17.5/Ex17_5.sce b/1628/CH17/EX17.5/Ex17_5.sce
new file mode 100755
index 000000000..221e6dd32
--- /dev/null
+++ b/1628/CH17/EX17.5/Ex17_5.sce
@@ -0,0 +1,17 @@
+
+                // Examle 17.5
+
+b=15;                           // Step Angle
+m=3;                            // No.Oh phase 
+Nr=360/(m*b);                   // Number of rotors
+disp('No.Of Rotors = '+string(abs(Nr)));
+
+Ns1=(Nr*360)/((b*Nr)-360);      // No.Of Stator When (Ns > Nr)
+disp('No.Of Stator When (Ns > Nr) = '+string(abs(Ns1)));
+
+Ns2=(Nr*360)/((b*Nr)+360);      // No.Of Stator When (Ns < Nr)
+disp('No.Of Stator When (Ns < Nr) = '+string(Ns2));
+
+
+
+             // p 690     17.5
+\ No newline at end of file
diff --git a/1628/CH17/EX17.6/Ex17_6.sce b/1628/CH17/EX17.6/Ex17_6.sce
new file mode 100755
index 000000000..2e0f3df9e
--- /dev/null
+++ b/1628/CH17/EX17.6/Ex17_6.sce
@@ -0,0 +1,14 @@
+
+
+                // Examle 17.6
+
+       //  ==> Given 4 Stack VR stepper motor
+
+m=4;               // No.Oh phase
+b=1.8;             // Step Angle
+Nr=360/(b*m);      // Number of rotors
+disp('Number of rotors = '+string(Nr));
+
+
+
+           //  p 692     17.6
+\ No newline at end of file