summaryrefslogtreecommitdiff
path: root/1026/CH10/EX10.2/Example10_2.sce
blob: 6260afb1a07fc6663bef9c72fb7e5121b290b28e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//chapter10,Example10_2,pg 271

R=0.35

n=1.38*10^7

m=1.67*10^-27

q=1.6*10^-19

B=(2*%pi*n*m)/q

E=((B^2)*(q^2)*(R^2))/(2*m)

E=E/q

printf("magnetic field induction\n")

printf("B=%.2f wb/m2",B)

printf("\nmaximum energy of proton\n")

printf("E=%.2f ev",E)