1 files changed, 7 insertions, 0 deletions
diff --git a/1529/CH9/EX9.13/9_13.sce b/1529/CH9/EX9.13/9_13.sce
new file mode 100755
index 000000000..5d3544a7d
--- /dev/null
+++ b/1529/CH9/EX9.13/9_13.sce
@@ -0,0 +1,7 @@
+//Chapter 9, Problem 13
+clc;
+N=800;                              //no of turns
+phi=5*10^-3;                        //flux
+I=4;                                //current in coil
+L=(N*phi)/I;                        //calculating inductance
+printf("Inductance of coil = %f H",L);