Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 16 Nov 2009, 18:58
Posté le : Lun 24 Mai 2010, 19:48
Voila un programme de chimie utile en seconde, pour les calculs préliminaires concernants le tableau d'avancement.
On marque l'equation, et le programme l'ajuste avec les coefficients stochiométriques.
[[0ü[E]
EffVar AEffVar B{0üEE
Cha ne8+"+üCha ne8
carCha ne(Rep,"=üC
EffVar U1üS
Repeat U=longueur(Cha ne8
carCha ne(Cha ne8,"+",SüU
If Rep>C et S<C
CüU
sous-Cha ne(Cha ne8,S,U-SüCha ne0
{0üA
RepüE
EffVar NEffVar VEffVar WEffVar X0üZ
For(T,1,longueur(Cha ne0
sous-Cha ne(Cha ne0,T,1üCha ne9
If X
Then
carCha ne("ieaouglrcnsbhdftypmkjqvmxz",Cha ne9üY
Z+1üZ
1-2(Xù30üáA(Z
30Y+min(27,XüáE(Z
End
If XY
Then
0üX
Else
carCha ne("HCONBDAPSFGIKLMRTUVXYZWEJQú-ëÑ*",Cha ne9üX
End
If Rep
Then
If N
Then
For(Á,(Wø0)V+Znon(W),Z
NáA(ÁüáA(Á
End
0üN
End
If W
Then
EffVar WEffVar V
End
Else
carCha ne("0123456789",Cha ne9
If Rep
Then
10N+Rep-1üN
Else
If N
Then
For(Á,(Wø0)V+Znon(W),Z
NáA(ÁüáA(Á
End
0üN
End
If W
Then
EffVar VEffVar W
Else
If V
Then
Cha ne9=")üW
Else
(Z+1)(Cha ne9="(üV
End
End
End
End
End
If X
Then
1-2(Xù30üáA(Z+1
min(27,XüáE(Z+1
Else
If N
Then
For(Á,(Wø0)V+Znon(W),Z
NáA(ÁüáA(Á
End
End
End
1-2(U>CüX
B+1üB
{max(1,A),Büdim([E]
For(Á,1,dim(áE
If A
Then
somme(somCum(áEE=áE(Á
If Rep
Then
A+1-Rep
[E](Rep,B)+XáA(Áü[E](Rep,B
Else
A+1üA
áE(ÁüáEE(A
{A,Büdim([E]
XáA(Áü[E](A,B
End
Else
áE(1üáEE(1
XáA(1ü[E](1,B
1üA
End
End
U+1üS
End
A+1üA
max(A,B+1üX
{A,Xüdim([E]
1ü[E](A,1
1ü[E](A,X
Matråliste(Gauss-Jordan([E]),X,áA
Büdim(áA
somCum(1+0áA)non(non(partD–c(áAüE
TriD–croi(áE
somme(non(non(áEüdim(áE
For(Á,1,Rep
áA(áE(Á
If partD–c(Rep
Then
{1,abs(Rep
Repeat ûú9>Rep(2
Rep(2){1,partD–c(Rep(1)/Rep(2
End
áAarrondi(Rep(1)ñ,0üA
End
End
áA
---------------------- Eleve a Supinfo, programmeur C/C#/C++/Java/Assembleur
Delphi/et tout les langages Web.
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 24 Mai 2010, 20:51
ok... j'essaierais bien mais j'ai pas le temps de recopier là...
je comprends pas tout les caractères:
il, y a des "A" différents, des "à".
pourquoi tu écris une variable après les chaines? (je vois "Chaine 9 Y")
ca permet de faire quoi?
sinon ton prog pourrait être utile pas qu'en seconde... il y a des premières qui savent toujours pas faire, tu m'autoriserais à vendre ton prog?
Si j'abuse hésite pas à le dire.
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 26 Mai 2010, 0:19
C'est la première fois que je vois des fonctions de matrice et Gauss-Jordan dans un programme dont le thème est la chimie
Quoi qu'il en soit c'est intéressant mais je n'ai pas encore essayé.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 26
Inscrit le : Mar 13 Avr 2010, 12:34
Posté le : Jeu 27 Mai 2010, 10:22
Ce qui me fait rire, c'est qu'on voit bien le genre de programme qui arrive sur ce site au cours de l'année:
il sont complétement en lien direct avec le programme de lycée (ici programme de 2nd).
MDR
sa a l'air super compliquer. Moi je n'utilise que des fonctions de BASE ... C'est triste parce qu'on est toujours bloqué au même type de programme, mais au moins ça permet d'avoir l'esprit capable d'inventer beaucoup de chose rien qu'avec des Input et des If! alors je perd par espoir ^^
Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 16 Nov 2009, 18:58
Posté le : Lun 31 Mai 2010, 19:25
J'ai fait ce programme il y a 5 ans, quand j'étais en seconde ^^
Sinon tu peux vendre mon programme, mais tu ne le modifie pas ! et je veux une part ! (Non je plaisante !)
Bonne continuation !
---------------------- Eleve a Supinfo, programmeur C/C#/C++/Java/Assembleur
Delphi/et tout les langages Web.
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 05 Jui 2010, 0:24
J'ai recopié tout ce qui était compréhensible.
Cependant je ne peux pas le faire marcher tant que j'ignore la signification des caractères incongrus
S'il te plaît donne nous les significations exactes de :
á Á ûú ñ
et des expressions du genre :
áA(Á
ú-ëÑ*
áEE=áE(Á
Rep(2
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 58
Inscrit le : Mer 07 Oct 2009, 20:44
Posté le : Dim 06 Jui 2010, 10:21
Le ü est la touche sto->
le ú est la touche ( - )
Le À est une variable
le Rep est Ans sur les TI qui ne sont pas française
Je pense que EE s'obtient en faisant (2nd)+(,)
Après le reste, je sais pas trop …
Reinhart Invité
Posté le : Lun 07 Jui 2010, 21:29
Je vous met ca au plus vite, je suis occupe en ce moment. Demain ca va
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 26 Jui 2010, 18:05
J'ai réussi à le faire fonctionner grâce à TiProgramEditor que j'obtint il y a quelques jours, , car c'est re-traduit dans le sens inverse (sauf que j'ai dû d'abord le mettre en anglais)
Voici les traductions :
ü [sto]
á le petit L de liste
Á [têta]
ñ inverse
û Le E de puissance de 10 [EE]. Attention les EE dans le programme sont deux lettres mais PAS la touche [EE] !
ú ( - ) le moins de négatif
ø [=/=]
ù [>=]
ë [e] le e des fonctions logarithme.
Ñ la petite croix dans le catalogue
å la flèche en triangle
Ca fonctionne mais je ne comprends pas toutes les syntaxes du genre rep(1)
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 28 Jui 2010, 12:07
Ce programme ne fonctionne que lorsque l'un des membres n'est composé que d'un seul terme . L'erreur vient peut-être de moi ? *honteux*
H2O+O2=H2O2 {2,1,2} OK
C2H6+O2=CO2+H2O {0,0,0,0}
Je ne comprends toujours rien au programme, c'est pour cela que je développe le mien (grâce à la notice que je n'aurais pas eu l'idée de consulter sans voir le Gauss-Jordan de Reihnart)
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png)
C'est la première fois que je vois des fonctions de matrice et Gauss-Jordan dans un programme dont le thème est la chimie 
alors je perd par espoir ^^
. 