620/CH11/EX11.5/example11_5.sce


1
2
3
4
5
6
7
8
9

s=2*10^(-2);
a=s^2;
phi=5.2*10^(-4);
b=phi/a;
h=800;...........//from the B-H curve
l=4*6*10^(-2);
n=600;
i=h*l/n;
disp("the current required (in A) is"); disp(i);