diff options
Diffstat (limited to '1367/CH14/EX14.13/14_13.sce')
| -rwxr-xr-x | 1367/CH14/EX14.13/14_13.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/1367/CH14/EX14.13/14_13.sce b/1367/CH14/EX14.13/14_13.sce new file mode 100755 index 000000000..c6f191855 --- /dev/null +++ b/1367/CH14/EX14.13/14_13.sce @@ -0,0 +1,14 @@ +//Find Magnetic field strength and Flux density
+//Ex:14.13
+clc;
+clear;
+close;
+l=.25;//in m
+n=400;//turns
+i=15;//in A
+u_0=1.257*10^-6;//in H/m
+h=n*i/l;//in AT/m
+disp(h,"Magnetic field strength (in AT/m) = ");
+u_r=1;//relative permeability
+b=u_0*u_r*h;//in wB/sqm
+disp(b,"Flux density (in Wb/sq m) = ");
|