====== Hbl: Thomas, Ernst, 1990 ======

ONLY FOR HBL+BT+EP+SPL+MELT+KFS+PL+QTZ+FE-TI OXIDE

=== Details ===

<WRAP center round info 60%>
This sensor from [[:about_tpf|TPF]] collection
</WRAP>

^ Article | <ref:thomas1990> |
^ Callibration | 10 experements |
^ Precision | ±1.0 kbar |
^ Ranges | 6-12 kbar |
^ Renew sensors | HAMMARSTROM and ZEN ( 1987), HOLLISTER and OTHERS (1988);  |

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

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

=== Source ===
<Code linenums lang-r>
source("utilities_tpf.r");

sensors.p.hbl_thomas_ernst_1990 <- function(Hbl, usePFU=FALSE, ...){
     
    row_names = Hbl$Name;

    if (!usePFU) {
        Hbl <- tpf.recalc_minaral("HBL",Hbl);
    }

    XAL <- Hbl$Al_c4_pfu + Hbl$Al_c6_pfu;
    PP <-  -6.23 + 5.34 * XAL;

    P <- ifelse(PP<12,PP,NA);
        
    return(data.frame(Name=row_names,P_calc=P));
}

sensors.p.hbl_thomas_ernst_1990.args <- function(){
    ars <- list();
    ars$minerals <- c("Hbl");
    ars$ranges <- c();
    return(ars);
}

sensors.p.hbl_thomas_ernst_1990.test <- function(){
    hbl <- data.frame(Name=c('HBL'), SiO2_wtp=c(39.44), TiO2_wtp=c(1.16), Al2O3_wtp=c(15.02), Cr2O3_wtp=c(0.00),
                        FeO_wtp=c(18.11), MnO_wtp=c(0.36), MgO_wtp=c(7.90), CaO_wtp=c(11.45), Na2O_wtp=c(1.92), K2O_wtp=c(1.58));
 
    res <- sensors.p.hbl_thomas_ernst_1990(hbl);
    
    expect_equal(object = res[1,]$P_calc, 8, tolerance = 1);
}
</Code>

{{tag> tpf Hbl AP_igroup fixed}}