1 files changed, 53 insertions, 0 deletions
diff --git a/Working_Examples/2777/CH2/EX2.2/Ex2_2.sce b/Working_Examples/2777/CH2/EX2.2/Ex2_2.sce
new file mode 100755
index 0000000..d8992bb
--- /dev/null
+++ b/Working_Examples/2777/CH2/EX2.2/Ex2_2.sce
@@ -0,0 +1,53 @@
+
+// ELECTRICAL MACHINES
+// R.K.Srivastava
+// First Impression 2011
+// CENGAGE LEARNING INDIA PVT. LTD 
+
+// CHAPTER : 2 : FORCES IN AN ELECTROMAGNETIC SYSTEMS
+
+// EXAMPLE : 2.2 
+
+clear ; clc ; close ; // Clear the work space and console
+
+
+// GIVEN DATA
+
+N = 100;               // Number of turns
+La = 0.3;              // Mean arc length of material "a" is a Nickel-iron alloy in Metre
+Lb = 0.2;              // Mean arc length of material "b" is a Steel in Metre
+Lc = 0.1;              // Mean arc length of material "c" is a Cast Steel in Metre
+a = 0.001;             // Area of the all Materials "a,b,c" in Metre-Square
+phi = 6*10^-4;         // Magnetic Flux in Weber
+mue_0 = 4*%pi*10^ -7;  // Permeability of the air in Henry/Meter
+
+
+// CALCULATIONS
+
+B = phi/a;                      // Flux Density in Telsa (Here Flux Density same for all the Materials "a,b,c" because Area of Cross Section is Same)
+Ha = 10;                        // Fileld Intensity in Amphere-Turn/Meter Correspounding to Flux density (B) of material "a" obtained from the Standard B-H curve
+Hb = 77;                        // Fileld Intensity in Amphere-Turn/Meter Correspounding to Flux density (B) of material "b" obtained from the Standard B-H curve
+Hc = 270;                       // Fileld Intensity in Amphere-Turn/Meter Correspounding to Flux density (B) of material "c" obtained from the Standard B-H curve
+F = (Ha*La)+(Hb*Lb)+(Hc*Lc);    // The Total MMF Required in Amphere-Turns
+I = F/N;                        // Current flowing through the Coil in Amphere
+mue_r_a = B/(Ha*mue_0);        // Relatative permeability of the Material "a"
+mue_r_b = B/(Hb*mue_0);        // Relatative permeability of the Material "a"
+mue_r_c = B/(Hc*mue_0);        // Relatative permeability of the Material "a"
+Ra = (Ha*La)/phi;              // Relucatnce of the Material "a" in MKS unit
+Rb = (Hb*Lb)/phi;              // Relucatnce of the Material "b" in MKS unit
+Rc = (Hc*Lc)/phi;              // Relucatnce of the Material "c" in MKS unit
+L = (N*phi)/I;                 // Inductance of the Coil in Henry
+
+
+// DISPLAY RESULTS
+
+disp("EXAMPLE : 2.2 : SOLUTION :-") ;
+printf("\n (a)   The Total MMF , F = %.1f At \n ",F);
+printf("\n (b)   Current flowing through the Coil , I = %.3f A \n",I);
+printf("\n (c.1) Relatative permeability of the Material a, mue_r_a = %.f \n ",mue_r_a);
+printf("\n (c.2) Relatative permeability of the Material b, mue_r_b = %.f \n ",mue_r_b);
+printf("\n (c.3) Relatative permeability of the Material c, mue_r_c = %.f \n ",mue_r_c);
+printf("\n (c.4) Relucatnce of the Material a, Ra= %.f MKS unit \n",Ra);
+printf("\n (c.5) Relucatnce of the Material b, Rb= %.1f MKS unit \n",Rb);
+printf("\n (c.6) Relucatnce of the Material c, Rc= %.f MKS unit \n",Rc);
+printf("\n (d)   Inductance of the Coil , L = %.4f H \n",L);