====== Bt: Wu, Chen, 2015 ======

Ti-in-biotite geothermometer for ilmenite- or rutile-bearing crustal metapelites.

=== Details ===

^ Reference | <ref:wu2015> |
^ Collibration |300 natural rutile- or ililmenite-bearing metapelites collected worldwide. |
^ Precision | ± 65 °C |
^ Ranges | P < 20 kbar,  500 °C < T < 800 °C |
^ Renew sensors |  |

<use:sensors.t.bt_wu_chen>
<test:sensors.t.bt_wu_chen>

<WRAP center round todo 60%>
Для улучшения этой статьи следует:
  * Добавить подробное описание
  * Добавить тест
</WRAP>

=== Source ===

<Code linenums lang-r>
source('recalc_bt_tindle.r');
 
sensors.t.bt_wu_chen <- function(Bt, P=3, usePFU = FALSE, ...){
 
if (!usePFU) Bt <- recalc.bt_tindle(Bt);

Ln_Tcalc = 6.313 + 0.224*(log(Bt$Ti_pfu)) - 0.288*log(log(Bt$Fe_pfu)) - 0.449*log(Bt$Mg_pfu)+ 0.15*(P/10);

Tcalc = exp(Ln_Tcalc);
 
return (data.frame(Name=Bt$Name, P_seq=P, T_calc_Bt_Putirka=Tcalc));
}
 
sensors.t.bt_wu_chen.args <- function() {
    ars <- list();
    ars$minerals = c('Bt');
    ars$ranges = c('P');
    return(ars);
}
</Code>