summaryrefslogtreecommitdiff
path: root/3769/CH10/EX10.5/Ex10_5.sce
blob: a1f0669dc1181622d6a1af9fe29e16bc97719ba6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clear
//given
M=8
d=0.2
u=4*%pi*10**-7

//Calculation
B=u*2*M/(4*%pi*d**3)
Beqa=B/2.0

//Result
printf("\n (i) Magnetic induction at axial point %0.3f  *10**-4 T", B*10**4)
printf("\n (ii) Magnetic induction at equatorial point is %0.3f  *10**-4 T",Beqa*10**4)