SOLUTION 1 temp 25 pH 7 pe 4 redox pe units mol/kgw density 1 Ca 0.1 S(6) 0.1 -water 1 # kgRATES Gypsum-start 10 si_gyp = SI("Gypsum") 20 IF(M <= 0 AND si_gyp < 0) THEN GOTO 250 30 b_het = 8.05*10^-19 40 log_Ksp_Gyp =(-1.6201991*10^3)-(2.5723285*10^(-1)*TK)+(8.9149708*10^(4)/TK)+(5.8737969*10^2*LOG10(TK))-(5.3472954*10^6/(TK^2)) 50 C_s = ((10^log_Ksp_Gyp)/(GAMMA("Ca+2")+GAMMA("SO4-2")))^0.5 60 beta = 16.755 70 V_m = 7.469*10^-5 80 zigma = 12.2*10^-3 90 NA = 6.022*10^23100 f_teta = 5.17*10^-1110 R = 8.314472120 Omega = SR("Calcite")130 k1 = 1.04*10^-8140 mt = M0*172.17150 Nt = M0*6.022*10^23160 p = 2/3170 m_sol = MOL("H2O")*18.01528*10^-3180 f_DeltaG = ((Omega^0.5)-1)^2190 M_nuc = -2*beta*(V_m/NA)^2*(zigma)^3/(f_DeltaG/NA)^-3200 Js_Tot = b_het*C_s*exp(-(beta*V_m^2*zigma^3*NA*f_teta)/((R*TK)^3*LOG(Omega)^2))210 Rate_het = k1*(mt/Nt)^p*Nt*f_DeltaG220 Rate = (Js_Tot*M_nuc)+(Rate_het/m_sol)230 moles = (Rate*TIME)+ moles240 Print TIME250 SAVE moles-endKINETICS 1 Gypsum -formula CaSO4:2H2O 1 -m 0.005 -m0 0.001 -tol 1e-08-steps 864000 in 20 steps # seconds-step_divide 100-runge_kutta 6-bad_step_max 500USER_GRAPH 1 Molarity variation -headings _time_ Gypsum_KIN -axis_titles "Time in days" "Moles/kg of water" "SI" -chart_title "Gypsum variation" -initial_solutions true -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME/3600/2420 GRAPH_Y KIN("Gypsum") -end -active trueEND
SAVE 1-formula CaSO4 1andSAVE -1-formula CaSO4 -1