summaryrefslogtreecommitdiff
path: root/3769/CH9/EX9.26/Ex9_26.sce
blob: 2d3b387cc7fa10ee773e0eb06f9ed1790ec45522 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clear
//Given
I2=10                       //A
r=0.1                        //m
l=2                          //m
I1=2
I2=10
r=0.1

//Calculation
u=4*%pi*10**-7
F=u*I1*I2*I1/(2.0*%pi*r)

//Result
printf("\n Force on small conductor %0.3f  N", F)