Grt: Интерпретация состава граната по TPF

Рассчитывается Fe2/(Fe2+Mg) и 6 компонентов граната: Almandine, Spessartine, Pyrope, Grossular, Andradite, Ouvarovite.

Пересчет выполняется методом grt_tpf_realc0 программы TPF.

source('utilities_tpf.r');

interpmin.grt_tpf_recalc0 <- function (wtp_data, ...)
{
rn <- tpf.rename(wtp_data);
clk <- tpf.omesod(rn,12,999);
rdat <- tpf.unrename(clk,wtp_data$Name)

rdat$Fe_p2_X_Fe_p2_Mg <- rdat$Fe_p2_pfu / (rdat$Fe_p2_pfu + rdat$Mg_pfu);
so <- rdat$Fe_p2_pfu + rdat$Mg_pfu + rdat$Ca_pfu + rdat$Mn_pfu;

rdat$X_Alm <- rdat$Fe_p2_pfu / so;
rdat$X_Sps <- rdat$Mn_pfu / so;
rdat$X_Prp <- rdat$Mg_pfu / so;



return(rdat);
}