Различия

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

--- recalc:grt_tindle [2016/02/18 15:03]
admin
+++ recalc:grt_tindle [2018/11/12 15:08] (текущий)
@@ Строка 1: / Строка 1: @@
-====== Grt: Пересчет для гранатов по Тиндле  ======
+====== Grt: Tindle  ======
 Метод расчета на 12 атомов кислорода для гранатов.
-=== Подробнее ===
+=== Details ===
-^ Информация о публикации |  |
+^ Reference |  |
-^ Ссылка | http://www.open.ac.uk/earth-research/tindle/AGTWebPages/AGTSoft.html |
+^ Input | SiO2_wtp, Al2O3_wtp, TiO2_wtp, Cr2O3_wtp, Fe2O3_wtp, FeO_wtp, MnO_wtp, MgO_wtp, CaO_wtp, Na2O_wtp, K2O_wtp, BaO_wtp, NiO_wtp, ZnO_wtp, BeO_wtp, P2O5_wtp, V2O5_wtp, CoO_wtp, GeO2_wtp, ZrO2_wtp, Cs2O_wtp, PbO_wtp, SO3_wtp, CO2_wtp, F_wtp, Cl_wtp |
-^ Учитываемые компоненты | SiO2_wtp, Al2O3_wtp, TiO2_wtp, Cr2O3_wtp, Fe2O3_wtp, FeO_wtp, MnO_wtp, MgO_wtp, CaO_wtp, Na2O_wtp, K2O_wtp, BaO_wtp, NiO_wtp, ZnO_wtp, BeO_wtp, P2O5_wtp, V2O5_wtp, CoO_wtp, GeO2_wtp, ZrO2_wtp, Cs2O_wtp, PbO_wtp, SO3_wtp, CO2_wtp, F_wtp, Cl_wtp |
+^ Results | pfu, Fe_p3_pfu, Fe_p2_pfu |
-^ Выводимые компоненты | Fe_p3_pfu, Fe_p2_pfu |
-^[[:ppy:mod_recalc#grt_tindle |Рассчитать]] ^ ^
-=== Код ===
+<use:recalc.grt_tindle>
+<test:recalc.grt_tindle>
+<WRAP center round todo 60%>
+  * заголовок
+  * краткое описание
+  * статья
+  * ссылка
+  * <del>карточка</del>
+  * подробное описание
+  * <del>код</del>
+  * тест
+</WRAP>
+=== Source ===
 <Code linenums lang-r>
 recalc.grt_tindle <- function (wtp_data, ...) {
-base_names <-c("SiO2_wtp","TiO2_wtp", "Al2O3_wtp", "Cr2O3_wtp",
+base_names <- c("SiO2_wtp", "TiO2_wtp", "Al2O3_wtp", "Cr2O3_wtp",
-               "FeO_wtp", "MnO_wtp", "MgO_wtp", "NiO_wtp",
+                "FeO_wtp", "MnO_wtp", "MgO_wtp", "NiO_wtp",
-               "ZnO_wtp", "CaO_wtp");
+                "ZnO_wtp", "CaO_wtp");
 data <- selectNames(wtp_data,base_names);
@@ Строка 44: / Строка 56: @@
                             "Zn_pfu", "Ca_pfu");
 fe3_em <- rep(5, nrow(based_on_oxygen)) -
           ( based_on_oxygen$Si_pfu + based_on_oxygen$Ti_pfu +
           based_on_oxygen$Al_pfu + based_on_oxygen$Cr_pfu );
-fe3_em  <- ifelse(fe3_em<0, 0, fe3_em);
+fe3_em  <- ifelse(fe3_em < 0, 0, fe3_em);
 fe2_em <- based_on_oxygen$Fe_pfu - fe3_em;
@@ Строка 59: / Строка 71: @@
 intermid_12$Fe_p3_pfu <- fe3;
-intermid_12 <- intermid_12[,c("Si_pfu", "Ti_pfu", "Al_pfu", "Cr_pfu",
+intermid_12 <- intermid_12[, c("Si_pfu", "Ti_pfu", "Al_pfu", "Cr_pfu",
-                              "Fe_p3_pfu", "Fe_p2_pfu", "Mn_pfu", "Mg_pfu",
+                               "Fe_p3_pfu", "Fe_p2_pfu", "Mn_pfu", "Mg_pfu",
-                              "Ni_pfu", "Zn_pfu", "Ca_pfu")];
+                               "Ni_pfu", "Zn_pfu", "Ca_pfu")];
 mult_factor <- c(2, 2, 1.5, 1.5, 1.5, 1, 1, 1, 1, 1, 1);
@@ Строка 75: / Строка 87: @@
 result_12 <- result_12 * f_factor;
-return(cbind(Name = wtp_data$Name ,result_12,
+return(cbind(Name = wtp_data$Name, result_12,
-             Fe_pfu = result_12$Fe_p2_pfu+result_12$Fe_p3_pfu));
+             Fe_pfu = result_12$Fe_p2_pfu + result_12$Fe_p3_pfu));
 }
 </Code>