Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
interpmin:grt_tpf_recalc0 [2016/03/24 12:03] admin |
interpmin:grt_tpf_recalc0 [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Grt: Интерпретация состава граната по TPF ====== | + | ====== Grt: Интерпретация состава граната по TPF, 1991 ====== |
| Рассчитывается Fe2/(Fe2+Mg) и 6 компонентов граната: Almandine, Spessartine, Pyrope, Grossular, Andradite, Ouvarovite. | Рассчитывается Fe2/(Fe2+Mg) и 6 компонентов граната: Almandine, Spessartine, Pyrope, Grossular, Andradite, Ouvarovite. | ||
| Строка 29: | Строка 29: | ||
| interpmin.grt_tpf_recalc0 <- function (wtp_data, ...) { | interpmin.grt_tpf_recalc0 <- function (wtp_data, ...) { | ||
| - | rn <- tpf.rename(wtp_data); | + | rdat <- tpf.recalc_minaral("GRT", 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 <- selectNames(rdat, c('Fe_p2_pfu','Fe_p3_pfu','Mg_pfu','Ca_pfu','Mn_pfu','Cr_pfu')); | ||