summaryrefslogtreecommitdiff
path: root/1949/CH6/EX6.7
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1949/CH6/EX6.7
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1949/CH6/EX6.7')
-rwxr-xr-x1949/CH6/EX6.7/Ex6_7.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/1949/CH6/EX6.7/Ex6_7.sce b/1949/CH6/EX6.7/Ex6_7.sce
new file mode 100755
index 000000000..b0fbaa4bc
--- /dev/null
+++ b/1949/CH6/EX6.7/Ex6_7.sce
@@ -0,0 +1,22 @@
+//Chapter-6,Example 6_7,Page 6-28
+clc()
+
+//Given Values:
+
+u0=4*%pi*10^-7 //Permeability in vacuum
+ur=900 //Relative permeability of medium
+r=25*10^-2 //radius of ring
+A=25*10^-4 //Crosss sectional area of ring in m^2
+Ag=1*10^-3 //Air gap
+phi=2.7*10^-3 //flux in weber
+N=400 //Number of turns
+
+//Calculations:
+//We know, phi=B*A
+B=phi/A //Flux density
+//But, B=u*H
+H=B/(u0*ur) //Magnetic field strength
+L=H*2*%pi*r+(B*Ag/u0) //Total amp turns required (iron+air)
+I=L/N //Required current
+
+printf('Current required to produce given flux is =%.2f Ampere \n',I)