diff options
Diffstat (limited to '3363/CH8')
| -rwxr-xr-x | 3363/CH8/EX8.1/Ex8_1.sce | 6 | ||||
| -rwxr-xr-x | 3363/CH8/EX8.2/Ex8_2.sce | 10 | ||||
| -rwxr-xr-x | 3363/CH8/EX8.3/Ex8_3.sce | 10 | ||||
| -rwxr-xr-x | 3363/CH8/EX8.4/Ex8_4.sce | 6 |
4 files changed, 32 insertions, 0 deletions
diff --git a/3363/CH8/EX8.1/Ex8_1.sce b/3363/CH8/EX8.1/Ex8_1.sce new file mode 100755 index 000000000..f29dd4912 --- /dev/null +++ b/3363/CH8/EX8.1/Ex8_1.sce @@ -0,0 +1,6 @@ +//Example 8.1, page 287 +clc +u=0.927*10^-23//amp-m2 +B=1//in J/amp-m2 +E=2*u*B +printf("\n Energy supplied to the dipole is %e J ",E)
\ No newline at end of file diff --git a/3363/CH8/EX8.2/Ex8_2.sce b/3363/CH8/EX8.2/Ex8_2.sce new file mode 100755 index 000000000..9dae8757e --- /dev/null +++ b/3363/CH8/EX8.2/Ex8_2.sce @@ -0,0 +1,10 @@ +//Example 8.2, page 293 +//From previous derivation of formula +clc +delb_by_delz=10//tesla/m +u=0.927*10^-23//amp-m2 +x=1///in m +k=1.38*10^-23//j/k +T=400//in K +Z=(delb_by_delz*u*x^2)/(8*k*T) +printf("\n Transverse deflection that occur is + %e m or - %e m ",Z,Z)
\ No newline at end of file diff --git a/3363/CH8/EX8.3/Ex8_3.sce b/3363/CH8/EX8.3/Ex8_3.sce new file mode 100755 index 000000000..df0409c76 --- /dev/null +++ b/3363/CH8/EX8.3/Ex8_3.sce @@ -0,0 +1,10 @@ +//Example 8.3, page 298 +clc +m=9*10^-31//in kg +e=1.6*10^-19//in coul +c=3*10^8//in m/s2 +four_pi_epsilon=1.1*10^-34//in j-sec +constant=9*10^9//nt-n2/coul2 +delta_E=(constant^4*m*e^8)/(54*c*c*(four_pi_epsilon)^4) +printf("\n The energy deflection is %e Joule",delta_E) +//Answer given in the book is wrong
\ No newline at end of file diff --git a/3363/CH8/EX8.4/Ex8_4.sce b/3363/CH8/EX8.4/Ex8_4.sce new file mode 100755 index 000000000..cc8fbfac0 --- /dev/null +++ b/3363/CH8/EX8.4/Ex8_4.sce @@ -0,0 +1,6 @@ +//Example 8.4, page 299 +clc +u_s=10^-23//amp-m2 +u_b=10^-23//amp-m2 +B=u_s/u_b +printf("\n The deflection is %d Tesla ",B) |