SOLUTIONENDUSE solution 1EQUILIBRIUM_PHASESCalcite 0 10Gypsum 0 10REACTIONCO2 10.1 mol in 4 stepsSELECTED_OUTPUT 2-file equi_listUSER_PUNCH 2-heading Minerals10 e = SYS("equi", count , name$ , type$ , moles, 1 )20 tab$ = CHR$(9)30 FOR i = 1 TO count40 s$ = s$ + name$(i) + tab$ + STR_E$(EQUI_DELTA(name$(i)),15,6) + tab$50 NEXT i60 PUNCH s$ END
SOLUTION 1 SEAWATER FROM NORDSTROM AND OTHERS (1979) units ppm pH 8.22 pe 8.451 density 1.023 temp 25.0 Ca 412.3 Mg 1291.8 Na 10768.0 K 399.1 Cl 19353.0 Alkalinity 141.682 as HCO3 S(6) 2712.0SELECTED_OUTPUT 2-file equi-so.pqiUSER_PUNCH 210 s = SYS("phases", count , name$ , type$ , moles, 1)20 s$ = "SELECTED_OUTPUT 3" + EOL$30 s$ = s$ + " -file minerals.sel" + EOL$40 s$ = s$ + " -equilibrium_phases" + EOL$50 FOR i = 1 TO count60 s$ = s$ + name$(i) + EOL$70 NEXT i100 s$ = s$ + "EQUILIBRIUM_PHASES 1" + EOL$110 FOR i = 1 to count120 s$ = s$ + name$(i) + " 0.0 0.0" + EOL$130 NEXT i140 s$ = s$ + "END" + EOL$150 PUNCH s$ENDSELECTED_OUTPUT 2-active falseENDSOLUTION 2-units mol/kgwCa 1Cl 2ENDINCLUDE$ equi-so.pqiMIX1 0.52 0.5USE equilibrium_phases 1END