Hitskin.com

m@thieu41

m@thieu41

----------------------

Messages : 939
Date d'inscription : 02/06/2013

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...

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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

m@thieu41

m@thieu41

----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :

TI-82 Stats.fr

. :

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

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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

m@thieu41

m@thieu41

----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :

TI-82 Stats.fr

. :

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

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

ça affiche: 4,661654135
et RIEN

m@thieu41

m@thieu41

----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :

TI-82 Stats.fr

. :

Mais tu as rajouté l'instruction Pause aussi?

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

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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

m@thieu41

m@thieu41

----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :

TI-82 Stats.fr

. :

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)

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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 !

m@thieu41

m@thieu41

----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :

TI-82 Stats.fr

. :

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

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

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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 ?

m@thieu41

m@thieu41

----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :

TI-82 Stats.fr

. :

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...

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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...

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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

m@thieu41

m@thieu41

----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :

TI-82 Stats.fr

. :

Tu as rentré quoi comme états?

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

-10.44
-5.77
-5.55
-4.98
-3.73

m@thieu41

m@thieu41

----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :

TI-82 Stats.fr

. :

... 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

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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

Linkakro

Linkakro

----------------------

Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :

TI-82 Stats.fr

. :

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:

Dernière édition par Linkakro le Dim 15 Déc 2013 - 18:08, édité 6 fois

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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)

m@thieu41

m@thieu41

----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :

TI-82 Stats.fr

. :

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)

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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

m@thieu41

m@thieu41

----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :

TI-82 Stats.fr

. :

J’apprécie Neutral

Linkakro

Linkakro

----------------------

Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :

TI-82 Stats.fr

. :

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}

Dernière édition par Linkakro le Sam 14 Déc 2013 - 19:34, édité 1 fois

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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...

Linkakro

Linkakro

----------------------

Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :

TI-82 Stats.fr

. :

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...

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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}

Dernière édition par pito2901 le Sam 14 Déc 2013 - 19:05, édité 1 fois

m@thieu41

m@thieu41

----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :

TI-82 Stats.fr

. :

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.

pito2901

pito2901

Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :

TI-82 Stats.fr

. :

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

Contenu sponsorisé

Contenu sponsorisé


TI-Planet	Espace-TI : Forum

Hitskin.com

Absorption et Emission de photons

31 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:07

m@thieu41

32 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:14

pito2901

33 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:16

m@thieu41

34 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:25

pito2901

35 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:32

m@thieu41

36 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:33

pito2901

37 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:35

m@thieu41

38 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:36

pito2901

39 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:37

m@thieu41

40 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:41

pito2901

41 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:50

pito2901

42 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 14:57

m@thieu41

43 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 15:02

pito2901

44 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 15:04

m@thieu41

45 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 15:08

pito2901

46 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 15:12

pito2901

47 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 15:34

m@thieu41

48 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 15:35

pito2901

49 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 15:39

m@thieu41

50 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 15:45

pito2901

51 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 15:48

Linkakro

52 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 15:59

pito2901

53 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 16:07

m@thieu41

54 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 16:26

pito2901

55 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 16:31

m@thieu41

56 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 17:05

Linkakro

57 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 17:23

pito2901

58 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 18:41

Linkakro

59 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 19:01

pito2901

60 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 19:04

m@thieu41

61 Re: Absorption et Emission de photons Sam 14 Déc 2013 - 19:11

pito2901

62 Re: Absorption et Emission de photons

Contenu sponsorisé