3769/CH9/EX9.16/Ex9_16.sce


1
2
3
4
5
6
7
8
9
10
11
12

clear
//Given
B=1.7                  //T
q=1.6*10**-19          //c
r=0.5
m=1.66*10**-27

//Calculation
K=((B**2*q**2*r**2)/(2.0*m))/q

//Result
printf("\n Kinetic energy of proton is %0.0f  Mev",K*10**-6)