summaryrefslogtreecommitdiff
path: root/3769/CH9/EX9.30/Ex9_30.sce
blob: e91afd545adcdacd0733f90487400c32c91ed5a6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clear
//Given
n=100
l=3.2 
r=0.1

//Calculation
//
u=4*%pi*10**-7
B=(u*n*l)/(2.0*r)
M=n*l*%pi*r**2
t=M*B*sin(0)
t1=(M*B*sin(90*3.14/180.0))*10**3
w=sqrt((2*M*B*10**3)/r)

//Result
printf("\n (a) Field at the centre of the coil is %0.0f  *10**-3 T",B*10**3)
printf("\n (b) Magnetic moment of the coil is %0.0f  Am**2",M)
printf("\n  Magnitude of the torque on the coil in the final position is %0.0f  Nm",t1)
printf("\n (d) Angular speed acquired by the coil is %0.0f  rad/s",w)