This sensor from TPF collection
Article | |
---|---|
Collibration | |
Precision | |
Ranges | |
Renew sensors |
source("utilities_tpf.r"); sensors.t.grt_bt_perchuk_1989 <- function(Grt, Bt, P, ...){ Bt <- tpf.recalc_minaral("BT",Bt); Grt <- tpf.recalc_minaral("GRT",Grt); X <- Bt$Mg_pfu / (Bt$Mg_pfu + Bt$Fe_p2_pfu + Bt$Fe_p3_pfu + Bt$Mn_pfu); Y <- Grt$Mg_pfu / (Grt$Mg_pfu + Grt$Fe_p2_pfu + Grt$Fe_p3_pfu + Grt$Mn_pfu); K <- - log(Y * (1 - X) / (1 - Y) / X); T <- (3946.6 + 0.0124 * (P * 1000 - 6000)) / (K + 2.868) - 273; warning(" CAN BE USED ONLY FOR 350<T(C)<700."); return(data.frame(Name=paste0(Grt$Name,"-", Bt$Name),P=P,T_calc=T)); } sensors.t.grt_bt_perchuk_1989.args <- function(){ ars <- list(); ars$minerals <- c("Grt", "Bt"); ars$ranges <- c("P"); return(ars); } #sensors.t.grt_bt_perchuk_1989.test <- function(){ # #}