summaryrefslogtreecommitdiff
path: root/3769/CH8/EX8.13/Ex8_13.sce
blob: a0fe4912878abd9df60d58c175e2bf34542cfd9c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clear
//Given
v=4*10**6
r=0.5*10**-10
e=1.6*10**-19
t=1
u=4*3.14*10**-7                     //T/A m

//Calculation
//
f=v/(2.0*%pi*r)
I=f*e/t
B=u*I/(2*r)

//Result
printf("\n Magnetic field produced by the electrons is %0.1f  T",B)