Opx-Cpx: Mercier, 1984 <A>

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

source("utilities_tpf.r");

sensors.p.opx_cpx_mercier_1984_a <- function(Opx, Cpx, ...){
    Opx <- tpf.recalc_minaral("OPX",Opx);
    Cpx <- tpf.recalc_minaral("CPX",Cpx);

    CO <- Opx$Ca_pfu;
    NO <- Opx$Na_pfu;
    CC <- Cpx$Ca_pfu;
    NC <- Cpx$Na_pfu;
    CAOP <- CO / ((1 - NO) * (1 - NC));
    CACP <- CC / ((1 - NO) * (1 - NC));
    KF <- CAOP / (1 - CACP);
    P <- 12.79 / (KF + 0.006) - 22.9;
    warning(" ONLY FOR LHERZOLITES AND HARZBURGITES, EQ.4");
    return(data.frame(Name=paste0(Cpx$Name,"-", Opx$Name),P_calc=P));
}

sensors.p.opx_cpx_mercier_1984_a.args <- function(){
    ars <- list();
    ars$minerals <- c("Opx", "Cpx");
    ars$ranges <- c();
    return(ars);
}

#sensors.p.opx_cpx_mercier_1984_a.test <- function(){
#
#}