blob: 8d7ef0e13b28a4b0435c0d61db6ae5d85ec1b1fb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//Variable declaration
e=1.6*10**-19; //charge(coulomb)
new=6.8*10**15; //frequency(revolutions per second)
mew0=4*%pi*10**-7;
R=5.1*10**-11; //radius(m)
//Calculation
i=(e*new); //current(ampere)
B=mew0*i/(2*R); //magnetic field at the centre(weber/m**2)
A=%pi*R**2;
d=i*A; //dipole moment(ampere/m**2)
//Result
printf('magnetic field at the centre is %0.3f weber/m**2\n',(B))
printf('dipole moment is %0.3f *10**-24 ampere/m**2\n',(d*10**24))
|
