summaryrefslogtreecommitdiff
path: root/620/CH20/EX20.9/example20_9.sce
blob: 28d4d2901b84430063fcc2ad11ab595cdb5465c7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
l1=4;
l2=8;
k=0.6;
f=60;
disp("Part a"); 
m=k*sqrt(l1*l2);
x_m=2*%pi*f*m;
x_l1=2*%pi*f*l1;
x_l2=2*%pi*f*l2;
x_l=x_l1+x_l2+x_m;
disp("the total inductive reactance (in kΩ) is");disp(x_l*10^(-3));
disp("Part b");
v=120;
i=v/x_l;
disp("the current (in mA) throught the coil is"); disp(i*10^3);
disp("Part c");
v1=i*(x_l1+x_m);
disp("voltage (in V) across 4 H coil is"); disp(v1);
v2=i*(x_l2+x_m);
disp("voltage (in V) across 8 H coil is");disp(v2);