Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Traduction Tableau D'avancement
Auteur Message
maestroarte



Autorisation : Membre
Nb de messages : 16
Inscrit le : Lun 21 Fév 2011, 15:29
Posté le : Ven 11 Mar 2011, 12:35   Citer 

:"Tabl avancement - Adriweb
DelVar áPRCFDelVar áPRCMDelVar áRECFDelVar áRECM
1üTmin
1üÁmin
95üTmax
63üÁmax
AxesOff
ClrHome
Normal
Float
Lbl NR
Input "Nbr R–actifs ? ",A
If A>3 or A<1:Goto NR
For(Á,1,A
ClrHome
Disp "R–actif","
Output(1,9,Á
Input "Coefficient? ",B
BüáRECF(Á
Input "Combien de mol? ",B
BüáRECM(Á
ClrHome
End
Lbl NP
Input "Nbr Produits ? ",B
If B>3 or B<1:Goto NP
For(Á,1,B
ClrHome
Disp "Produit","
Output(1,9,Á
Input "Coefficient? ",C
CüáPRCF(Á
Input "Combien de mol? ",C
CüáPRCM(Á
ClrHome
End
DelVar N
9û9üI
For(Á,1,dim(áRECF
áRECM(Á)/áRECF(Á)üJ
If J
Then
JüI
N+1üN
Else
If I=J
Then
ú1üI
End
End
End
If I>0
Then
Disp "React. Limitant:","Reactif
Output(2,9,N
Sci
Disp "","Tmax =
Normal
Output(4,8,I
Output(5,1,"(mol)
Pause
Else
Disp "Les reactifs ont","ete introduits","en proportions","stoechiometrique","","Tmax =
Output(6,8,áRECM(1)/áRECF(1
Output(7,1,"(mol)
Pause
End
Lbl 00
ClrDraw
Horizon1
Vertica1
Horizon63
Vertica95
For(Á,10,63,14
HorizonÁ
End
dim(áRECF)+dim(áPRCF)üA
80/AüB
For(Á,15,95,B
Line(Á,10,Á,63-11(Á>15)(Á<94
End
Text(14,2,"Ini
Text(28,2,"Int
Text(42,2,"Fin
round(95-(dim(áPRCF)*80)/A-2,0üJ
Text(2,J-1,"->
Text(2,J+2,"+
For(Á,1,dim(áRECF
round(80(Á/A),0)-2(dim(áRECF)<3)-7(dim(áRECF)=1)+4(dim(áPRCF)=3)(dim(áRECF)=1)+2(dim(áPRCF)=3)(dim(áRECF)=2üáPOSRE(Á
SortA(áPOSRE
Text(3,áPOSRE(Á),áRECF(Á),"R",Á
End
For(Á,1,dim(áPRCF
95-round(80(Á/A),0)+2(dim(áPRCF)<4)+4(dim(áPRCF)=1)+3(dim(áPRCF)=2üáPOSPR(Á
End
SortA(áPOSPR
For(Á,1,dim(áPRCF
Text(3,áPOSPR(Á),áPRCF(Á),"P",Á
End
Pause
StorePiPic0
Normal:Fix 2
For(Á,1,dim(áRECF
Text(14,áPOSRE(Á)+3(A=4),áRECM(Á
Text(28,áPOSRE(Á)-5+3(A=4)-2(A=3),áRECM(Á),"-",áRECF(Á),"x
Text(42,áPOSRE(Á)-2+3(A=4),áRECM(Á)-áRECF(Á)I
Pause
End
For(Á,1,dim(áPRCF
Text(14,áPOSPR(Á)+2(A=4),áPRCM(Á
Text(28,áPOSPR(Á)+2(A=4),áPRCF(Á),"x
Text(42,áPOSPR(Á)+1(A=4),áPRCM(Á)+áPRCF(Á)I
End
If I>0
Then
Text(54,2,"Tmax=",I," mol
Else
Text(55,2,"Tmax=",áRECM(1)/áRECF(1)," mol
End
Pause
Normal:Float
DelVar áRECMDelVar áRECFDelVar áPRCMDelVar áPRCFDelVar áPOSREDelVar áPOSPRDelVar ÁDelVar ADelVar IDelVar JDelVar B
ClrHome
Output(1,1,"



Voila, je précise que je viens de le trouver sur le web, mais je ne comprends pas certaines lignes, la premiere deja :" DelVar áPRCFDelVar áPRCMDelVar áRECFDelVar áRECM ", comment entre-t-on cette ligne?? J'ai cherché dans catalog mais je ne trouve pas...si quelqu'un peut m'aider ça serait sympa bigmouth.gif
Maestro glasses.gif

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 11 Mar 2011, 12:54   Citer 

Utilise la balise code la prochaine foi, la c'est quasi-illisible...
Ensuite, ce programme ce "à" m'a l'air d'être un L de liste (comprendre le petit L que tu trouve dans le catalogue).
Ensuite, il semble que ce programme utilise des raccourcis sur les fonctions comme "Horizon1" à la place de "Horizontal 1".
Dernier point, le Á est un theta (obtenu en faisant ALPHA+3).

Bref, ce programme me semble bien long pour seulement un tableau d'avancement donc je te conseil ceux que tu trouvera sur le forum.

Sangohan38

PS: Sujet déplacé.

----------------------
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa