Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
interpmin:grt_tpf_recalc0 [2015/09/21 14:41] 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. | ||
| - | ==== Подробнее ==== | + | === Подробнее === |
| - | Пересчет выполняется методом [[recalc:grt_tpf_realc0]] программы [[:about_tpf|TPF]]. | + | ^ Публикация | [[:about_tpf|TPF]] | |
| + | ^ Пересчет | [[recalc:grt_tpf_realc0]] | | ||
| + | ^ Результат | X_Alm, X_Sps, X_Prp, X_Grs, X_Ouv, X_Fe_p2_Fe_p2_Mg | | ||
| + | |||
| + | <use:interpmin.grt_tpf_recalc0> | ||
| + | <test:interpmin.grt_tpf_recalc0> | ||
| + | |||
| + | <WRAP center round todo 60%> | ||
| + | * <del>заголовок</del> | ||
| + | * <del>краткое описание</del> | ||
| + | * <del>статья</del> | ||
| + | * <del>ссылка</del> | ||
| + | * <del>карточка</del> | ||
| + | * подробное описание | ||
| + | * <del>код</del> | ||
| + | * тест | ||
| + | </WRAP> | ||
| ==== Код ==== | ==== Код ==== | ||
| - | <code> | + | <Code linenums lang-r> |
| source('utilities_tpf.r'); | source('utilities_tpf.r'); | ||
| - | interpmin.grt_tpf_recalc0 <- function (wtp_data, ...) | + | 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_p3_pfu <- rdat$Fe_pfu - rdat$Fe_p2_pfu; | + | rdat <- tpf.recalc_minaral("GRT", wtp_data) |
| - | rdat$Fe_p2_X_Fe_p2_Mg <- rdat$Fe_p2_pfu / (rdat$Fe_p2_pfu + rdat$Mg_pfu); | + | 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; | so <- rdat$Fe_p2_pfu + rdat$Mg_pfu + rdat$Ca_pfu + rdat$Mn_pfu; | ||
| Строка 25: | Строка 39: | ||
| rdat$X_Sps <- rdat$Mn_pfu / so; | rdat$X_Sps <- rdat$Mn_pfu / so; | ||
| rdat$X_Prp <- rdat$Mg_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; | rdat$X_Ouv <- rdat$Cr_pfu*1.5 / so; | ||
| Строка 32: | Строка 46: | ||
| return(rdat); | return(rdat); | ||
| } | } | ||
| - | </code> | + | |
| + | interpmin.grt_tpf_recalc0.test <- function (){ | ||
| + | warning("No test routine!"); | ||
| + | } | ||
| + | </Code> | ||
| {{tag> order71}} | {{tag> order71}} | ||