// Example  5.1

B=20*10^-3;       // Megnetic Field intensity
m=4*%pi*10^-7;    // Permeability of free Space
n=20*100;         // No.Of Turns per meter
I=B/(m*n);
disp(' Necessary Current is = '+string(round(I))+' Amp');



       //  p 187       5.1