1853/CH3/EX3.4/Ex3_4.sce


1
2
3
4
5
6
7
8
9
10
11
12


//P3.4   calculate its self induction 

Ur=1;
N=400;
l=30e-2;
A=5e-4;
U0=4e-7*%pi;
S=l/(U0*Ur*A);
L=N^2/S;
disp('Self inductance is = '+string(L)+' henry','S = '+string(S));