3769/CH12/EX12.23/Ex12_23.sce


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

clear
//Given
N2=1000
I1=5.0                          //A
a2=0.4*10**-4                  //Wb
dl=-24                             //A
dt=0.02                              //S

//Calculation
M=(N2*a2)/I1
eb=(-M*dl)/dt

//Result
printf("\n (i) Mutual induction between A and B is %0.3f  H", M)