summaryrefslogtreecommitdiff
path: root/3769/CH12/EX12.25/Ex12_25.sce
blob: 24bdffcf15b958ee2bbf0c13238c876af35683b5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clear
//Given
I=2.0
a1=20*10**-2
x=0.15
A2=0.3*10**-2

//Calculation
//
u=4*%pi*10**-7
B1=(u*I*a1**2)/(2.0*(a1**2+x**2)**1.5)
a=B1*%pi*A2**2
M=a/I

//Result
printf("\n (i) Flux linking the bigger loop is %0.1f  ",a*10**11)
printf("\n (ii) Mutual induction between the two loops is %0.2f  !0**-11 H",M*10**11)