**TI92P*Group file dated 04/29/01, 06:50 chimprogmenurogCpolyions!weakacidweakbase1Z tab_per\aatable()-Wtab_per\aaperiod()-Wchimprog\weakbase(-Wchimprog\weakacid(-Wchimprog\polyions(-WChimie-V`E*xOHxHxLHo x$h NA .NHxHo HxLNONuZirconium (II,III,IV)ZincTitanium (II,III,IV)Tin (II,IV)ThiosulfateThiocyanateThallium (I,III)TellurideTartarateSulfiteSulfideSulfateStrontiumSodiumSilverSilicate, Ortho-Silicate, Meta-SeleniteSelenidePropionatePotassiumPlatinum (II,IV)Phosphite, Ortho-Phosphite, Hypo-Phosphate, Pyro-Phosphate, Ortho-Phosphate, Meta-Phosphate, Hypo-PhosphatePerchlorateOxide, Per-OxideOxalateNitriteNitrateNickelMolybdenum(2,3,4,5,6)MolybdateMercury (II)Mercury (I)Manganese (II,IV,VII)Manganate, Per-ManganateMagnesiumLithiumLead (II,IV)Iron (II,III)IodideIodateHydroxideHydrogen sulfiteHydrogen sulfateHydrogen phosphateHydrogen carbonateHydrogenHydrideHexacyanoferrate(III)Hexacyanoferrate(II)Gold (I,III)FormateFluorideDihydrogen phosphateDiammine silver (I)CyanideCyanateCopper (I,II)Cobalt (II,III)CitrateChromium (II,III)Chromate, Di-ChromateChlorite, Hypo-ChloriteChlorideChlorate, Per-ChlorateCesiumCerium (III,IV)CarbonateCalciumCadmiumBromideBromateBoronBorateBisulfateBismuthBicarbonateBerylliumBenzoateBariumArseniteArsenic (III,V)Arsenate, Ortho-Antimony (III,V)AmmoniumAmideAluminumAcetateZr +1Zn +2Ti +1Sn +1S2O3 -2SCN -1Tl +1Te -2C4H4O6 -2SO3 -2S -2SO4 -2Sr +2Na +1Ag +1SiO4 -2SiO3 -2SeO3 -2Se -2C3H5O2 -1K +1Pt +1PO3 -3H2PO2 -1P2O7 -4PO3 -1P2O6 -4PO4 -3O2 -2O -2C2O4 -2NO2 -1NO3 -1Ni +2Mo +1MoO4 -2Hg +2Mn +1MnO4 -2Mg +2Li +1Pb +1Fe +1I -1IO3 -1OH -1HSO3 -1HPO4 -2H +1H -1Fe(CN)6 -3Fe(CN)6 -4Au +1CHO2 -1F -1H2PO4 -1Ag(NH3)2 +1CN -1OCN -1Cu +1Co +1C6H5O7 -1Cr +1Cr2O7 -2CrO4 -2ClO -1ClO2 -1Cl -1ClO4 -1ClO3 -1Cs +1Ce +1CO3 -2Ca +2Cd +2Br -1BrO3 -1B +3BO3 -3HSO4 -1Bi +3HCO3 -1Be +2C7H5O2 -1Ba +2AsO3 -3As +1AsO4 -3Sb +1NH4 +1NH2 -1Al +3C2H3O2 -1Polyions/By Entropix (Press F1)H82/$&o*4o20/&0@.0@<F~ F8G6/(SC CgPzCx$~JfF: F8 Fő`p"B0 > f`CAQLNuAbout PolyionsCreated by EntropixData was ported andslightly modified fromIons 1.0 for the TI-86.It was created by 'Garves'.NVH8BD? m?< ?<Z?<N?<6H/38BgBg mNO$?</28Bg?<d mNO Dbn8?<RD6HSD/38?<Bg mN?</28?<?<d mNO Dan8?<TD6HUD/38?<Bg mN?</28?<?<d mNO D`n8?<VD6HWD/38?<Bg mN?</28?<?<d mNO D_n8?<XD6HYD/38?< Bg mN?</28?< ?<d mNO D^n8?<ZD6H[D/38?<(Bg mN?</28?<(?<d mNO D]n8?<\D6H]D/38?<0Bg mN?</28?<0?<d mNO D\n8?<^D6H_D/38?<8Bg mN?</28?<8?<d mNO D[n8?<PD6HQD/38?<@Bg mN?</28?<@?<d mNO DZn81,%?pwww]w=pL7?, &> 8 & * . 2 6 : > B F} Js Ng R_ VU ZN ^H b@ f8 j0 n( r v z ~          ~ v n Z E < 4 '            } p h ^TD ." "&*.26:>BFzJiNXRFV5Z+^ bfjnrvz~t_ZDjd]VPHB:4*$ "&*.26|:v>jBaF\JTNNRCV8Z3^.bf&jnrvz ~}wrhbZRJD>8 1,%"&*.26:() Prgm Local ka,initacid,inith,initbase,x,ph,poh,finlacid,finlbase,finalh,finaloh ClrIO Input "Ka=?",ka Disp "","Initial molarity of" Input "weak acid=?",initacid Disp "" Input "Initial [H+]=?",inith Disp "","Intial molarity of" Input "conjugate base=?",initbase .5*(initbase+inith+ka-((initbase+inith+ka)^2-4*(initbase*inith-ka*initacid)))x inith+xfinalh log(finalh)ph 14-phpoh 1.14/finalhfinaloh initacid-xfinlacid initbase+xfinlbase ClrIO setMode("2","4") setMode("4","1") Output 1,1,"[H+]=" Output 1,31,finalh Output 9,1,"[OH]=" Output 9,37,finaloh setMode("2","3") Output 25,1,"pH=" Output 25,19,ph Output 33,1,"pOH=" Output 33,25,poh setMode("2","4") Output 49,1,"[Acid]=" Output 49,43,finlacid Output 57,1,"[Base]=" Output 57,43,finlbase setMode("2","20") EndPrgm }&() Prgm Local kb,initacid,initoh,initbase,x,ph,poh,finlacid,finlbase,finalh,finaloh ClrIO Input "Kb=?",kb Disp "","Initial molarity of" Input "weak base=?",initbase Disp "" Input "Initial [OH]=?",initoh Disp "","Initial molarity of" Input "conjugate acid=?",initacid .5*(initacid+initoh+kb-((initacid+initoh+kb)^2-4*(initacid*initoh-kb*initbase)))x initoh+xfinaloh log(finaloh)poh 14-pohph 1.14/finalohfinalh initacid+xfinlacid initacid-xfinlbase ClrIO setMode("2","4") setMode("4","1") Output 1,1,"[H+]=" Output 1,31,finalh Output 9,1,"[OH]=" Output 9,37,finaloh setMode("2","3") Output 25,1,"pH=" Output 25,19,ph Output 33,1,"pOH=" Output 33,25,poh setMode("2","4") Output 49,1,"[Acid]=" Output 49,43,finlacid Output 57,1,"[Base]=" Output 57,43,finlbase setMode("2","20") EndPrgm ܏