1 files changed, 22 insertions, 0 deletions
diff --git a/1754/CH7/EX7.4/Exa7_4.sce b/1754/CH7/EX7.4/Exa7_4.sce
new file mode 100755
index 000000000..3a7a8d696
--- /dev/null
+++ b/1754/CH7/EX7.4/Exa7_4.sce
@@ -0,0 +1,22 @@
+//Exa 7.4
+clc;
+clear;
+close;
+//Given data
+l=30;//in cm
+l=l*10^-2;//in meter
+A=1;//in cm^2
+A=A*10^-4;//in meter^2
+N=300;//turns of wire
+i=0.032;//in Ampere
+FI_B=2*10^-6;//in weber
+meu_o=4*%pi*10^-7;//permeability of free space in weber/amp-meter
+B=FI_B/A;//in weber/meter^2
+disp(B,"Flux Density in weber/meter^2 : ");
+H=N*i/l;//in amp-turn/meter
+disp(H,"magnetic Intensity in amp-turn/meter : ");
+meu=B/H;//in weber/Amp-meter
+disp(meu,"Permeability in weber/amp-meter :");
+meu_r=meu/meu_o;//Relative Permeability
+disp(meu_r,"Relative Permeability : ");
+//Answer of relative permeability is wrong in the book.
+\ No newline at end of file