Voici un programme qui permet de calculer l'énergie en électron-volt et lambda en nm l'absorption ou l'émission d'un photon par un atome,
il suffit de rentrer les différents états excités de l'atome, choisissez de quel état à quel état vous voulez le calcul, et le programme fait le reste. (Jusqu'à 6 états mais possible d'en rajouter beaucoup plus !)
- Code:
EffEcr
Input "NB ETATS EXC:",Z
If Z<6
Then
If Z>=1
Input "ETAT 0:",A
Input "ETAT 1:",B
If Z>=2
Input "ETAT 2:",C
If Z>=3
Input "ETAT 3:",D
If Z>=4
Input "ETAT 4:",E
If Z>=5
Input "ETAT 5:",F
If Z>=6
Input "ETAT 6:",J
Else
Disp "TROP !"
Stop
End
Lbl A
EffEcr
Disp "POUR CHOISIR","L'ETAT 1, TAPEZ 1"
Input "1ER ETAT:",G
If G=0:A->G
If G=1:B->G
If G=2:C->G
If G=3:D->G
If G=4:E->G
If G=5:F->G
If G=6:J->G
Input "2EME ETAT:",H
If H=0:A->H
If H=1:B->H
If H=2:C->H
If H=3:D->H
If H=4:E->H
If H=5:F->H
If H=6:J->G
abs(G-H)->X
(1,989*10^-25)/(X*1.60*10^-19)*10^9->I
Disp "E(eV)=",X
Disp "LAMBDA(NM)=",I
Pause
Goto A
EDIT: Voici le nouveau code qui permet de faire les calculs et qui permet de trouver une absorption ou émission d'un état à un autre en entrant lambda. (Je posterai un screenshot plus tard)
- Code:
EffEcr
Input "NB ETATS EXC:",Z
If Z<6
Then
If Z≥1
Input "ETAT 0:",A
Input "ETAT 1:",B
If Z≥2
Input "ETAT 2:",C
If Z≥3
Input "ETAT 3:",D
If Z≥4
Input "ETAT 4:",E
If Z≥5
Input "ETAT 5:",F
If Z≥6
Input "ETAT 6:",G
Else
Disp "TROP !"
Stop
End
{A,B,C,D,E,F,G→L1
Lbl M
Menu("LAMBDA","CALCUL",A,"DEMANDER",B
Lbl A
EffEcr
Disp "POUR CHOISIR","L'ETAT 1, TAPEZ 1"
Input "1ER ETAT:",G
Input "2EME ETAT:",H
abs(L1(G+1)-L1(H+1→E
1241,5285520433/E→L
Disp "E(eV)=",E
Disp "LAMBDA(NM)=",L
Pause
Goto M
Lbl B
EffEcr
Input"LAMBDA(NM)=",L
1241,5285520433/L→E
Disp E
For(B,1,Z
For(C,B+1,Z+1
If .01>abs(1-E/abs(L1(C)-L1(B
Disp {B-1,C-1
End
End
Pause
Goto M
Le screenshot.gif:
Un grand merci à M@t et Linka !
Dernière édition par pito2901 le Dim 15 Déc 2013 - 17:52, édité 4 fois