From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1529/CH7/EX7.15/7_15.sce | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 1529/CH7/EX7.15/7_15.sce

(limited to '1529/CH7/EX7.15/7_15.sce')

diff --git a/1529/CH7/EX7.15/7_15.sce b/1529/CH7/EX7.15/7_15.sce
new file mode 100755
index 000000000..8b8eab0a3
--- /dev/null
+++ b/1529/CH7/EX7.15/7_15.sce
@@ -0,0 +1,19 @@
+//Chapter 7, Problem 15, Figure 7.6
+clc;
+u0=4*%pi*10^-7;
+ur=1;
+B=0.80;                     //flux density
+H=750;                      //field intensity from B-H curve
+l1=25*10^-2;                //length of cast steel core
+l2=1*10^-3;                 //air gap
+A=2*10^-4;                  //cross-sectional area
+N=5000;                     //no of turns
+//for cast steel core
+S1=(l1*H)/(B*A);
+//For the air gap:
+S2=l2/(u0*ur*A);
+//Total reluctance 
+S=S1+S2;
+phi=B*A;
+I=(S*phi)/N;
+printf("Current in the coil to produce a flux density of 0.80T = %f A",I);
-- 
cgit