initial commit / add all books

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