summaryrefslogtreecommitdiff
path: root/3840/CH7/EX7.8/Ex7_8.sce
blob: 07e9f04c3d2789e222fad4d248c6744ced8715ba (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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)