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.

Details

Calculate
Article	Keith D. Putirka Thermometers and Barometers for Volcanic Systems, Mineralogy & Geochemistry Vol. 69 pp. 61-120, 2008
Reference	putirka2008.pdf
Collibration	483 points from different sources
Presition	± 60 °C, ±3.2 kbar
Ranges	P < 70 kbar, 700 °C < T < 2000 °C
Renew sensors

Source

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 > 20) {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);
}