Править страницу Ссылки сюда Это старая версия документа! Grt-Bt-St: Glebovitsky, Drugova, 1979 Details This sensor from TPF collection Article Collibration Precision Ranges Renew sensors Использовать Проверить заголовок краткое описание статья ссылка карточка подробное описание код тест Source source("utilities_tpf.r"); sensors.t.grt_bt_st_glebovitsky_drugova_1979 <- function(Grt, Bt, St, ...){ Bt <- tpf.recalc_minaral("BT",Bt); Grt <- tpf.recalc_minaral("GRT",Grt); X <- Grt$Mg_pfu / (Grt$Fe_p2_pfu + Grt$Mg_pfu); Y <- Bt$Mg_pfu / (Bt$Fe_p2_pfu + Bt$Mg_pfu); F <- Grt$Fe_p2_pfu; M <- Grt$Mn_pfu; C <- Grt$Ca_pfu; B <- Bt$Fe_p2_pfu; T <- 1250 * (X * (1 - Y) / Y / (1 - X) + 0.41 * (F - 2.14) + 0.38 * (M - 0.2) + 0.37 * (C - 0.31) - 0.19 * (B - 1.1)) + 385; if (T<720) { if (T>720) { warning(" IS NOT TO BE USED FOR T>720 C"); } return(data.frame(Name=paste0(Grt$Name,"-", Bt$Name),T_calc=T)); } sensors.t.grt_bt_st_glebovitsky_drugova_1979.args <- function(){ ars <- list(); ars$minerals <- c("Grt", "Bt", "St"); ars$ranges <- c(); return(ars); } #sensors.t.grt_bt_st_glebovitsky_drugova_1979.test <- function(){ # #} tpf, Grt, Bt sensors/t/grt_bt_st_glebovitsky_drugova_1979.1484660690.txt.gz Последние изменения: 2018/11/12 15:08(внешнее изменение) Войти