Править страницу Ссылки сюда Это старая версия документа! Grt: Интерпретация состава граната по TPF Рассчитывается Fe2/(Fe2+Mg) и 6 компонентов граната: Almandine, Spessartine, Pyrope, Grossular, Andradite, Ouvarovite. Подробнее Информация о публикации Алгоритм программы TPF Метод пересчета grt_tpf_realc0 Рассчитывает миналы X_Alm, X_Sps, X_Prp, X_Grs, X_Ouv, X_Fe_p2_Fe_p2_Mg Рассчитать Код 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 <- selectNames(rdat, c('Fe_p2_pfu','Fe_p3_pfu','Mg_pfu','Ca_pfu','Mn_pfu','Cr_pfu')); rdat$X_Fe_p2_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; rdat$X_Grs <- (rdat$Ca_pfu - (rdat$Fe_p3_pfu+rdat$Cr_pfu)*1.5) / so; rdat$X_And <- rdat$Fe_p3_pfu*1.5 / so; rdat$X_Ouv <- rdat$Cr_pfu*1.5 / so; return(rdat); } order71 interpmin/grt_tpf_recalc0.1443102213.txt.gz Последние изменения: 2018/11/12 15:08(внешнее изменение) Войти