Grt-Bt-St: Glebovitsky, Drugova, 1979

Использовать Проверить

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(){
#
#}