Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:t:grt_cpx_nakamura [2016/05/13 14:09] admin |
sensors:t:grt_cpx_nakamura [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Grt-Cpx Nakamura, 2009 ====== | + | ====== Grt-Cpx: Nakamura, 2009 ====== |
| Термометр с учетом неидеальности Fe-Mg обмена в гранате. | Термометр с учетом неидеальности Fe-Mg обмена в гранате. | ||
| Строка 78: | Строка 78: | ||
| Cpx <- data.frame(Name='Cpx',SiO2_wtp=52.86,TiO2_wtp=1.11, Al2O3_wtp=10.24, FeO_wtp=6.31, MgO_wtp=9.92, CaO_wtp=14.49, Na2O=4.65); | Cpx <- data.frame(Name='Cpx',SiO2_wtp=52.86,TiO2_wtp=1.11, Al2O3_wtp=10.24, FeO_wtp=6.31, MgO_wtp=9.92, CaO_wtp=14.49, Na2O=4.65); | ||
| - | result <- sensors.t.grt_cpx_krogh_ravna (Grt, Cpx, 25); | + | result <- sensors.t.grt_cpx_nakamura (Grt, Cpx, 25); |
| | | ||
| - | expect_equal(result, 1036, tolerance = 1); | + | expect_equal(result$T_calc_GrtCpx_Nakamura, 1036, tolerance = 1); |
| } | } | ||
| </Code> | </Code> | ||