1 files changed, 14 insertions, 0 deletions
diff --git a/3760/CH8/EX8.1/ExA_1.sce b/3760/CH8/EX8.1/ExA_1.sce
new file mode 100644
index 000000000..a478018e7
--- /dev/null
+++ b/3760/CH8/EX8.1/ExA_1.sce
@@ -0,0 +1,14 @@
+clc;
+// answer is given wrong in the book
+d=0.2; // mean diameter of mild steel ring
+ac=50*10^-4; // cross sectional area of core
+uo=4*%pi*10^-7; // free space permeability
+ur=800; // relative permeability
+f=1*10^-3; // required flux
+N=200; // Number of turns
+l=%pi*d // length of core
+R=l/(uo*ur*ac); // reluctance of ring
+printf('reluctance offered by ring is %f AT/Wb\n',R);
+mmf=f*R; // mmf produced in ring
+i=mmf/N;
+printf('current required to produce the desired flux is %f A',i);