1 files changed, 22 insertions, 0 deletions
diff --git a/3760/CH8/EX8.12/ExA_12.sce b/3760/CH8/EX8.12/ExA_12.sce
new file mode 100644
index 000000000..2c6304242
--- /dev/null
+++ b/3760/CH8/EX8.12/ExA_12.sce
@@ -0,0 +1,22 @@
+clc;
+disp('case a');
+// as per the data taken from Ex 1_3
+rlg=24.948*10^5; // air gap reluctance for example 1_3(a)
+rlc=12.474*10^5; // iron core reluctance for example 1_3(a)
+rl=rlg+rlc; // net reluctance
+N=500; // Number of turns 
+L=(N^2/rl)*1000;
+printf('Inductance for case a is %f mH\n',L);
+disp('case b');
+// as per the data taken from Ex 1_3 part(c)
+B=1.254; // calculated flux density
+H=3200; // magnetic field intensity obtained from magnetisation curve corresponding to the flux density calculated
+uo=4*%pi*10^-7; // free space permeability
+ur=B/(H*uo); // relative permeability of iron core
+d=2.85*10^-2; // diameter of cross section
+A=(%pi*d^2)/4; // area of core
+l=0.5; // core length
+rlc=l/(ur*uo*A); // reluctance of iron core for part C
+rt=rlg+rlc; // net reluctance
+L=(N^2/rt)*1000;  
+printf('Inductance for case b is %f mH\n',L);