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