summaryrefslogtreecommitdiff
path: root/3401/CH3/EX3.2/Ex3_2.sce
blob: 0e5b916e560bfc63d9e6747cbcf79b4b5142a08b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clc

P=10
a=5*10^-10 // a=5 Armstrong
h=1.054*10^-34
m=9.11*10^-31 //kg

//alpha*a=%pi
//sqrt((2*m*E2)/h^2)*a=%pi
E2=(%pi^2*h^2)/(2*m*a^2)
disp(E2,'E2= %f J\n')
E2=E2*6.2415*10^18
disp(E2,'E2= %f eV')

E1=1.053 //eV
AE=E2-E1
disp(AE,'AE= %f eV')