1 files changed, 14 insertions, 0 deletions
diff --git a/147/CH13/EX13.3/Example13_3.sce b/147/CH13/EX13.3/Example13_3.sce
new file mode 100644
index 000000000..522947cd8
--- /dev/null
+++ b/147/CH13/EX13.3/Example13_3.sce
@@ -0,0 +1,14 @@
+close();
+clear;
+clc;
+//from solved example 13.1
+phic = 0.61*10^(-3); //Wb
+phi1 = 0.01*10^(-3); //Wb
+I = 10.77; //A
+N = 100; //A
+//total self inductance 'L'
+L = N*phic/I;
+mprintf("Total self-inductance, L = %0.2f mH\n\n",L*1000);
+//leakage inductance of coil 'L1'
+L1 = N*phi1/I;
+mprintf("Leakage inductance of coil, L1 = %0.3f mH",L1*1000);
+\ No newline at end of file