Différences
Ci-dessous, les différences entre deux révisions de la page.
Les deux révisions précédentes Révision précédente | |||
ti89 [2021/03/22 00:13] – physix | ti89 [2021/03/22 00:14] (Version actuelle) – physix | ||
---|---|---|---|
Ligne 12: | Ligne 12: | ||
{{: | {{: | ||
- | |||
- | Pour HP | ||
- | |||
- | {{: | ||
- | < | ||
- | |||
- | « "JBSIM 1.3 BY J.B." { " | ||
- | IF CHOOSE | ||
- | THEN { " | ||
- | « "Acide Fort" { { " | ||
- | IF INFORM | ||
- | THEN OBJ→ DROP | ||
- | END -1. 0. | ||
- | » BaseForte | ||
- | « "Base Forte" { { " | ||
- | IF INFORM | ||
- | THEN OBJ→ DROP | ||
- | END 1. 0. | ||
- | » Acidite1 | ||
- | « "1 ACIDITE" | ||
- | IF INFORM | ||
- | THEN OBJ→ DROP | ||
- | END → CA CB pKa | ||
- | « H CB * CA pKa NEG ALOG * - H pKa NEG ALOG + / 1. | ||
- | » 0. | ||
- | » Acidites2 | ||
- | « "2 ACIDITES" | ||
- | IF INFORM | ||
- | THEN OBJ→ DROP | ||
- | END → C1 C2 C3 pKa1 pKa2 | ||
- | « C2 2. C1 * + H C3 * H C1 * - pKa2 ALOG * - 2. H 2. ^ * C3 * H 2. ^ C2 * + pKa2 pKa1 + ALOG * - NEG 1. H pKa2 ALOG * + H 2. ^ pKa2 pKa1 + ALOG * + / 1. | ||
- | » 0. | ||
- | » Acidites3 | ||
- | « "3 ACIDITES" | ||
- | IF INFORM | ||
- | THEN OBJ→ DROP | ||
- | END → C1 C2 C3 C4 pKa1 pKa2 pKa3 | ||
- | « -1. 10. pKa1 NEG pKa2 - pKa3 - ^ 10. pKa2 NEG pKa1 - ^ H * + 10. pKa1 NEG ^ H 2. ^ * + H 3. ^ + / 3. 10. pKa2 NEG pKa3 - ^ * 2. 10. pKa2 NEG ^ * H * + H 2. ^ + * C1 C2 + C3 + C4 + * 10. pKa1 NEG ^ * C2 + 2. C3 * + 3. C4 * + 1. | ||
- | » 0. | ||
- | » CH1 | ||
- | « { AcideFort BaseForte Acidite1 Acidites2 Acidites3 Continuer } 1. | ||
- | » Calcul1pH | ||
- | « { Vd 10. } | { V 0. } | ' | ||
- | » Courbe | ||
- | « (0.,-2.) VM SORT DUP SIZE GET 14. R→C ' | ||
- | « ' | ||
- | » ' | ||
- | » } → Ch LISTE | ||
- | « ' | ||
- | « | ||
- | DO LISTE DUP CH1 POS 1. + GET " | ||
- | IF CHOOSE | ||
- | THEN | ||
- | IF DUP Continuer SAME | ||
- | THEN DROP LISTE DUP Calcul1pH POS 1. + GET EVAL | ||
- | ELSE LISTE DUP 3. ROLL POS 1. + GET EVAL 3. ROLL 3. ROLL * 3. ROLL + SWAP | ||
- | END | ||
- | ELSE DROP 1. | ||
- | END | ||
- | UNTIL | ||
- | END | ||
- | » | ||
- | « | ||
- | DO LISTE DUP CH1 POS 1. + GET " | ||
- | IF CHOOSE | ||
- | THEN | ||
- | IF DUP Continuer SAME | ||
- | THEN DROP | ||
- | DO LISTE DUP CH1 POS 1. + GET " | ||
- | IF CHOOSE | ||
- | THEN | ||
- | IF DUP Continuer SAME NOT | ||
- | THEN LISTE DUP 3. ROLL POS 1. + GET EVAL 3. ROLL V * Vd V + / 3. ROLL * 3. ROLL + SWAP | ||
- | ELSE DROP " | ||
- | IF INFORM | ||
- | THEN OBJ→ DROP ' | ||
- | ELSE DROP 1. | ||
- | END | ||
- | END | ||
- | ELSE DROP 1. | ||
- | END | ||
- | UNTIL | ||
- | END | ||
- | ELSE LISTE DUP 3. ROLL POS 1. + GET EVAL 3. ROLL Vd * Vd V + / 3. ROLL * 3. ROLL + SWAP | ||
- | END | ||
- | ELSE DROP 1. | ||
- | END | ||
- | UNTIL | ||
- | END 0. ' | ||
- | « ' | ||
- | » ' | ||
- | FOR M VM M GET DUP ' | ||
- | NEXT NVAC 2. 2. →LIST →ARRY " | ||
- | IF CHOOSE | ||
- | THEN | ||
- | IF " | ||
- | THEN LISTE DUP Courbe POS 1. + GET EVAL | ||
- | END | ||
- | END { Vd VM NVAC } PURGE | ||
- | » } Ch GET EVAL | ||
- | » | ||
- | END | ||
- | » | ||
- | |||
- | </ | ||