1 files changed, 15 insertions, 0 deletions
diff --git a/1529/CH9/EX9.17/9_17.sce b/1529/CH9/EX9.17/9_17.sce
new file mode 100755
index 000000000..d5e7281fd
--- /dev/null
+++ b/1529/CH9/EX9.17/9_17.sce
@@ -0,0 +1,15 @@
+//Chapter 9, Problem 17, Figure 9.10
+clc;
+N=800;                      //no of turns
+I=0.5;                      //current in coil
+l=%pi*120*10^-3;            //length of coil
+u0=4*%pi*10^-7;             //permeability of free space
+ur=3000;                    //relative permeability 
+dI=0.5-0;                   //change in current
+dt=80*10^-3;                //change in time
+A=400*10^-6;                 //cross sectional area
+S=l/(u0*ur*A);              //calculating reluctance
+L=N^2/S;                    //calculating inductance
+E=-L*(dI/dt);               //calculating induced emf
+printf("Self inductance L = %f H\n\n\n",L);
+printf("Induced emf E = %d V",E);