Autorisation : Membre
Nb de messages : 16
Inscrit le : Lun 21 Fév 2011, 15:29
Posté le : Ven 11 Mar 2011, 12:35
:"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
Maestro
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 11 Mar 2011, 12:54
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.
