TITLE Example 1.--Add uranium and speciate seawater.SOLUTION 1 SEAWATER FROM NORDSTROM AND OTHERS (1979) units ppm pH 8.22 pe 8.451 density 1.023 temp 25.0 redox O(0)/O(-2) Ca 412.3 Mg 1291.8 Na 10768.0 K 399.1 Fe 0.002 Mn 0.0002 pe Si 4.28 Cl 19353.0 Alkalinity 141.682 as HCO3 S(6) 2712.0 O(0) 1.0 O2(g) -0.7SELECTED_OUTPUT 2-file phase_list-reset falseUSER_PUNCH 210 PUNCH "USER_PRINT", EOL$20 t = SYS("phases", count , name$ , type$ , moles )25 PUNCH str_f$(n*10,4,0), "PRINT '", pad("Phase",20), "',", "' SI '", EOL$30 for n = 1 to count40 si$ = "SI('" + name$(n) + "')"50 PUNCH str_f$(n*10,4,0), "PRINT '", pad(name$(n),20), "'", si$, EOL$60 next n70 PUNCH "END", EOL$ENDSELECTED_OUTPUT 2-active falseENDINCLUDE$ phase_listMIX 11 1END
USER_PRINT-START5 PRINT "TEMPERATURE :", TC,"°C"10 x = SYS("phases", count, name$, type$, si_values)20 FOR i = 1 to count30 IF si_values(i) <-2 then goto 5040 PRINT PAD(name$(i),20), si_values(i), Phase_Formula(name$(i))50 NEXT i