====== Amp-Pl: Holland, Blundy, 1994 ======

For edenite + 4 quartz = tremolite + albite (A) and edenite + albite = richterite + anorthite (B) equilibrium. Based on Al in Amp.

=== Details ===

^ Article | <ref:holland1994>  |
^ 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).  |

<use:sensors.p.amp_pl_holland_blundy>
<test:sensors.p.amp_pl_holland_blundy>

<WRAP center round todo 60%>
  * <del>заголовок</del>
  * <del>краткое описание</del>
  * <del>статья</del>
  * <del>ссылка</del>
  * карточка
  * подробное описание
  * <del>код</del>
  * тест
</WRAP>

=== Source ===

<Code linenums lang-r>
source('recalc_amp_holland_blundy.r');

sensors.p.amp_pl_holland_blundy <- function(Amp, Temp, usePFU = FALSE, ...){

    if(!usePFU) Amp <- recalc.amp_holland_blundy(Amp);
         
    P <- 4.76*Amp$Al_pfu-3.01-((Temp-675)/85)*(0.53*Amp$Al_pfu+0.005294*(Temp-675))

    return (data.frame(Name=Amp$Name, T_seq=Temp, P_calc_Holland_Blundy=P));
}

sensors.p.amp_pl_holland_blundy.args <- function() {
    ars <- list();
    ars$minerals = c('Amp');
    ars$ranges = c('Temp');
    return(ars);
}
</Code>