1 files changed, 25 insertions, 0 deletions
diff --git a/1964/CH3/EX3.8/ex3_8.sce b/1964/CH3/EX3.8/ex3_8.sce
new file mode 100755
index 000000000..b189e507d
--- /dev/null
+++ b/1964/CH3/EX3.8/ex3_8.sce
@@ -0,0 +1,25 @@
+//Chapter-3, Example 3.8, Page 112
+//=============================================================================
+clc
+clear
+//INPUT DATA
+N=1000;//no of turns in a coil
+a=10*10^-4;//crossectional area in m^2
+i1=4.2;//current in A in case 1
+i2=9.2;//current in A in case 2
+B1=1;//flux density in wb/m^2 when current is i1
+B2=1.42;//flux density in wb/m^2 when current is
+dt=0.05;//time in sec where current reduces from 9.2A to 4.2A
+//CALCULATIONS
+db=(B2-B1)//difference in flux densities
+di=(i2-i1);//difference in currents
+di1=(i1-i2);//difference in currents
+L=N*a*(db)/di;//average inductance between the limits in H
+E=-(L*di1/dt);//emf induced 
+//OUTPUT
+mprintf("Thus the average inductance between the limits is %1.3f H \n",L);
+mprintf("emf induced is %1.1f volts\n",E);
+
+//=================================END OF PROGRAM==============================
+
+