summaryrefslogtreecommitdiff
path: root/1760/CH2/EX2.49/EX2_49.sce
blob: 364de25f711fb82647e7c01d167954ebbe21f96d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
     //EXAMPLE 2-49   PG NO-93
K=0.35;     //CONSTANT
L1=0.1;       //INDUCTANCE
L2=0.2;     //INDUCTANCE
M=K*(L1*L2)^0.5;
V=125;        //VOLTAGE
F=50;        //FREQUENCY
L=0.2;     //  TOTAL INDUCTANCE
I=V/(2*%pi*F*L);      //CURRENT
disp(' M is = '+string(M)+' H');
disp(' current is = '+string(I)+' A');