Метод пересчета для граната на 8 катионов. В расчет берутся оксиды: SiO2, TiO2, Al2O3, Cr2O3, FeO, MnO, MgO, CaO, Na2O, K2O.
| Reference | D. Nakamura A new formulation of garnet-clinopyroxene geothermometer based on accumulation and statistical analysis of a large experimental data set, 2009 [ref] |
|---|---|
| Input | SiO2_wtp, TiO2_wtp, Al2O3_wtp, Cr2O3_wtp, FeO_wtp, MnO_wtp, MgO_wtp, CaO_wtp, Na2O_wtp, K2O_wtp |
| Output | pfu |
source('recalc_common_cation.r')
recalc.grt_8cat_norm <- function (wtp_data, ...)
{
ox_group <-c('Name','SiO2_wtp','TiO2_wtp', 'Al2O3_wtp', 'Cr2O3_wtp', 'FeO_wtp', 'MnO_wtp', 'MgO_wtp', 'CaO_wtp', 'Na2O_wtp', 'K2O_wtp');
wtp_group <- selectNames(wtp_data,ox_group);
cat_normed <- recalc.common_cation (wtp_group, 8);
return (cat_normed);
}