path: root/3769/CH10/EX10.27/Ex10_27.sce

clear
//Given
r=7*10**-2                       //m
H=2*10**-5                      //T
n=50
u=4*%pi*10**-7        	
//calculation
//
l=(2*r*H*tan(45*180/3.14))/u*n

//Result
printf("\n Value of current is %0.3f  A",l*10**-3)