Title Simulation. Kinetic calculation of Albite, K-feldspar and K-mica#Kinetic calculations when K-feldspar dissolved in solution and precipitable minerals are K-mica and AlbiteSolution 1 -units mol/kgw Al 1.e-13 K 1.e-13 Si 1.e-13 Na 1.e-13# Composition of experimental solution # Na 1.7# Cl 1.7Equilibrium_phases 1 # Minerals in granite K-mica 0.0 0.06 Quartz 0.0 1.7 K-feldspar 0.0 0.26# Albite 0.0 0.31 # Secondary minerals which are not included in minerals Gibbsite 0.0 0.0 Kaolinite 0.0 0.0 Kinetics 1Albite -parms 2.85e-8 -m0 0.31 -m 0.31 -steps 0 1 2 3 4 5 6 7 8 9 10 100 200 300 dayINCREMENTAL_REACTIONS trueRATESAlbite -start 10 SR_Albite = SR("Albite") 20 moles = parm(1)*(1-SR_Albite)*Time 30 If ABS(SI("Albite")) < 1e-3 then goto 100 100 SAVE moles -endUSER_GRAPH -headings Time Na Si K -axis_titles "Time, in days", "Concentration"# -axis_titles "Log[H4SiO4]", "Log([Na+]/[H+])" -start 10 GRAPH_X TOTAL_TIME /3600 /24 # 20 GRAPH_Y SI("K-mica"), SI("Quartz"), SI("K-feldspar"), SI("Albite")# 30 GRAPH_Y SI("K-feldspar") 40 GRAPH_Y TOT("Na"), TOT("Si"), TOT("K")# 50 PLOT_XY LA("H4SiO4"),(LA("Na+")-LA("H+")), color = Blue, line_w = 2, symbol = None -endEND