Различия

Здесь показаны различия между двумя версиями данной страницы.

--- recalc:cpx_4cat_norm_jd [2015/09/22 11:01]
admin
+++ recalc:cpx_4cat_norm_jd [2018/11/12 15:08] (текущий)
@@ Строка 1: / Строка 1: @@
-====== Cpx: Пересчет для клинопироксена на кислород с нормированием на катионы с учетом Jd ======
+====== Cpx: Nakamura, 2009 ======
 В расчет берутся: SiO2, TiO2, Al2O3, Cr2O3, FeO, MnO, MgO, CaO, Na2O, K2O.
-=== Подробнее ===
+=== Details ===
-^ Информация о публикации | По статье D. Nakamura, A new formulation of garnet–clinopyroxene geothermometer based on accumulation and statistical analysis of a large experimental data set, J. metamorphic Geol., 2009, 27, 495–508 |
+^ Reference | <ref:nakamura2009> |
-^ Ссылка | {{:sources:nakamura2009.pdf}} |
+^ Inputs | SiO2_wtp, TiO2_wtp, Al2O3_wtp, Cr2O3_wtp, FeO_wtp, MnO_wtp, MgO_wtp, CaO_wtp, Na2O_wtp, K2O_wtp |
-^ Учитываемые компоненты | SiO2, TiO2, Al2O3, Cr2O3, FeO, MnO, MgO, CaO, Na2O, K2O |
+^ Results | pfu, Fe_p2_pfu, Fe_p3_pfu |
-^ Рассчитываемые компоненты |  |
-<code>
+<use:recalc.cpx_4cat_norm_jd>
+<test:recalc.cpx_4cat_norm_jd>
+<WRAP center round todo 60%>
+  * <del>заголовок</del>
+  * краткое описание
+  * <del>статья</del>
+  * <del>ссылка</del>
+  * <del>карточка</del>
+  * подробное описание
+  * <del>код</del>
+  * тест
+</WRAP>
+=== Source ===
+<Code linenums lang-r>
 source('recalc_common_cation.r')
@@ Строка 22: / Строка 36: @@
 cat_normed <- recalc.common_cation (wtp_group, 4);
-cat_sx2 <- 2*(2 -cat_normed$Si_pfu -cat_normed$Ti_pfu);
+cat_sx2 <- 2*(2 - cat_normed$Si_pfu - cat_normed$Ti_pfu);
 cats <- wtp_group$SiO2_wtp/60.09 +
@@ Строка 28: / Строка 42: @@
         wtp_group$Al2O3_wtp/101.96*2 +
         wtp_group$Cr2O3_wtp/152*2 +
-        wtp_group$FeO_wtp/71,85 +
+        wtp_group$FeO_wtp/71.85 +
         wtp_group$MnO_wtp/70.94 +
         wtp_group$MgO_wtp/40.31 +
@@ Строка 37: / Строка 51: @@
 cat_normed$Al_pfu <- wtp_group$Al2O3_wtp/101.96*2*4/cats;
-cat_normed$jd <- cat_normed$Al_pfu-cat_sx2;
+jd <- cat_normed$Al_pfu-cat_sx2;
+cat_normed$Fe_p3_pfu <- ifelse(cat_normed$Na_pfu+cat_normed$K_pfu-jd-cat_normed$Cr_pfu > 0, cat_normed$Na_pfu+cat_normed$K_pfu-jd-cat_normed$Cr_pfu, 0);
+cat_normed$Fe_p2_pfu <- cat_normed$Fe_pfu - cat_normed$Fe_p3_pfu;
 return (cat_normed);
 }
-</code>
+</Code>