summaryrefslogtreecommitdiff
path: root/1319/CH13/EX13.9/ii_9.sce
blob: aa37a01dc299da8347f2710e7f16a51d70ae9efc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// Compute Inductance and EMF induced
clc;
clear;

d=0.25;
l=%pi*d;
n=1000;
area=6.25*(10^-4);
I=200;
mo=4*%pi*(10^-7);

L=mo*area*n*n/l;

V=L*I;

disp('H',L,'The Inductance of toriod')
disp('volts',V,'The Induced EMF in the toriod')