Amp-Pl: Holland, Blundy, 1994

Это старая версия документа!

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

Details

Calculate
Article	Holland, T. , Blundy, J. Non-ideal interactions in calcic amphiboles and their bearing on amphibole-plagioclase thermometry
Reference	holland1994.pdf
Collibration
Presition	± 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_8ox.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_8ox(Pl);

    X_An <- Pl$Ca_pfu;
    X_Alb <- 1 - X_An;

=((-76,95+B103*0,79+39,4*B$96+22,4*B$99+(41,5-2,89*B103)*B$94)/(-0,065-0,0083144*LN(B$100)))-273,15
=((78,44+3-33,6*B$97-(66,8-2,92*B103)*B$94+78,5*B$93+9,4*B$96)/(0,0721-0,0083144*LN((27*B$97*B$92*B$39)/(64*B$98*B$93*B$38))))-273,15
}

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