summaryrefslogtreecommitdiff
path: root/3754/CH7/EX7.5/7_5.sce
blob: fcfab761c291618684b06bcf5208abe285472b43 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clear//

//Variables

L1 = 40.0                      //Inductance (in micro-Henry)
L2 = 80.0                      //Inductance (in micro-Henry)
M = 11.3                       //Mutual Inductance (in micro-Henry)

//Calculation

k = M/(L1 * L2)**0.5           //Coefficient of Coupling 

//Result

printf("\n Coefficient of coupling is  %0.2f .",k)