Различия

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

--- recalc:grt_12ox_norm [2015/09/08 14:45]
admin
+++ recalc:grt_12ox_norm [2020/02/19 14:29] (текущий)
f0ma
@@ Строка 1: / Строка 1: @@
-====== Расчет для граната на кислород с нормированием на катионы ======
+====== Grt: Ravna, 2000 ======
-В расчет берутся: SiO2 TiO2 Al2O3 FeO MnO MgO CaO.
+Расчет на 23 атомов кислорода: SiO2 TiO2 Al2O3 FeO MnO MgO CaO. Расчет валентного железа - по кристалохимии.
-Расчет валентного железа - по кристалохимии.
-По статье Ravna, 2001.
+=== Details ===
-<code>
+^ Reference | <ref:ravna2000> |
+^ Input | SiO2_wtp, Al2O3_wtp, TiO2_wtp, FeO_wtp, MnO_wtp, MgO_wtp, CaO_wtp |
+^ Results | Fe_p3_pfu, Fe_p2_pfu |
+<use:recalc.grt_12ox_norm>
+<test:recalc.grt_12ox_norm>
+<WRAP center round todo 60%>
+  * заголовок
+  * краткое описание
+  * <del>статья</del>
+  * <del>ссылка</del>
+  * <del>карточка</del>
+  * подробное описание
+  * <del>код</del>
+  * тест
+</WRAP>
+=== Source ===
+<Code linenums lang-r>
 source('recalc_common_oxygen.r')
 recalc.grt_12ox_norm <- function (wtp_data, ...)
 {
+ox_group <-c('Name', 'SiO2_wtp','TiO2_wtp', 'Al2O3_wtp', 'FeO_wtp', 'MnO_wtp', 'MgO_wtp', 'CaO_wtp');
-ox_group <-c('SiO2_wtp','TiO2_wtp', 'Al2O3_wtp', 'FeO_wtp', 'MnO_wtp', 'MgO_wtp', 'CaO_wtp');
+wtp_group <- selectNames(wtp_data,ox_group);
-wtp_group <- wtp_data[,c('Name','SiO2_wtp','TiO2_wtp', 'Al2O3_wtp', 'FeO_wtp', 'MnO_wtp', 'MgO_wtp', 'CaO_wtp')];
 ox_normed <- recalc.common_oxygen (wtp_group, 12);
@@ Строка 27: / Строка 44: @@
 normed_cations$Fe_p2_pfu <- 3-rowSums(normed_cations[,c('Mn_pfu', 'Mg_pfu', 'Ca_pfu')]);
-return (normed_cations);
+ret <- data.frame(Name=wtp_data$Name,Si_pfu=ox_normed$Si_pfu);
+return (cbind(ret,normed_cations[,c('Ti_pfu', 'Al_pfu', 'Fe_pfu', 'Mn_pfu', 'Mg_pfu', 'Ca_pfu','Fe_p2_pfu','Fe_p3_pfu')]));
 }
-</code>
+</Code>