Etudie les atomes avec ta TI-83 Premium CE !

[Bisam]

On peut un peu améliorer le code déjà amélioré par Mingerton en remplaçant :

Code: Select all

Z-1→Z
If Z<112
Then
    Output(10,8,sub(Str1,2Z+1,2
Else
    Z-112→Z
    Output(10,7,sub(Str2,3Z+1,3
    Z+112→Z
End
Z+1→Z


par

Code: Select all

If Z<113
Then
    Output(10,8,sub(Str1,2Z-1,2
Else
    Output(10,7,sub(Str2,3Z-338,3
End


On peut aussi grandement améliorer le code pour le calcul de A (en fait, ce devrait être N, à savoir le nombre de neutrons de l'isotope le plus courant, et non A...) en faisant une liste L de toutes les valeurs de A (de N, en fait), pour Z allant de 1 à 118... et du coup, il suffit de renvoyer L(Z).
Ainsi, on remplacerait :

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all

    If Z=1
    Then
        Z-1→A
    End
    If max(Z={2,6,7,8,10,12,14,16,20
        Z→A
    If max(Z={3,4,5,9,11,13,15,17,19
        Z+1→A
    If Z=21 or Z=28
        Z+3→A
    If max(Z={18,22,24,26
        Z+4→A
    If max(Z={23,25,27,30
        Z+5→A
    If Z=29
        Z+6→A
    If Z=31
        Z+8→A
    If Z=32 or Z=33
        Z+9→A
    If Z=35
        Z+10→A
    If max(Z={34,37,39,40,41
        Z+11→A
    If max(Z={36,38,42,43
        Z+12→A
    If Z=44 or Z=45
        Z+13→A
    If Z=46 or Z=47
        Z+14→A
    If Z=48
        Z+16→A
    If Z=49
        Z+17→A
    If Z=50
        Z+19→A
    If Z=51
        Z+20→A
    If Z=53
        Z+21→A
    If max(Z={54,55,59,61
        Z+23→A
    If max(Z={52,58,60
        Z+24→A
    If Z=56 or Z=57
        Z+25→A
    If Z=62 or Z=63
        Z+26→A
    If Z=64 or Z=65
        Z+29→A
    If max(Z={66,67,68,69
        Z+31→A
    If Z=70 or Z=71
        Z+33→A
    If Z=72
        Z+34→A
    If Z=73
        Z+35→A
    If Z=74 or Z=75
        Z+36→A
    If Z=76 or Z=77
        Z+38→A
    If Z=78 or Z=79
        Z+39→A
    If Z=85
        Z+40→A
    If Z=80 or Z=84
        Z+41→A
    If Z=82 or Z=83
        Z+43→A
    If max(Z={87,89,91,108
        Z+49→A
    If max(Z={86,88,107,109
        Z+50→A
    If max(Z={93,106,111
        Z+51→A
    If Z=90 or Z=105
        Z+52→A
    If max(Z={95,97,104
        Z+53→A
    If Z=92 or Z=99
        Z+54→A
    If max(Z={96,98,102
        Z+55→A
    If max(Z={94,101,103
        Z+56→A
    If max(Z={100,113,114,115,116,117,118
        Z+57→A
    If Z=110
        Z+61→A

par

Code: Select all

{0,2,4,5,6,6,7,8,10,10,12,12,14,14,16,16,18,22,21,20,24,26,28,28,30,30,31,30,35,35,39,41,42,45,45,48,48,50,50,51,52,54,55,57,58,60,61,64,66,69,71,76,74,77,78,81,82,82,82,84,84,88,89,93,94,97,98,99,100,103,104,106,108,110,111,114,115,117,118,121,123,125,126,125,125,136,136,138,138,142,140,146,144,150,148,151,150,153,153,157,157,157,159,157,157,157,157,161,159,162,162,165,173,175,173,176,175,175
Ans(Z→N
N+Z→A

et du coup, il faudrait aussi modifier l'affichage pour afficher séparément Z, N et A.

[Mingerton]

J'avais envoyé cette version modifiée à loupiot, qui ne m'a pas donné de réponse. J'avais envoyé le code suivant

Code: Select all

ClrHome
Output(7,12,"Z =
Input Z
If Z<=0 or Z>=119
Output(7,6,"ATOME IMPOSSIBLE
Output(1,1,"ELECTRON
Output(2,1,Z9.1|E~31
Output(3,1,~Z1.6|E~19
Output(4,1,"NEUTRON
Output(6,1,"0
Output(7,1,"PROTON
Output(8,1,Z1.67|E~27
Output(9,1,Z1.6|E~19
Output(2,25,"KG
Output(3,26,"C
Output(5,25,"KG
Output(6,26,"C
Output(8,25,"KG
Output(9,26,"C
Output(10,25,"KG
Output(10,1,"ATOME:
If Z<113
Then
Output(10,8,sub("H HeLiBeB C N O F NeNaMgAlSiP S ClArK CaScTIV CrMnFeCoNiCuZnGaGeAsSeBrKrRbSrY ZrNbMoTcRuRhPdAgCdInSnSbTeI XeCsBaLaCePrNdPmSmEuGdTbDyHoErTwYbLuHfTaW ReOsIrPtAuHgTiPdBiPoAtRnFrRaAcThPaU NpPuAmCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCn",2Z-1,2
Else
Output(10,8,sub("UutFl UupLv UusUuo",3Z-338,3
End Z+{~1,0,1,1,1,0,0,0,1,0,1,0,1,0,1,0,1,4,1,0,3,4,5,4,5,4,5,3,6,5,8,9,9,11,10,12,11,12,11,11,11,12,12,13,13,14,14,16,17,19,20,24,21,23,23,25,25,24,23,24,23,26,26,29,29,31,31,31,31,33,33,34,35,36,36,38,38,39,39,41,0,43,43,41,40,50,49,50,49,52,49,54,51,56,53,55,53,55,54,57,56,55,56,53,52,51,50,49,50,61,51,0,57,57,57,57,57,57}(Z->A
Output(4,10,"A=
Output(4,12,A+Z
Output(5,1,A1.67|E~27
Output(10,11,(A+Z)1.67|E~27+Z9.1|E~31

// ajouté la modif du choix des chaînes, je n'avais pas vu cette énorme erreur !

A remanier sans modération !

[loupiot]

merci pour tout vos retours !
J'ai suivi votre recommandation de déplacer le A= (et crée une valeur N pour les nucléons pour que ça soit plus simple).
je l'ai donc afficher dans la partie atome et réduit le nombre de chiffre après la virgule.
J'ai suivi vos programmes pour la partie des nucléons;
Ca me donne vraiment envie de continuer les programmes, merci

[critor]

Merci à toi loupiot.
C'est super clair maintenant !

J'ai édité le 1er post avec une nouvelle capture d'écran, et la mention de la possibilité de déterminer le nombre de nucléons.

Si je puis me permettre un dernier retour, je pense qu'il serait également utile de donner le nombre de neutrons, N=A-Z.
Et cela tombre bien, puisque tu as justement toute la place désormais sur la ligne "Neutrons" par exemple.

[GalacticPirate]

@Loupiot Quoi ? Mais N=neutrons, Z=protons, A=nucléons, donc tu ne peuxpas mettre N=nucléons

[loupiot]

Oui, je me suis trompé, la variable N représente les neutrons et A les nucléons ...