Re: Absorption et Emission de photons

par **m@thieu41** Sam 14 Déc 2013 - 14:07

Rajoute:
Disp E après le calcul de E
Pause abs(abs(E)-abs(L1(C)-L1(B après For(C,B+1,N, et donnes moi toutes les valeurs qui s'affichent...

par **pito2901** Sam 14 Déc 2013 - 14:14

pour lambda = 266
j'ai 4,661654135*10-9
RIEN

par **m@thieu41** Sam 14 Déc 2013 - 14:16

Il ne faut pas rentrer 266 mais 266*10E-9 ! (j'ai précisé que c'était en m)

par **pito2901** Sam 14 Déc 2013 - 14:25

ça change rien, et ça affiche la même chose sans le E-9

par **m@thieu41** Sam 14 Déc 2013 - 14:32

Ca affiche 4,661654135*10-9 avec et sans 10^-9 ???

par **pito2901** Sam 14 Déc 2013 - 14:33

ça affiche: 4,661654135
et RIEN

par **m@thieu41** Sam 14 Déc 2013 - 14:35

Mais tu as rajouté l'instruction Pause aussi?

EDIT: J'ai compris!
Je t'avais dis de changer N par Z Wink

par **pito2901** Sam 14 Déc 2013 - 14:36

Oui et je dois appuyer sur entrée au moins 10 fois pour que ça m'affiche RIEN

par **m@thieu41** Sam 14 Déc 2013 - 14:37

Mets bien (tu n'as pas du voir mon édit):

Code:: For(B,1,Z-1 For(C,B+1,Z If .015>abs(abs(E)-abs(L1(C)-L1(B))) {B,C->L2 End End

(au passage il fallait me passer les valeurs c'est fait exprès que tu doives appuyer sur entrer mais bon)

par **pito2901** Sam 14 Déc 2013 - 14:41

m@thieu41 a écrit:(au passage il fallait me passer les valeurs c'est fait exprès que tu doives appuyer sur entrer mais bon)

??????????????????????????????????????

Sinon ça marche OUF ! ! ! Il m'affiche le résultat de E et {1 2} j'imagine que ça veut dire de l'état 0 à l'état 1...

Peut-on modifier pour que ça donne {0 1} ?

Voire ETAT 0 A ETAT 1

par **pito2901** Sam 14 Déc 2013 - 14:50

En fait non, ça ne marche pas:

J'ai fais le calcul de E1 à E4, soit abs(-5,77 - -3,73)=2.04eV
et lambda = 609.375

Quand je rentre 609.375*10^-9 pour lambda, il m'affiche...

RIEN ! ! !

beum !

par **m@thieu41** Sam 14 Déc 2013 - 14:57

Pour afficher {0,1}, mets: Disp L2-1

Donne moi les valeurs stp que je puisse savoir ce qui ne va pas...

par **pito2901** Sam 14 Déc 2013 - 15:02

J'ai mis ça:

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 {A,B,C,D,E,F,J-> 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->X (1,989*10^-25)/(X*1.60*10^-19)*10^9->I Disp "E(eV)=",X Disp "LAMBDA(NM)=",I Pause Goto M Lbl B Input"LAMBDA=",L 1.24*10^-6/L->E {0,0->L2 For(B,1,Z-1 For(C,B+1,Z If .015>abs(abs(E)-abs(L1(C)-L1(B))) {B,C->L2 End End If L2(1)L2(2 Then Disp L2-1 Else Disp "RIEN End Pause Goto M

et il m'affiche bien {0,1} pour 266*10^-9 mais pour 609.375*10^-9, il m'affiche rien alors qu'il devrait afficher {1,4}

Donne moi les valeurs stp que je puisse savoir ce qui ne va pas...

COMMENT JE FAIS ?

par **m@thieu41** Sam 14 Déc 2013 - 15:04

m@thieu41 a écrit:Rajoute:
Disp E après le calcul de E
Pause abs(abs(E)-abs(L1(C)-L1(B après For(C,B+1,Z, et donnes moi toutes les valeurs qui s'affichent...

par **pito2901** Sam 14 Déc 2013 - 15:08

Mais quand je mets ça il n'y a rien de plus qui s'affiche... à part le résultat de E, qui pour 609.375 est :2.034871795 qui est proche de 2.04...

par **pito2901** Sam 14 Déc 2013 - 15:12

En fait j'ai sauter une ligne après le pause, voici les résultats:

2.034871795
2.635128205
2.855128205
3.425128205
1.814871795
1.244871795
1.464871795
RIEN

par **m@thieu41** Sam 14 Déc 2013 - 15:34

Tu as rentré quoi comme états?

par **pito2901** Sam 14 Déc 2013 - 15:35

-10.44
-5.77
-5.55
-4.98
-3.73

par **m@thieu41** Sam 14 Déc 2013 - 15:39

... Il n'y a pas assez de valeurs par rapport aux états que tu me dis...

Le code que tu as au niveau des For c'est bien :

Code:: For(B,1,Z-1 For(C,B+1,Z Pause abs(abs(E)-abs(L1(C)-L1(B If .015>abs(abs(E)-abs(L1(C)-L1(B))) {B,C->L2 End End

par **pito2901** Sam 14 Déc 2013 - 15:45

Oui exactement.

Je refais avec 609.375*10^-9 et j'obtiens:
2.034871795
2.635128205
2.855128205
3.425128205
1.814871795
1.244871795
1.464871795
RIEN

par **Linkakro** Sam 14 Déc 2013 - 15:48

Je reprend tout en changeant le programme à la source. Plus de débugage à refaire.

Méheu vous postez plus vite que je n'adapte mon message à vos posts !

Changements (certains mentionnés dans mon message précédent :

-remplacement de N par Z dans la routine de recherche.

- corrections de mes calculs

-l'amélioration de la recherche (afficher tous les résultats au lieu du dernier)
-adaptation de l'affichage aux indices [0;Z-1].

-simplification du calcul dans le programme et usage de données avec beaucoup plus de chiffres
E(eV)=1241,5285520433/L(nm)

Spoiler:

-amélioration de la tolérance comme a proposé m@thieu41
>>Je voulais augmenter la tolérance, mais c'est nul.
Le ".1" imposais au moins la première décimale.
>>Je voudrais rendre la tolérance proportionnelle à l'échelle pour que l'échelle utilisée n'influe pas sur la tolérance à écrire dans le programme.
Le ".001" imposera trois chiffres significatifs justes dans le résultat énergie à comparer aux écarts d'état eux-même calculés à partir de la liste des états.
If .001>abs(1-E/(L1(C)+L1(B))

Ici j'ai tout en nanomètre et electronvolts

Regarde bien tout cette fois car beaucoup de détails ont changé pour diverses raisons.
Je t'assure que cela doit marcher maintenant, car j'ai tout testé.

EDIT 15/12/2013 : là dedans presque tout est bon : seule la saisie au début est fausse. Confère mon tout premier message, et celui de m@thieu41 le 15/12/2013 à 17:15
Et la valeur de tolérance "0.001" peut être augmentée pour augmenter la tolérance des calculs.

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 Input"LAMBDA(NM)=",L |||||||||||||||||| 1241,5285520433/L->E |||||||||||||||| Disp E For(B,1,Z-1 |||||||||| For(C,B+1,Z ||||||||| // Pause L1(C)-L1(B) //pour tester ou bien vérifier soi-même les approximations // sinon sans échelle comme avant : If .1>abs(E-abs(L1(C)-L1(B))) If .001>abs(1-E/abs(L1(C)-L1(B))) Pause {B-1,C-1 ||||||||| End End Pause "FIN Goto M

test:

par **pito2901** Sam 14 Déc 2013 - 15:59

Bien j'ai remplacé, quand je mets 266, il met:
{1 3}
{1 4}
{2 3}
{2 4}
{3 4}
FIN
(qui doit être 0 1)
Pour 609 (d'après le nouveau calcul c'est l'arrondi de 608.5...), il met:
1 2
1 3
1 4
2 3
2 4
3 4
Fin
(qui doit être 1 4)

par **m@thieu41** Sam 14 Déc 2013 - 16:07

Tu as pris .1 ou .001? (perso j'aurais mis .02 parce que .1 ça englobe trop de résultats tandis que .001 est trop restrictif)

par **pito2901** Sam 14 Déc 2013 - 16:26

Linka:
ça marche très bien pour 266 !
mais pour 608.5924275
ça me met FIN directement

par **m@thieu41** Sam 14 Déc 2013 - 16:31

J’apprécie Neutral

par **Linkakro** Sam 14 Déc 2013 - 17:05

Essaie de répondre à m@thieu41 quand même, car je vous ai coupé l'herbe sous le pied.

Je trouve un comportement satisfaisant.

test E1 à E4:

edit:{1,4}remplace{4,1}

par **pito2901** Sam 14 Déc 2013 - 17:23

Désolé mathieu, je ne vais pas écrire un roman, et j'apprécie énormément tes efforts mais j'ai travaillé avec linka auparavant et m'a toujours épater, en effet il a repris ce que tu as fais, donc je dis un grand bravo pour votre courage à tous les deux.

Bref, je dois avoir un problème car il m'affiche toujours FIN et rien d'autre...

par **Linkakro** Sam 14 Déc 2013 - 18:41

J'avais commis deux erreurs de copies sur les deux comparaisons dans le dernier programme que j'ai posté.
Maintenant c'est corrigé et cohérent à ma calculatrice.
J'espère que ni toi ni moi n'avons d'erreur maintenant...

par **pito2901** Sam 14 Déc 2013 - 19:01

N'y aurait-il pas un conflit avec la variable G ???

EDIT: ça ne change absolument rien, sauf que pour 266, il me met {0 1} puis {0 2}

par **m@thieu41** Sam 14 Déc 2013 - 19:04

Lorsque tu fais:
{A,B,C,D,E,F,G->L1
C'est la valeur des variables que tu affectes à la liste, et non les variables elles mêmes. Donc modifier ensuite lesdites variables ne modifieras pas la liste.

par **pito2901** Sam 14 Déc 2013 - 19:11

Ok, mais le problème n'est toujours pas résolu... beum !

par Contenu sponsorisé


TI-Planet	Espace-TI : Forum