ENDMIX 12 1.0 # 2 is boundary solutionSAVE solution 2END
SOLUTION 1 pH 4 charge C 1 [13C] 10 # permilENDMIX1 1.0SAVE solution 2END
SOLUTIONpH 7 chargeNa 1Ca 1C 3[13C] 10ENDMIX1 1.0SELECTED_OUTPUT-reset false-iso R(13C) R(13C)_HCO3-USER_PUNCH10 r_std = 0.0111802 110 r = CALC_VALUE("R(13C)_HCO3-")120 r2 = [MOL("H[13C]O3-") + MOL("CaH[13C]O3+") + MOL("NaH[13C]O3")]/[MOL("HCO3-") + MOL("CaHCO3+") + MOL("NaHCO3")]130 permil = [r/r_std - 1]*1000150 permil2 = [r2/r_std - 1]*1000160 print "R(13C)_HCO3-: ", permil, permil2210 r = CALC_VALUE("R(13C)_CO3-2")220 r2 = [MOL("[13C]O3-2") + MOL("Ca[13C]O3") + MOL("Na[13C]O3-")]/[MOL("CO3-2") + MOL("CaCO3") + MOL("NaCO3-")]230 permil = [r/r_std - 1]*1000250 permil2 = [r2/r_std - 1]*1000260 print "R(13C)_CO3-2: ", permil, permil2END