SOLUTION 1 Calculate acidity for this solution in USER_PRINT-units mmol/LpH 3Fe(3) 1Al 1S(6) 6 chargeENDPHASESFix_H+H+ = H+ENDUSE solution 1EQUILIBRIUM_PHASESFix_H+ -4.5 H112O56.5Na1.0 1USER_PRINT10 PRINT "Acidity:", -EQUI_DELTA("Fix_H+"), " eq per liter"20 PRINT "Acidity: ", \ STR_F$(-EQUI_DELTA("Fix_H+") * GFW("CaCO3")/2*1000, 6, 1), \ " mg CaCO3/L"END
SOLUTION 1 Calculate acidity for this solution in last USER_PRINT-units mmol/LpH 3 Fe(3) 1Al 1Mn 1S(6) 6 chargeC(4) 1 ENDPHASESFix_H+ H+ = H+ log_k 0ENDTITLE equilibrate with atmospheric CO2USE solution 1EQUILIBRIUM_PHASES 1 CO2(g) -3.4 1SAVE solution 1SELECTED_OUTPUT 2-file pH_3.5.pqiUSER_PUNCH 2 10 IF -LA("H+") <= 3.5 THEN r$ = " NaOH 10" ELSE r$ = " HCl 10 " 20 IF -LA("H+") <= 3.5 THEN d = 1 ELSE d = 2 30 s$ = "USE solution 1" + EOL$ 40 s$ = s$ + "EQUILIBRIUM_PHASES 1" + EOL$ 50 s$ = s$ + "CO2(g) -3.4 0" + EOL$ 60 s$ = s$ + "Fix_H+ -3.5 " + r$ + EOL$ 70 s$ = s$ + "SAVE solution 1" + EOL$ 80 s$ = s$ + "USER_PRINT" + EOL$ 90 s$ = s$ + '10 PUT(EQUI_DELTA("Fix_H+"),' + STR_F$(d, 2, 0) + ")" + EOL$100 s$ = s$ + '20 PRINT r$, d, EQUI_DELTA("Fix_H+")' + EOL$200 PUNCH s$ENDSELECTED_OUTPUT 2-active falseENDTITLE titrate to pH_3.5 with HCl or NaOHINCLUDE$ pH_3.5.pqiENDTITLE titrate to pH 8.3 with NaOHUSE solution 1EQUILIBRIUM_PHASES 1 Fix_H+ -8.3 NaOH 10 Gibbsite 0 0 Goethite 0 0 O2(g) -0.7 10 Pyrolusite 0 0USER_PRINT 10 PRINT "NaOH added to pH 3.5:", -GET(1) 20 PRINT "HCl added to pH 3.5:", -GET(2) 30 PRINT "NaOH added to pH 8.3:", -EQUI_DELTA("Fix_H+") 40 alka = -GET(2) + GET(1) 50 acid = -EQUI_DELTA("Fix_H+") - alka110 PRINT "Acidity, eq per liter: ", STR_E$(acid, 10, 4)120 PRINT "Acidity, mg CaCO3/L: ", STR_F$(acid * GFW("CaCO3")/2*1000, 6, 1) END