path: root/3769/CH9/EX9.21/Ex9_21.sce

clear
//given
r=0.002                  //m
m=0.05
g=9.8

//Calculation
u=4*%pi*10**-7
f=u/(2*%pi*r)
f1=m*g
I=sqrt(f1*f**-1)

//Result
printf("\n Current in each wire is %0.3f  A", I)