Править страницу Ссылки сюда Это старая версия документа! Grt-Crd-Sil-Qtz: Thompson, 1984 Details This sensor from TPF collection Article Collibration Precision Ranges Renew sensors Использовать Проверить заголовок краткое описание статья ссылка карточка подробное описание код тест Source source("utilities_tpf.r"); sensors.p.grt_crd_sil_qtz_thompson_1984 <- function(Grt, Crd, Sil, Qtz, Temp, ...){ T <- Temp; Grt <- tpf.recalc_minaral("GRT",Grt); Crd <- tpf.recalc_minaral("CRD",Crd); X <- (Crd$Fe_p2_pfu + Crd$Fe_p3_pfu) / (Crd$Fe_p2_pfu + Crd$Fe_p3_pfu + Crd$Mg_pfu); Y <- (Grt$Fe_p2_pfu + Grt$Fe_p3_pfu) / (Grt$Fe_p2_pfu + Grt$Fe_p3_pfu + Grt$Mg_pfu); TT <- T + 273; K <- log(X / Y); P <- (1 + (13994.5 - 7.601 * TT - 6 * TT * K)) / 1.9558 / 1000; return(data.frame(Name=paste0(Crd$Name,"-", Grt$Name),Temp=Temp,P_calc=P)); } sensors.p.grt_crd_sil_qtz_thompson_1984.args <- function(){ ars <- list(); ars$minerals <- c("Grt", "Crd", "Sil", "Qtz"); ars$ranges <- c("Temp"); return(ars); } #sensors.p.grt_crd_sil_qtz_thompson_1984.test <- function(){ # #} tpf, Crd, Grt sensors/p/grt_crd_sil_qtz_thompson_1984.1542035280.txt.gz Последние изменения: 2018/11/12 15:08 — 127.0.0.1 Войти