summaryrefslogtreecommitdiff
path: root/1784/CH37/EX37.4/example4.sce
blob: 44a1239455bacadc8b008387d4de54985973da99 (plain)
1
2
3
4
5
6
7
8
9
10
11
//chapter 37
//example4
clc
//given
e=1.6*10^-19 //in coul
r=5.1*10^-11 //radius of hydrogen atom in meter
m=9.1*10^-31// mass of electron in kg
epsilon0=8.9*10^-12 //in coul2/nt-m2
B=2 //in wb/m2
delta_p=(e^2*B*r^2)/(4*m)
disp(delta_p,"Change in Orbital dipole moment in amp-m2 is + 0r -")