SOLUTION 1Na 1Cl 1ENDINCREMENTAL_REACTIONS TrueUSE solution 1RATESWater10 REM constant rate of evaporation20 k = 1/86400 30 moles = -k * 55 * TIME40 save molesKINETICS 1Water #evaporation-formula H2O 1-m 100-steps 86400 in 24 steps # secondsUSER_GRAPH 1 -axis_titles "Days" "Na, mol/kgw" "H2O, kg" -initial_solutions false -connect_simulations true -plot_concentration_vs x -start10 graph_x TOTAL_TIME / 8640020 graph_y TOT("Na")30 graph_sy TOT("water") -end -active true
SOLUTIONNa 1C 1 chargeUSER_PRINT10 t = SYS("elements", count, name$, type$, moles)20 FOR i = 1 to count30 IF (MID$(name$(i), LEN(name$(i))) <> ")") THEN PRINT PAD(name$(i), 10), STR_E$(moles(i), 20, 10)40 NEXT i