PHASESCalcite CaCO3 = CO3-2 + Ca+2 -log_k -8.48SOLUTIONCa 1Alkalinity 2USER_PRINT10 log_iap = LA("CO3-2") + LA("Ca+2")20 log_k = LK_PHASE("Calcite")30 si_cal = log_iap - log_k40 PRINT 'LA("CO3-2"): ', STR_F$(LA("CO3-2"), 10, 2)50 PRINT 'LA("CO3-2"): ', STR_F$(LA("Ca+2"), 10, 2)60 PRINT "Log IAP: ", STR_F$(log_iap, 10, 2)70 PRINT "LK: ", STR_F$(log_k, 10, 2)80 PRINT "SI: ", STR_F$(si_cal, 10, 2)90 PRINT "Compare to values below in 'Distribution of species' and 'Saturation indices'."END