SOLUTION 1 temp 25 pH 7 pe 4 redox pe units mg/l density 1 C(4) 17.81 charge Ca 42.49 Cl 253.32 #charge K 8.74 Mg 45.13 Na 162.22 S(6) 123.5 #Alkalinity 195.22 as HCO3- -water 1 # kgENDUSE solution 1EQUILIBRIUM_PHASES 1Anhydrite 0 0 preAragonite 0 0 pre Arcanite 0 0 pre Artinite 0 0 pre Bischofite 0 0 pre Bloedite 0 0 pre Brucite 0 0 pre Burkeite 0 0 pre Calcite 0 0 pre Carnallite 0 0 pre CO2(g) -3.4 100 Dolomite 0 0 pre Epsomite 0 0 pre Gaylussite 0 0 pre Glaserite 0 0 pre Glauberite 0 0 pre #Goergeyite 0 0 pre Gypsum 0 0 pre H2O(g) 0 0 pre Halite 0 0 pre Hexahydrite 0 0 pre Huntite 0 0 pre Kainite 0 0 pre Kalicinite 0 0 pre Kieserite 0 0 pre Labile_S 0 0 pre Leonhardite 0 0 pre Leonite 0 0 pre Magnesite 0 0 pre MgCl2_2H2O 0 0 pre MgCl2_4H2O 0 0 pre Mirabilite 0 0 pre Misenite 0 0 pre Nahcolite 0 0 pre Natron 0 0 pre Nesquehonite 0 0 pre Pentahydrite 0 0 pre Pirssonite 0 0 pre Polyhalite 0 0 pre Portlandite 0 0 pre Schoenite 0 0 pre Sylvite 0 0 pre Syngenite 0 0 pre Thenardite 0 0 pre Trona 0 0 pre RATESEvap10 k = 0.5/86400 # 0.5 per day20 rate = k * (TOT("water") * 1000) / GFW("H2O") 30 moles = rate * TIME40 SAVE -molesINCREMENTAL_REACTIONSKINETICS#-cvodeEvap-formula H2O 1-m 0-tol 1e-10-steps 100*0.25 days USER_PRINT10 t = SYS("equi", count , name$ , type$ , moles)20 FOR i = 1 TO count30 IF EQUI(name$(i)) > 0 THEN PRINT "xxx ", name$(i)40 NEXT i50 PRINT "H2O removed, moles: ", STR_F$(KIN("evap"), 15, 8)60 ENDUSER_GRAPH 1 -headings frac Bischofite Carnallite Dolomite Epsomite Goergeyite Gypsum \ Halite Magnesite Bloedite Glauberite Polyhalite Leonite Kainite \ Kieserite H2O_evap -axis_titles "Concentration factor" "Precipitate, log10(moles)" "H2O removed, moles" -axis_scale x_axis auto auto auto auto log -axis_scale sy_axis 53 56 auto auto -initial_solutions false -connect_simulations true -plot_concentration_vs x -start 10 GRAPH_X 1 / TOT("water") 20 GRAPH_Y LOG10( EQUI("Bischofite") ) 30 GRAPH_Y LOG10( EQUI("Carnallite") ) 40 GRAPH_Y LOG10( EQUI("Dolomite") ) 50 GRAPH_Y LOG10( EQUI("Epsomite") ) 60 GRAPH_Y LOG10( EQUI("Goergeyite") ) 70 GRAPH_Y LOG10( EQUI("Gypsum") ) 80 GRAPH_Y LOG10( EQUI("Halite") ) 90 GRAPH_Y LOG10( EQUI("Magnesite") )100 GRAPH_Y LOG10( EQUI("Bloedite") )110 GRAPH_Y LOG10( EQUI("Glauberite") )120 GRAPH_Y LOG10( EQUI("Polyhalite") )130 GRAPH_Y LOG10( EQUI("Leonite") )140 GRAPH_Y LOG10( EQUI("Kainite") )150 GRAPH_Y LOG10( EQUI("Kieserite") )210 GRAPH_SY KIN("Evap") -endEND