diff options
Diffstat (limited to '3840/CH7')
| -rw-r--r-- | 3840/CH7/EX7.1/Ex7_1.sce | 17 | ||||
| -rw-r--r-- | 3840/CH7/EX7.10/Ex7_10.sce | 13 | ||||
| -rw-r--r-- | 3840/CH7/EX7.2/Ex7_2.sce | 15 | ||||
| -rw-r--r-- | 3840/CH7/EX7.3/Ex7_3.sce | 15 | ||||
| -rw-r--r-- | 3840/CH7/EX7.4/Ex7_4.sce | 15 | ||||
| -rw-r--r-- | 3840/CH7/EX7.5/Ex7_5.sce | 15 | ||||
| -rw-r--r-- | 3840/CH7/EX7.6/Ex7_6.sce | 18 | ||||
| -rw-r--r-- | 3840/CH7/EX7.7/Ex7_7.sce | 15 | ||||
| -rw-r--r-- | 3840/CH7/EX7.8/Ex7_8.sce | 16 | ||||
| -rw-r--r-- | 3840/CH7/EX7.9/Ex7_9.sce | 14 |
10 files changed, 153 insertions, 0 deletions
diff --git a/3840/CH7/EX7.1/Ex7_1.sce b/3840/CH7/EX7.1/Ex7_1.sce new file mode 100644 index 000000000..28938a693 --- /dev/null +++ b/3840/CH7/EX7.1/Ex7_1.sce @@ -0,0 +1,17 @@ +clear +// +// +// + +//Variable declaration +chi=-0.4*10**-5 //magnetic susceptibility +H=5*10**5 //magnetic field intensity(amp/m) +mew0=4*%pi*10**-7 + +//Calculation +B=mew0*H*(1+chi) //magnetic flux density(wb/m**2) +M=chi*H //magnetic moment(A/m) + +//Result +printf("\n magnetic flux density is %0.3f wb/m**2",B) +printf("\n magnetic moment is %0.3f A/m",M) diff --git a/3840/CH7/EX7.10/Ex7_10.sce b/3840/CH7/EX7.10/Ex7_10.sce new file mode 100644 index 000000000..caa949d42 --- /dev/null +++ b/3840/CH7/EX7.10/Ex7_10.sce @@ -0,0 +1,13 @@ +clear +// +// +// + +//Variable declaration +B0=6.5*10**-4 //magnetic field(Tesla) +B=1.4 //magnetic field(Tesla) + +//Calculation +mewr=B/B0 //relative permeability of iron + +//Result diff --git a/3840/CH7/EX7.2/Ex7_2.sce b/3840/CH7/EX7.2/Ex7_2.sce new file mode 100644 index 000000000..d31640179 --- /dev/null +++ b/3840/CH7/EX7.2/Ex7_2.sce @@ -0,0 +1,15 @@ +clear +// +// +// + +//Variable declaration +chi=-0.25*10**-5 //magnetic susceptibility +H=1000 //magnetic field intensity(amp/m) +mew0=4*%pi*10**-7 + +//Calculation +M=chi*H //magnetisation(A/m) +B=mew0*(H+M) //magnetic flux density(wb/m**2) + +//Result diff --git a/3840/CH7/EX7.3/Ex7_3.sce b/3840/CH7/EX7.3/Ex7_3.sce new file mode 100644 index 000000000..a41bba789 --- /dev/null +++ b/3840/CH7/EX7.3/Ex7_3.sce @@ -0,0 +1,15 @@ +clear +// +// +// + +//Variable declaration +mewr=15 //relative permeability +H=250 //magnetic field intensity(amp/m) +mew0=4*%pi*10**-7 + +//Calculation +M=H*(mewr-1) //magnetisation(A/m) +B=mew0*(H+M) //magnetic flux density(wb/m**2) + +//Result diff --git a/3840/CH7/EX7.4/Ex7_4.sce b/3840/CH7/EX7.4/Ex7_4.sce new file mode 100644 index 000000000..2e7efb6b6 --- /dev/null +++ b/3840/CH7/EX7.4/Ex7_4.sce @@ -0,0 +1,15 @@ +clear +// +// +// + +//Variable declaration +chi=-0.42*10**-3 //magnetic susceptibility +H=1000 //magnetic field intensity(amp/m) +mew0=4*%pi*10**-7 + +//Calculation +M=chi*H //magnetisation(A/m) +B=mew0*(H+M) //magnetic flux density(wb/m**2) + +//Result diff --git a/3840/CH7/EX7.5/Ex7_5.sce b/3840/CH7/EX7.5/Ex7_5.sce new file mode 100644 index 000000000..1ef24399c --- /dev/null +++ b/3840/CH7/EX7.5/Ex7_5.sce @@ -0,0 +1,15 @@ +clear +// +// +// + +//Variable declaration +d=0.1 //diameter(m) +i=0.5 //current(ampere) + +//Calculation +r=d/2 //radius of atom(m) +mew=i*%pi*r**2 //magnetic moment(A-m**2) + +//Result +printf("\n magnetic moment is %0.2f *10**-3 A-m**2",mew*10**3) diff --git a/3840/CH7/EX7.6/Ex7_6.sce b/3840/CH7/EX7.6/Ex7_6.sce new file mode 100644 index 000000000..b0d33bafa --- /dev/null +++ b/3840/CH7/EX7.6/Ex7_6.sce @@ -0,0 +1,18 @@ +clear +// +// +// + +//Variable declaration +mew0=4*%pi*10**-7 +B=0.0044 //magnetic flux density(wb/m**2) +M=3300 //magnetisation(A/m) + +//Calculation +H=(B/mew0)-M //magnetising force(amp/m) +mewr=1+(M/H) //relative permeability + +//Result +printf("\n magnetising force is %0.1f A/m",H) +printf("\n relative permeability is %0.2f ",mewr) +printf("\n answers given in the book are wrong") diff --git a/3840/CH7/EX7.7/Ex7_7.sce b/3840/CH7/EX7.7/Ex7_7.sce new file mode 100644 index 000000000..58f8089fb --- /dev/null +++ b/3840/CH7/EX7.7/Ex7_7.sce @@ -0,0 +1,15 @@ +clear +// +// +// + +//Variable declaration +r=0.52*10**-10 //radius(m) +B=3 //magnetic induction(web/m**2) +e=1.6*10**-19 //charge(c) +m=9.1*10**-31 //mass(kg) + +//Calculation +d_mew=e**2*r**2*B/(4*m) //change in magnetic moment(Am**2) + +//Result diff --git a/3840/CH7/EX7.8/Ex7_8.sce b/3840/CH7/EX7.8/Ex7_8.sce new file mode 100644 index 000000000..07e9f04c3 --- /dev/null +++ b/3840/CH7/EX7.8/Ex7_8.sce @@ -0,0 +1,16 @@ +clear +// +// +// + +//Variable declaration +r=5.29*10**-11 //radius(m) +B=2 //magnetic induction(web/m**2) +e=1.6*10**-19 //charge(c) +m=9.1*10**-31 //mass(kg) + +//Calculation +d_mew=e**2*r**2*B/(4*m) //change in magnetic moment(Am**2) + +//Result +printf("\n change in magnetic moment is %0.3f *10**-29 A-m**2",d_mew*10**29) diff --git a/3840/CH7/EX7.9/Ex7_9.sce b/3840/CH7/EX7.9/Ex7_9.sce new file mode 100644 index 000000000..9f7c3f7fe --- /dev/null +++ b/3840/CH7/EX7.9/Ex7_9.sce @@ -0,0 +1,14 @@ +clear +// +// +// + +//Variable declaration +chi1=2.8*10**-4 //susceptibility +T1=350 //temperature(K) +T2=300 //temperature(K) + +//Calculation +chi2=(chi1*T1)/T2 //susceptibility at 300K + +//Result |