initial commit / add all books

9 files changed, 148 insertions, 0 deletions

diff --git a/1628/CH18/EX18.1/Ex18_1.sce b/1628/CH18/EX18.1/Ex18_1.sce
new file mode 100755
index 000000000..2010cfb80
--- /dev/null
+++ b/1628/CH18/EX18.1/Ex18_1.sce
@@ -0,0 +1,22 @@
+
+                // Examle 18.1
+
+I=0.015;                 // Current in a coil
+B=0.2;                   // Megnetic flux density
+l=0.02;                  // Length of megnetic field
+n1=42;                   // No.Of turns N1
+r=0.0125;                // radius of coil
+n2=43;                   // No.Of turns N2
+F1=I*B*l*n1;             // The force on(42-Conductors)
+disp('The force on(42-Conductors) = '+string(F1)+' N');
+
+F2=I*B*l*n2;             // The force on(43-Conductors)
+disp('The force on(43-Conductors) = '+string(F2)+' N');
+
+Tr=(F1+F2)*r;            // Total Torque (Td)
+disp ('Total Torque (Td) = '+string(Tr)+' Nm');
+
+
+
+
+             //  p 756          18.1
\ No newline at end of file
diff --git a/1628/CH18/EX18.10/Ex18_10.sce b/1628/CH18/EX18.10/Ex18_10.sce
new file mode 100755
index 000000000..752bfc1c2
--- /dev/null
+++ b/1628/CH18/EX18.10/Ex18_10.sce
@@ -0,0 +1,17 @@
+
+
+                     // Examle 18.10
+
+w=0.004;              // width of the coil
+l=0.005;              // Length of the coil
+A=w*l;                // Area of the coil
+B=0.1;                // Megnetic flux density
+n=80;                 // No.Of turns
+tc=0.5*60*10^-6;      // Controling torque
+td=3*10^-3;           // Deflecting torque
+I=tc/(B*n*A);         // Current
+disp('Current (I) = '+string(I)+' Amp');
+
+
+
+     //   p 777         18.10
\ No newline at end of file
diff --git a/1628/CH18/EX18.2/Ex18_2.sce b/1628/CH18/EX18.2/Ex18_2.sce
new file mode 100755
index 000000000..3d86a924a
--- /dev/null
+++ b/1628/CH18/EX18.2/Ex18_2.sce
@@ -0,0 +1,15 @@
+
+                // Examle 18.2
+
+Ifs=10*10^-3;            // Maximum current
+Im=100*10^-6;            // Full-scale diflection current
+Rm=100;                  // Internal resistance
+Ish=Ifs-Im;              // Shunt Current (Ish)
+disp('Shunt Current (Ish) = '+ string(Ish)+' Amp');
+
+Rsh=(Im*Rm)/Ish;         // Shunt Current (Rsh)
+disp('Shunt Current (Rsh) = '+ string(Rsh)+' ohms');
+
+
+
+            //  p 762     18.2
\ No newline at end of file
diff --git a/1628/CH18/EX18.4/Ex18_4.sce b/1628/CH18/EX18.4/Ex18_4.sce
new file mode 100755
index 000000000..ce1a054d5
--- /dev/null
+++ b/1628/CH18/EX18.4/Ex18_4.sce
@@ -0,0 +1,13 @@
+
+                // Examle 18.4
+
+Im=50*10^-6;                // Current sensitivity
+Rm=100;                     // Internal resistance
+Vf=50;                      // volt-meter range
+Rs=(Vf/Im)-Rm;              // The Value of Resister (Rs)
+disp ('The Value of Resister (Rs) = '+string(Rs/1000)+' kilo-ohms');
+
+
+
+
+              //  p 767    18.4 
\ No newline at end of file
diff --git a/1628/CH18/EX18.5/Ex18_5.sce b/1628/CH18/EX18.5/Ex18_5.sce
new file mode 100755
index 000000000..88eb3ca65
--- /dev/null
+++ b/1628/CH18/EX18.5/Ex18_5.sce
@@ -0,0 +1,15 @@
+
+                // Examle 18.5
+
+Im=50*10^-6;              // Current sensitivity
+Rm=1000;                  // Internal resistance
+Vf=50;                    // volt-meter range
+Rs=(Vf/Im)-Rm;            // The Value of Resister (Rs)
+disp ('The Value of Resister (Rs) = '+string(Rs/1000)+' kilo-ohms');
+
+n=Vf/(Im*Rm);            // The Voltage Multiplying Factor (N)
+disp('The Voltage Multiplying Factor (N) = '+string(n));
+ 
+
+
+              // p 767    18.5
\ No newline at end of file
diff --git a/1628/CH18/EX18.6/Ex18_6.sce b/1628/CH18/EX18.6/Ex18_6.sce
new file mode 100755
index 000000000..98eb18492
--- /dev/null
+++ b/1628/CH18/EX18.6/Ex18_6.sce
@@ -0,0 +1,25 @@
+
+                     // Examle 18.6
+
+s=1000;                         // Sensitivity of Volt-meter A
+r=50;                           // Load resistance
+Vt=50;                          // Range of volt-meter
+Ri1=s*r;                        // Internal resistance of Volt-meter A 
+V1=150*{25000/(100000+25000)};  // Voltage in Ist Meter
+disp('Voltage in Ist Meter (V) = '+string(V1)+' Volt');
+
+s1=20000;                       // Sensitivity of Volt-meter B
+Ri2=s1*r;                       // Internal resistance of Volt-meter B
+V2=150*{47600/(100000+47600)};  // Voltage in 2nd Meter
+disp('Voltage in 2nd Meter (V) = '+string(V2)+' Volt');
+
+Er1=(Vt-V1)*100/Vt;             // % Error in Ist meter
+disp('% Error in Ist meter = '+string(Er1)+' %');
+
+Er2=(Vt-48.36)*100/Vt;           // % Error in 2nd meter ==> { V2=48.3739, but taking V2= 48.36 }
+disp('% Error in 2nd meter = '+string(Er2)+' %');
+
+
+
+
+          //  p 770         18.6
\ No newline at end of file
diff --git a/1628/CH18/EX18.7/Ex18_7.sce b/1628/CH18/EX18.7/Ex18_7.sce
new file mode 100755
index 000000000..79e2b9424
--- /dev/null
+++ b/1628/CH18/EX18.7/Ex18_7.sce
@@ -0,0 +1,15 @@
+
+                     // Examle 18.7
+
+k=60/20;                 // Derived from  { Q= k x I }
+i=12;                    // Current
+Q1=k*i;                  // Diflection for Spring-Control Current
+disp('Diflection for Spring-Control Current = '+string(Q1)+' Digree');
+
+k1=sind(60)/20;          // Derived from { SinQ= k x I }
+Q2=asind(k1*12);         // Diflection for Gravity-Control Current
+disp('Diflection for Gravity-Control Current = '+string(Q2)+' Digree');
+
+
+
+             // 775      18.7
\ No newline at end of file
diff --git a/1628/CH18/EX18.8/Ex18_8.sce b/1628/CH18/EX18.8/Ex18_8.sce
new file mode 100755
index 000000000..2b601f32e
--- /dev/null
+++ b/1628/CH18/EX18.8/Ex18_8.sce
@@ -0,0 +1,13 @@
+
+
+                     // Examle 18.8
+
+w=0.005;                  // Controling weigth
+l=0.024;                  // Distance
+td=1.05*10^-4;            // Deflecting torque
+k=asind(td/(w*l));        // Diflection  in Digree (@)
+disp('Diflection  in Digree (@) = '+string(round(k))+' Digree');
+
+
+
+       //  p 776        18.8
\ No newline at end of file
diff --git a/1628/CH18/EX18.9/Ex18_9.sce b/1628/CH18/EX18.9/Ex18_9.sce
new file mode 100755
index 000000000..c6f8f6f19
--- /dev/null
+++ b/1628/CH18/EX18.9/Ex18_9.sce
@@ -0,0 +1,13 @@
+
+                     // Examle 18.9
+
+i1=10;                          // Current I1 
+i2=5;                           // Current I2 
+Q=90;                           // Deflection due to 10 Amp
+Q1=(i2/i1)^2*Q;                 // Diflection for Spring-Control Current
+disp('Diflection for Spring-Control Current = '+string(Q1)+' Digree');
+
+        // Using formula ==> {  Q2= Sin[(i2/i1)^2*sin(Q)]  }
+
+Q2=asind((i2/i1)^2*sind(Q));    // Diflection for Gravity-Control Current
+disp('Diflection for Gravity-Control Current = '+string(Q2)+' Digree');
\ No newline at end of file