Amp-Pl: Holland, Blundy, 1994

For edenite + 4 quartz = tremolite + albite (A) and edenite + albite = richterite + anorthite (B) equilibrium.

Details

Article	Tim Holland, Jon Blundy Non-ideal interactions in calcic amphiboles and their bearing on amphibole-plagioclase thermometry, 1994 [ref]
Collibration
Precision	± 50 °C
Ranges	1 < P < 16 kbar, 400 °C < T < 1100 °C
Renew sensors	Blundy and Holland (1990), Kohn and Spear (1989, 1990).

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

~~заголовок~~
~~краткое описание~~
~~статья~~
~~ссылка~~
карточка
подробное описание
~~код~~
тест

Source

source('recalc_amp_holland_blundy.r');
source('recalc_pl_nm.r');
source('interpmin_amp_holland_blundy.r');

sensors.t.amp_pl_holland_blundy <- function(Amp, Pl, P, usePFU = FALSE, ...){

    Amp1 <- recalc.amp_holland_blundy(Amp);
    Amp2 <- interpmin.amp_holland_blundy(Amp);
    Amp <- cbind(Amp1,Amp2);
    Pl <- recalc.pl_nm(Pl);

    Pl$X_An <- Pl$Ca_pfu;
    Pl$X_Ab <- 1 - Pl$X_An;
    K_ed_tr <- (27/256)*(Amp$X_vac_A*Amp$X_Si_T1*Pl$X_Ab)/(Amp$X_Na_A*Amp$X_Al_T1);

    T_A <-  (
            (-76.95+P*0.79+39.4*Amp$X_Na_A+22.4*Amp$X_K_A+(41.5-2.89*P)*Amp$X_Al_M2) / 
            (-0.065-0.0083144*log(K_ed_tr))
            )-273.15;
    
    T_B <- (
           (78.44+3-33.6*Amp$X_Na_M4-(66.8-2.92*P)*Amp$X_Al_M2+78.5*Amp$X_Al_T1+9.4*Amp$X_Na_A) / 
           (0.0721-0.0083144*
               log(
                   (27*Amp$X_Na_M4*Amp$X_Si_T1*Pl$X_An)/
                   (64*Amp$X_Ca_M4*Amp$X_Al_T1*Pl$X_Ab)
                   )
           )
           )-273.15;
    return (data.frame(Name=paste0(Amp$Name,'-',Pl$Name), P_seq=P, T_calc_Holland_Blundy_A=T_A, T_calc_Holland_Blundy_B=T_B));
}

sensors.t.amp_pl_holland_blundy.args <- function() {
    ars <- list();
    ars$minerals = c('Amp','Pl');
    ars$ranges = c('P');
    return(ars);
}