summaryrefslogtreecommitdiff
path: root/3769/CH10/EX10.11/Ex10_11.sce
blob: 61e59e77ffb025522ca0e67bf481842768377ed9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clear
//Given
n=100
I=0.1                       //A
r=0.05
B=1.5                        //T

//Calculation
//
M=n*I*%pi*r**2
W=2*M*B

//Result
printf("\n Magnitude of the coil is %0.4f  Am**2",M)
printf("\n Workdone is %0.4f  J",W)