π
<-
Chat plein-écran
[^]

Etudie les atomes avec ta TI-83 Premium CE !

:32ti73: :32ti73e: :32ti73e2: :32ti76f: :32ti80: :32ti81: :32ti82: :32ti85: :32ti86: :32ti82s: :32ti82sf: :32ti82sfn: :32ti83: :32ti83p: :32ti83pb: :32ti83pr: :32ti83pfr: :32ti83pse: :32ti84p: :32ti84pse: :32ti84ppse: :32ti84pfr: :32ti84pcse: :32ti83pfrusb: :32ti82p: :32ti82a: :32ti84pce: :32ti83pce:

Re: Etudie les atomes avec ta TI-83 Premium CE !

Unread postby Bisam » 03 Nov 2015, 21:16

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 :
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.
User avatar
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 48.2%
 
Posts: 5470
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):

Re: Etudie les atomes avec ta TI-83 Premium CE !

Unread postby Mingerton » 03 Nov 2015, 22:34

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 ! ;)
User avatar
MingertonAmbianceur
Niveau 13: CU (Calculateur Universel)
Niveau 13: CU (Calculateur Universel)
Level up: 69.6%
 
Posts: 655
Images: 2
Joined: 13 May 2014, 19:36
Location: À l'infini
Gender: Male
Calculator(s):
Class: Américaine

Online

Re: Etudie les atomes avec ta TI-83 Premium CE !

Unread postby loupiot » 05 Nov 2015, 22:10

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 :D
User avatar
loupiotProgrammeur
Niveau 13: CU (Calculateur Universel)
Niveau 13: CU (Calculateur Universel)
Level up: 65.2%
 
Posts: 158
Images: 4
Joined: 30 Oct 2015, 13:23
Gender: Male
Calculator(s):
Class: MP* berthelot

Re: Etudie les atomes avec ta TI-83 Premium CE !

Unread postby critor » 06 Nov 2015, 10:00

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

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. ;)
Image
User avatar
critorAdmin
Niveau 19: CU (Créateur Universel)
Niveau 19: CU (Créateur Universel)
Level up: 5.2%
 
Posts: 35332
Images: 9406
Joined: 25 Oct 2008, 00:00
Location: Montpellier
Gender: Male
Calculator(s):
Class: Lycée
YouTube: critor3000
Twitter: critor2000
Facebook: critor.ti

Re: Etudie les atomes avec ta TI-83 Premium CE !

Unread postby GalacticPirate » 06 Nov 2015, 12:02

@Loupiot Quoi ? Mais N=neutrons, Z=protons, A=nucléons, donc tu ne peuxpas mettre N=nucléons :\
Mon profil TI-Planet
Mon Internetometer
Devenez premium !
ImageImageImage
Modérateur de TI-Planet.org depuis décembre 2015, et membre actif de la communauté depuis Mai 2015, je suis toujours disponible pour aider (ou pas :troll: )Cliquez ci-dessus pour me donner un Internet ! Ça ne sert absolument à rien mais c'est marrant :pCliquez ci-dessus pour faire un don à TI-Planet.org via PayPal et devenir Donateur ou Premium (à partir de 3€) ! Vous aurez accès à des générations illimitées et prioritaires avec Mviewer GX Creator, ainsi qu'au forum secret ! :bj: En plus, vous pourrez être orange sur le chat :troll:

Image
User avatar
GalacticPirateModo
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 90.9%
 
Posts: 1155
Images: 2
Joined: 23 May 2015, 10:36
Location: Bourg-La-Reine, 92, France
Gender: Male
Calculator(s):
Class: L1
YouTube: Zack Voyager
Twitter: @STVthebest
Facebook: Zack Voy

Online

Re: Etudie les atomes avec ta TI-83 Premium CE !

Unread postby loupiot » 06 Nov 2015, 21:05

Oui, je me suis trompé, la variable N représente les neutrons et A les nucléons ...
User avatar
loupiotProgrammeur
Niveau 13: CU (Calculateur Universel)
Niveau 13: CU (Calculateur Universel)
Level up: 65.2%
 
Posts: 158
Images: 4
Joined: 30 Oct 2015, 13:23
Gender: Male
Calculator(s):
Class: MP* berthelot

Previous

Return to News TI-z80 (TI-73, 76, 80, 81, 82, 83, 84, 85, 86)

Who is online

Users browsing this forum: jean-baptiste boric and 6 guests

-
Search
-
Featured topics
L'OS 5.5 de la TI-83 Premium CE / 84 Plus CE supprime l'assembleur - la plupart des jeux et certains programme ne fonctionneront plus
Omega, le fork étendant les capacités de ta NumWorks, même en mode examen !
Découvre les nouvelles fonctionnalités en Python de l'OS 5.5 pour la 83PCE/84+C-T Python Edition
Comparaisons des meilleurs prix pour acheter sa calculatrice !
1234
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...

Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety 
-
Stats.
391 utilisateurs:
>370 invités
>16 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)