PRINT; -alk
SOLUTIONpH 7 chargeAl 1F 3USER_PRINT10 t = SYS("F", count , name$ , type$ , moles, 1)20 FOR i = 1 TO count30 pct = moles(i) / t * 10040 PRINT PAD(name$(i), 10), STR_F$(pct, 10, 1)50 sum = sum + pct60 NEXT i70 PRINT PAD("Total", 10), STR_F$(sum, 10, 1)END
SOLUTIONpH 7 chargeAl 1F 3SELECTED_OUTPUT-reset falseUSER_PUNCH-heading soln pH temp Alk mu F Al Ca Mg Fe S(6) C(4) Na K Cl \%_F- %_HF %_AlF2+ %_AlF3 %_AlF4- %_CaF+ %_MgF+10 PUNCH CELL_NO 20 PUNCH -LA("H+")30 PUNCH TC40 PUNCH ALK50 PUNCH MU60 PUNCH TOT("F"), TOT("Al"), TOT("Ca"), TOT("Mg"), TOT("Fe"), TOT("S(6)")70 PUNCH TOT("C(4)"), TOT("Na"), TOT("K"), TOT("Cl")80 t = 100 / TOT("F")90 PUNCH MOL("F-")*t100 PUNCH MOL("HF")*t110 PUNCH 2*MOL("AlF2+")*t120 PUNCH 3*MOL("AlF3")*t130 PUNCH 4*MOL("AlF4-")*t140 PUNCH MOL("CaF+")*t150 PUNCH MOL("MgF+")*tEND
USER_PUNCH 1 -headings %AlF+2 %AlF2+ %AlF3 %AlF4- %BaF+ %CaF+ %CuF+ %F- %FeF+ %FeF+2 %FeF2+ %H2F2 %H2PO3F %HF %HF2- %HPO3F- %MgF+ %MnF+ %NaF %PO3F-2 %PbF+ %PbF2 %SrF+ %ZnF+ sum% 10 factor = 100/tot('F') 40 pct = 1 * MOL('AlF+2') * factor 50 sum = sum + pct 60 PUNCH pct 90 pct = 2 * MOL('AlF2+') * factor 100 sum = sum + pct 110 PUNCH pct 140 pct = 3 * MOL('AlF3') * factor 150 sum = sum + pct 160 PUNCH pct 190 pct = 4 * MOL('AlF4-') * factor 200 sum = sum + pct 210 PUNCH pct 240 pct = 1 * MOL('BaF+') * factor 250 sum = sum + pct 260 PUNCH pct 290 pct = 1 * MOL('CaF+') * factor 300 sum = sum + pct 310 PUNCH pct 340 pct = 1 * MOL('CuF+') * factor 350 sum = sum + pct 360 PUNCH pct 390 pct = 1 * MOL('F-') * factor 400 sum = sum + pct 410 PUNCH pct 440 pct = 1 * MOL('FeF+') * factor 450 sum = sum + pct 460 PUNCH pct 490 pct = 1 * MOL('FeF+2') * factor 500 sum = sum + pct 510 PUNCH pct 540 pct = 2 * MOL('FeF2+') * factor 550 sum = sum + pct 560 PUNCH pct 590 pct = 2 * MOL('H2F2') * factor 600 sum = sum + pct 610 PUNCH pct 640 pct = 1 * MOL('H2PO3F') * factor 650 sum = sum + pct 660 PUNCH pct 690 pct = 1 * MOL('HF') * factor 700 sum = sum + pct 710 PUNCH pct 740 pct = 2 * MOL('HF2-') * factor 750 sum = sum + pct 760 PUNCH pct 790 pct = 1 * MOL('HPO3F-') * factor 800 sum = sum + pct 810 PUNCH pct 840 pct = 1 * MOL('MgF+') * factor 850 sum = sum + pct 860 PUNCH pct 890 pct = 1 * MOL('MnF+') * factor 900 sum = sum + pct 910 PUNCH pct 940 pct = 1 * MOL('NaF') * factor 950 sum = sum + pct 960 PUNCH pct 990 pct = 1 * MOL('PO3F-2') * factor 1000 sum = sum + pct 1010 PUNCH pct 1040 pct = 1 * MOL('PbF+') * factor 1050 sum = sum + pct 1060 PUNCH pct 1090 pct = 2 * MOL('PbF2') * factor 1100 sum = sum + pct 1110 PUNCH pct 1140 pct = 1 * MOL('SrF+') * factor 1150 sum = sum + pct 1160 PUNCH pct 1190 pct = 1 * MOL('ZnF+') * factor 1200 sum = sum + pct 1210 PUNCH pct 1220 PUNCH sum END