//Ex_2_21
clc;
clear;
close;
format('v',4);
//given data :
N=500;//turns
A=0.01;//m^2(Area of cross section of poles)
l=0.5;//m(mean length)
mu0=4*%pi*10^-7;//permeability of air
mu_r=1000;///relative permeability
g=9.8;//gravitational acceleration
W=200;//kg
F=W/2;//kg
F=F*g;//N
B=sqrt(F*2*mu0/A);//Wb/m^2
H=B/mu0/mu_r;//Wb/m^2
I=H*l/N;//A
disp(I,"Exciting current(A)");