# Exchangeable cations in diluted seawater # SOLUTION 1 seawater Na 485 K 10.6 Mg 55.1 Ca 10.7 Cl 566 END SOLUTION 2 distilled water # write out the mix fractions... SELECTED_OUTPUT; -reset false; -file mix.prn USER_PUNCH 10 sc$ = chr$(59) 20 for i = 1 to 0.1 step -0.1 30 punch "MIX" + sc$ + " 1 " + str$(i) + sc$ + " 2 " + str$(1 - i) + eol$ 40 punch "EXCHANGE 1" + sc$ + "X 1e-9" + eol$ 50 punch "END" + eol$ 60 next i -end END PRINT; -reset false; -selected_out false USER_GRAPH -chart_title "Exchangeable Cations" -axis_scale x_axis 0 1 0.2 -axis_scale y_axis 0 0.7 0.1 -axis_titles "Fraction of seawater" "Exchangeable Fraction" -connect_simulations -head fr_sea Na-X K-X Mg-X2 Ca-X2 -start 10 graph_x tot("Cl") / 0.566 20 graph_y mol("NaX")/tot("X"), mol("KX")/tot("X"), 2*mol("MgX2")/tot("X"), 2*mol("CaX2")/tot("X") -end INCLUDE$ mix.prn END MIX; 1 0.01; 2 0.99 EXCHANGE 1 X 1e-9 END