summaryrefslogtreecommitdiff
path: root/1760/CH2/EX2.93/EX2_93.sce
blob: c121611b0dccbbe0b81dc9c8241343fd1e73cc2b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
   //EXAMPLE 2-93  PG NO-139
N1=100;
Q1=0.05*10^-3;
I1=5;
L1=0.01;
L2=0.01;
K=0.6;
i=1000;     //(di/dt=20/0.02)
M=K*((L1*L2)^0.5);
V=M*i;
disp('mutual induction is = '+string(M)+' H');
disp('voltage induce is = '+string(V)+' v');