Фенгитовый геобарометр Массона-Шрайера, 1987

Предложен в 1987

На основе экспериментов в системе KMASH

Формула данного барометра по приведенным в работе изполетам:

P(ГПа) = (23.76*Si_phe + 0.01096 T(deg C) - 75.34) / 10

source('recalc_common_oxygen.r');

sensors.p.phe_massone_schreier <- function(Phe, Temp=600, usePFU = FALSE, ...){

if (!usePFU) Phe <- recalc.common_oxygen(Phe,12);

Pcalc <- 23.76*Phe$Si_pfu + 0.01096*Temp - 75.34;

return (data.frame(Name=Phe$Name,T_seq=Temp,P_calc_phe_massone_schreier=Pcalc));
}

sensors.p.phe_massone_schreier.args <- function() {
    ars <- list();
    ars$minerals = c('Phe');
    ars$ranges = c('Temp');
    return(ars);
}