summaryrefslogtreecommitdiff
path: root/1952/CH13/EX13.3.13/Ex3_13.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1952/CH13/EX13.3.13/Ex3_13.sce
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 '1952/CH13/EX13.3.13/Ex3_13.sce')
-rwxr-xr-x1952/CH13/EX13.3.13/Ex3_13.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/1952/CH13/EX13.3.13/Ex3_13.sce b/1952/CH13/EX13.3.13/Ex3_13.sce
new file mode 100755
index 000000000..ba3da2275
--- /dev/null
+++ b/1952/CH13/EX13.3.13/Ex3_13.sce
@@ -0,0 +1,22 @@
+// Additional solved numerical questions , Example(set 3) 13_b , pg 357
+A=250 //area of B-H loop
+f=50 //frequency (in Hz)
+d=7.5*10^3 //density (in Kg/m^3)
+M=10 //mass of core (in Kg)
+
+H=2000 //magnetic field intensity (in A/m)
+Xm=1000 //susceptibility
+U0=4*%pi*10^-7 // relative permeability
+
+V=M/d //volume of sample (in m^3)
+N=60*60*f //number of cycles per hour
+EL=A*V*N //energy loss per hour
+I=H*Xm //intensity of magnetization
+Ur=1+Xm
+B=Ur*U0*H //magnetic flux density
+printf("Energy loss per hour (in J)")
+disp(EL)
+printf("Intensity of magnetization (in Wb/m^3)")
+disp(I)
+printf("Magnetic flux density(in T)")
+disp(B)