PHASES # from PHREEQC.datFix_pHH+ = H+log_k 0.0Fix_pee- = e-log_k 0.0 ENDSOLUTION 1 Top Lysi 01-A temp 10 pH 6.6 pe 10.7478 units mg/l Fe(2) 0.0234 O(0) 1 O2(g) -0.68 -water 1 # kgENDMIX1 1SAVE solution 2ENDUSE solution 1EQUILIBRIUM_PHASES 1fix_pe -10.7478 O2(g)fix_pH -6.6 Ca(OH)2 SAVE solution 3END
SOLUTION 1...EQUILIBRIUM_PHASE 1...EXCHANGE 1-equil 1...SURFACE 1-equil 1...END
DELETE ...ENDDUMP...END
PHASESFix_pH H+ = H+ log_k 0Fix_pe e- = e- log_k 0ENDSOLUTION 1 Top Lysi 01-A temp 10 pH 6.6 pe 10.7478 redox pe units mg/l density 1 C 83.9 Ca 68.4 Cl 70.92 Fe 0.0234 K 23 Mg 10.72 N 121.6 Na 16.19 O(0) 1 O2(g) -0.68 S 4.3 -water 1 # kgENDUSE solution 1EQUILIBRIUM_PHASES 1 fix_pH -6.6 Ca(OH)2 10 fix_pe -10.7478 O2(g) 10SAVE solution 1SELECTED_OUTPUT 101 -file classic.pqi -reset falseUSER_PUNCH 101 -headings -start 10 s$ = "SOLUTION " + STR_F$(CELL_NO, 5, 0) + EOL$ 20 s$ = s$ + "-units mol/kgw" + EOL$ 30 s$ = s$ + "-water " + STR_E$(TOT("water"), 25, 14) + EOL$ 40 s$ = s$ + "-temp " + STR_F$(TC, 11, 4) + EOL$ 50 s$ = s$ + "pH " + STR_F$(-LA("H+"), 21, 14) + EOL$ 60 s$ = s$ + "pe " + STR_F$(-LA("e-"), 21, 14) + EOL$110 t = SYS("elements", count, name$, type$, moles)120 FOR i = 1 to count130 IF (name$(i) = "H" or name$(i) = "O") THEN GOTO 200140 IF INSTR(name$(i),")") > 0 THEN GOTO 200150 s$ = s$ + PAD(name$(i),7) + STR_E$(TOTMOL(name$(i)), 25, 14) + EOL$200 NEXT i300 PUNCH s$ + "END" + EOL$ -endENDSELECTED_OUTPUT 101-active falseENDINCLUDE$ classic.pqi