Opx-Cpx: Putirka, 2009 RiMG

Global regression, based on the partitioning of enstatite + ferrosilite (Fm2Si2O6 = EnFs; FmO = FeO + MgO + MnO) between clinopyroxene and orthopyroxene. Cpx with Mg#>0.75.

source('sensors_p_opx_cpx_putirka.r');
source('sensors_t_opx_cpx_putirka.r');
 
sensors.pt.opx_cpx_putirka <- function(Opx, Cpx, usePFU = FALSE, ...){
 
stopifnot(usePFU == F);
P <- 2;
Temp <- 1000;
 
interations <- 1;
 
repeat{
    P_DF <- sensors.p.opx_cpx_putirka(Opx, Cpx, Temp = Temp);
    Temp_DF <- sensors.t.opx_cpx_putirka(Opx, Cpx, P = P);
    P <- P_DF$P_calc_Opx_Cpx_Putirka;
    Temp <- Temp_DF$T_calc_Opx_Cpx_Putirka;
    
    interations <- interations + 1;
    if (interations > 40) {break;}
}
 
return (data.frame(Name=paste0(Opx$Name,'-',Cpx$Name),P_calc_Opx_Cpx_Putirka=P,T_calc_Opx_Cpx_Putirka=Temp));
}
 
sensors.pt.opx_cpx_putirka.args <- function() {
    ars <- list();
    ars$minerals = c('Opx','Cpx');
    ars$ranges = c();
    return(ars);
}