//Example number 6.2, Page number 6.46

clc;clear;close


// Variable declaration
e=1.6*10**-19;    // charge(coulomb)
new=6.8*10**15;   // frequency(revolutions per second)
mew0=4*%pi*10**-7; // coefficient
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; // in m^2
d=i*A;                    // dipole moment(ampere/m**2)

// Result
printf("magnetic field at the centre is : %.f weber/m**2",B)
printf("\ndipole moment is : %.e Ampere/m**2",(d))