Au-Sph-Py-Arg: Shikazono, 1985 <B>

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

source("utilities_tpf.r");

sensors.t.au_sph_py_arg_shikazono_1985_b <- function(Au, Sph, Py, Arg, ...){
    Au <- tpf.recalc_minaral("AU",Au);
    Sph <- tpf.recalc_minaral("SPH",Sph);

    N <- Au$Ag_pfu / (Au$Fe_pfu + Au$Co_pfu + Au$Ni_pfu + Au$Cu_pfu + Au$Zn_pfu + Au$Mo_pfu + Au$Ag_pfu + Au$Cd_pfu + Au$Sn_pfu + Au$Au_pfu + Au$Hg_pfu + Au$Pb_pfu + Au$As_pfu + Au$Sb_pfu + S);
    X <- Sph$Fe_pfu / (Sph$Fe_pfu + Sph$Co_pfu + Sph$Ni_pfu + Sph$Cu_pfu + Sph$Zn_pfu + Sph$Mo_pfu + Sph$Ag_pfu + Sph$Cd_pfu + Sph$Sn_pfu + Sph$Au_pfu + Sph$Hg_pfu + Sph$Pb_pfu + Sph$As_pfu + Sph$Sb_pfu + S);
    T <- (25196 + 22600 * (1 - N)^2 - 6400 * (1 - N)^3) /      (44.38 - 9.152 * log(X) + 18.2961 * log(N) + 5.5 * (1 - N)^2) - 273.15;
    warning(" EQUATION (7)");
    return(data.frame(Name=paste0(Sph$Name,"-", Au$Name),T_calc=T));
}

sensors.t.au_sph_py_arg_shikazono_1985_b.args <- function(){
    ars <- list();
    ars$minerals <- c("Au", "Sph", "Py", "Arg");
    ars$ranges <- c();
    return(ars);
}

#sensors.t.au_sph_py_arg_shikazono_1985_b.test <- function(){
#
#}