summaryrefslogtreecommitdiff
path: root/24/CH43/EX43.1/Example43_1.sce
blob: 0f04925de02608afefe3a529319aced7ff48d007 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Given that
e = 1.6*10^-19  //ev to joule conversion
E = 5.30*10^6*e  //in Joules
n = 79  //number of protons

//Sample Problem 43-1
txt = mopen('Example43_1_result.txt','wt')
mfprintf(txt, '**Sample Problem 43-1**\n')
K = 9*10^9  //in SI unit
q1 = 2*e
q2 = n*e
//K*q1*q2/d = E
d = K*q1*q2/E
mfprintf(txt, 'The distance of the alpha particles from gold nucleus is equal to %em', d)
mclose(txt)