6 files changed, 84 insertions, 0 deletions
diff --git a/1754/CH7/EX7.1/Exa7_1.sce b/1754/CH7/EX7.1/Exa7_1.sce
new file mode 100755
index 000000000..943accba7
--- /dev/null
+++ b/1754/CH7/EX7.1/Exa7_1.sce
@@ -0,0 +1,9 @@
+//Exa 7.1
+clc;
+clear;
+close;
+//Given data
+Bo=1.7*10^-5;//in weber/m^2
+meu_o=4*%pi*10^-7;//permeability of free space in weber/amp-meter
+H=Bo/meu_o;//in A/m
+disp(H,"Horizontal component of magnetic filed intensity in A/m : ");
+\ No newline at end of file
diff --git a/1754/CH7/EX7.2/Exa7_2.sce b/1754/CH7/EX7.2/Exa7_2.sce
new file mode 100755
index 000000000..b805ea5a0
--- /dev/null
+++ b/1754/CH7/EX7.2/Exa7_2.sce
@@ -0,0 +1,13 @@
+//Exa 7.2
+clc;
+clear;
+close;
+//Given data
+H=5*10^3;//in Ampere-turns/m
+l=10;//in cm
+l=l*10^-2;//in meter
+N=50;//no. of turns
+n=N/l;//no. of turns per unit length
+//Formula : H=n*i
+i=H/n;//in Ampere
+disp(i,"Current should be sent through solenoid in Ampere : ");
+\ No newline at end of file
diff --git a/1754/CH7/EX7.3/Exa7_3.sce b/1754/CH7/EX7.3/Exa7_3.sce
new file mode 100755
index 000000000..412e947d6
--- /dev/null
+++ b/1754/CH7/EX7.3/Exa7_3.sce
@@ -0,0 +1,13 @@
+//Exa 7.3
+clc;
+clear;
+close;
+//Given data
+meu_r=1000;//relative permeability
+n=5;//turns/cm
+n=n*10^2;//turns/meter
+i=0.5;//in Ampere
+Volume=10^-4;//in m^3
+I=(meu_r-1)*n*i;//in Ampere
+MagneticMoment=I*Volume;//in Ameter^2
+disp(round(MagneticMoment),"Magnetic moment of the rod in Ampere-meter^2 : ");
+\ No newline at end of file
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
diff --git a/1754/CH7/EX7.5/Exa7_5.sce b/1754/CH7/EX7.5/Exa7_5.sce
new file mode 100755
index 000000000..815dfaf21
--- /dev/null
+++ b/1754/CH7/EX7.5/Exa7_5.sce
@@ -0,0 +1,10 @@
+//Exa 7.5
+clc;
+clear;
+close;
+//Given data
+format('v',15);
+Xci_m=9.48*10^-9;//usceptibility of medium(unitless)
+meu_r=1+Xci_m;//relative permeability(unitless)
+disp(meu_r,"Relative Permeability : ");
+disp("i.e, Relative Permeability is sligtly greater than 1.");
+\ No newline at end of file
diff --git a/1754/CH7/EX7.6/Exa7_6.sce b/1754/CH7/EX7.6/Exa7_6.sce
new file mode 100755
index 000000000..0b9336e35
--- /dev/null
+++ b/1754/CH7/EX7.6/Exa7_6.sce
@@ -0,0 +1,17 @@
+//Exa 7.6
+clc;
+clear;
+close;
+//Given data
+n=10;//turns/cm
+n=n*10^2;//turns/meter
+i=2;//in Ampere
+B=1;//in weber/meter^2
+meu_o=4*%pi*10^-7;//permeability of free space in weber/amp-meter
+H=n*i;//in amp-turn/meter
+disp(H,"Magnetising Force in amp-turn/meter : ");0
+//Formula : B=meu_o*(H+I)
+I=B/meu_o-H;//in amp-turn/meter
+disp(I,"Magnetisation of material in amp-turn/meter :");
+meu_r=B/(meu_o*H);//relative permeability(unitless)
+disp(meu_r,"Relative Permeability : ");
+\ No newline at end of file