EXCHANGE_SPECIES K+ + X- = KX -log_k 0.0 Ca+2 + 2X- = CaX2 -log_k 1.0ENDSOLUTION 1 Ca 1 Cl 2ENDUSE solution 1EXCHANGE 1KX 1e-3USER_PRINT10 PRINT LOG10[ACT("CaX2")*ACT("K+")^2/ACT("KX")^2/ACT("Ca+2")]20 PRINT LOG10[ACT("CaX2")^0.5*ACT("K+")/ACT("KX")/ACT("Ca+2")^0.5]ENDEXCHANGE_SPECIES2KX + Ca+2 = CaX2 + 2K+ log_K 1.0ENDUSE solution 1USE exchange 1END