summaryrefslogtreecommitdiff
path: root/1646/CH12/EX12.10/Ch12Ex10.sce
blob: 0c36bfa60811327bf64d0112ffb2482ae9659130 (plain)
1
2
3
4
5
6
7
8
9
10
11
// Scilab Code Ex12.10 : Page-608 (2011)
clc; clear;
e = 1.6e-19;....// Charge on anlectron, C
m = 9.1e-31;....// Mass of the electron, kg
r = 5.1e-11;....// Radius of the electronic orbit, m
B = 2.0;....// Applied magnetic field, weber per metre-square
delta_pm = e^2*r^2*B/(4*m);
printf("\nThe change in the magnetic dipole moment of the electron = %3.1e A-metre square", delta_pm);

// Result
// The change in the magnetic dipole moment of the electron = 3.7e-29 A-metre square