summaryrefslogtreecommitdiff
path: root/3669/CH7/EX7.5/5.sce
blob: 956d31574c253a81c1d0a8e7c5e0615ef5820fcb (plain)
1
2
3
4
5
6
7
8
9
10

//Variable declaration
r=10/2;     //radius(cm)
i=500*10**-3;    //current(A)

//Calculation
mew=%pi*(r*10**-2)**2*i;    //magnetic moment(Am**2)

//Result
printf('magnetic moment is %0.3f  *10**-3 Am**2   \n',(mew*10**3))