Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Equivalence

Equivalence

Auteur

Message

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 27 Déc 2006, 10:08

En TP d'analyse, il faut toujours connaitre des concentrations, puis vérifier la concordence des résultats d'où l'intérêt de ce programme qui le fait à notre place.

²= Puissance de 10
CB= Concentration de la burette
M= Masse pesée
CE= Concentration de l'erlenmeyer
MM= Masse Molaire
Coeff E= Coefficient stoechiométrique de l'erlenmeyer
Veq= Volume de chute de burette
Coeff B= Coefficient stoechiométrique de la burette
PE= Prise d'essais dans l'erlenmeyer
Cmoy= Concentration Moyenne
Conc= Concordence
DC= Delta de la Concentration

Code

Lbl 0
ClrHome
Menu("A L EQUIVALENCE:","CB AVEC M",3,"CB AVEC PE",2,"CE AVEC VEQ",1,"CONCORDENCE",5,"QUITTER",6
Lbl 6
ClrHome
Output(1,1," "
Stop
Lbl 1
Input "CB(MOL/L):",D
Input "VEQ(ML):",E
Input "COEFF B:",F
Input "PE(ML):",B
Input "COEFF E:",C
Output(8,1,"CE=
Output(8,4,(D(E²-3)C)/F/(B²-3)
Output(8,12,"MOL/L
Pause
Goto 0
Lbl 2
Input "CE(MOL/L):",A
Input "PE(ML):",B
Input "COEFF E:",C
Input "VEQ(ML):",E
Input "COEFF B:",F
Output(8,1,"CB=
output(8,4,(A(B²-3)F)/(C(E²-3))
Output(8,12,"MOL/L
Pause
Goto 0
Lbl 3
Input "M(G):",G
Input "MM(G/MOL):",H
Input "COEFF E:",F
Input "VEQ(ML):",E
Input "COEFF B:",C
Output(8,1,"CB=
Output(8,4,(G(E²-3))/(HFC)
Output(8,12,"MOL/L
Pause
Goto 0
Lbl 5
Input "C1(MOL/L):",A
Input "C2(MOL/L):",B
Input "PRECISION(°/°):",C
ClrHome
Output(3,1,"CMOY=
(A+B)/2->D
Output(3,6,D
Output(4,1,"CONC=
Fix 1
Output(4,6,abs(((A-B)/D)*100)
Float
Output(4,10,"°/°
output(5,1,"DC=
Sci
Output(5,4,C/100*D
Normal
Output(6,1,"MOL/L
Pause
Goto 0

Sangohan38

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 07 Fév 2007, 14:31

Voila une meilleure version pour calculer le delta, la concentration moyenne ...

Code

:ClrHome
:Input "C1(MOL/L):",A
:Input "C2(MOL/L):",B
:Input "PRECISION(%):",C
:ClrHome
:Output(2,1,"CMOY=
:(A+B)/2->D
:Ouput(3,1,"CONC=
:Fix 2
:Output(3,6,abs(((A-B)/D)*100)
:Float
:Output(3,10,"%
:Output(4,1,"DC=
:C/100*D->F
:If F [INFERIEUR OU EGAL A]1:1->P
:If F [INFERIEUR OU EGAL A].1:2->P
:If F [INFERIEUR OU EGAL A]E-2:3->P
:If F [INFERIEUR OU EGAL A]E-3:4->P
:If F [INFERIEUR OU EGAL A]E-4:5->P
:If F [INFERIEUR OU EGAL A]E-5:6->P
:If F [INFERIEUR OU EGAL A]E-6:7->P
:If F [INFERIEUR OU EGAL A]E-7:8->P
:If F [INFERIEUR OU EGAL A]E-8:9->P
:If F [INFERIEUR OU EGAL A]E-9:10->P
:If F [INFERIEUR OU EGAL A]E-10:11->P
:F*10^P->G
:Output(4,4,int(G+1
:Output(4,6,"E-
:Output(4,8,P
:Fix P
:Output(2,6,D
:Output(5,8,"[INFERIEUR OU EGAL A]C[INFERIIEUR OU EGAL A]
:Output(5,1,D-(int(G+1)*10^-P)
:Output(5,11,D+int(G+1)*10^-P)
:Output(7,1,"MOl/L
:Float

Sangohan38

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Jeu 08 Mai 2008, 0:37

Voici une version allégée et plus lisible:

Code

EffEcr
Input "C1(MOL/L):",A
Input "C2(MOL/L):",B
Input "PRECISION(ô/ô):",C
EffEcr
Output(2,1,"CMOY=
(A+B)/2ü

D
Output(4,1,"CONC=
Fixe 2
Output(4,6,abs(((A-B)/D)100)
Flottant
Output(4,10,"ô/ô
Output(5,1,"DC=
C/100*Dü

F
For(P,1,100
If F÷

10^ú

P:End
F*10^Pü

G
Output(5,4,partEnt(G)+1
Output(5,6,"ûú

Output(5,8,P
Fixe P
Output(3,6,D
Output(3,1,"CMOY=
Output(7,1,"MOL/L
Flottant
Output(2,6,D
Pause
EffEcr
Output(1,1,"

Voici le lien pour télécharger le fichier: http://www.badongo.com/file/9245949

Je suis ouvert à toute remarques.

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Equivalence

Flux RSS