path: root/620/CH11/EX11.6/example11_6.sce

i=1.12;
n=600;
l=4*6*10^(-2);
mmf=n*i;
b=0.6;........// from the B-Hcurve
s=2*10^(-2);
a=s^2;
phi=b*a;
disp("the flux (in Wb) in the core is"); disp(phi);