RATESC2S_Hydration-start10 REM PARM(1) = specific surface area of C2S, m^2/kg C2S20 REM M = the hydration degree 30 a = M60 r1 = 0.5*(1-a)70 r2 = (((1-a)^0.67)*0.006)/((1-a)^0.34)80 r3 = 0.2*((1-a)^5)90 if (a > 0.54) then b = (((0.54-a)*3.333)+1)^4 else b = 195 print r1, r2, r3, b100 min = r1110 IF min > r2 THEN min = r2120 IF min > r3 THEN min = r3140 a_rate = b*min*0.00538*PARM(1)*EXP(0.008-(2.5/TK)) 150 a_delta = a_rate*TIME/86400210 SAVE -a_delta220 print a_delta-endC2-start10 rate = KIN("C2S_Hydration)*(1 - SR("C2S")20 SAVE rate * time / 86400-endSOLUTIONKINETICSC2S_Hydration-formula H 0-M 0.001-step 8640000 in 10-parm 385 USER_GRAPH 1 -axis_titles "Days" "Hydration degree" "" -initial_solutions false -connect_simulations true -plot_concentration_vs x -start10 graph_x total_time/8640020 graph_y KIN("C2S_hydration") -end -active trueEND