1 files changed, 12 insertions, 0 deletions
diff --git a/1367/CH14/EX14.5/14_5.sce b/1367/CH14/EX14.5/14_5.sce
new file mode 100755
index 000000000..d9767a092
--- /dev/null
+++ b/1367/CH14/EX14.5/14_5.sce
@@ -0,0 +1,12 @@
+//Find Magnetic strength
+//Ex:14.5
+clc;
+clear;
+close;
+m=6000;
+u_r=200000;
+x=u_r-1;
+h=m/x;
+u_0=4*3.14*10^-7;
+b=u_0*u_r*h;
+disp(b,"Magnetic strength (in T) = ");
+\ No newline at end of file