====== Ph: Массон-Шрайер, 1987 ======

На основе экспериментов в системе KMASH. Формула полученная по приведенным в работе изполетам.

=== Подробнее ===

^ Article | <ref:massonne1987> |
^ Калибровка | На основе экспериментов в системе KMASH ~ 16 результатов |
^ Точность | ?  Kbar |
^ Диапазон значений | 300-700 ºС 3-25 Kbar |
^ Обновляет сенсоры | Velde, 1965 |
<use:sensors.p.ph_massone_schreier>
<test:sensors.p.ph_massone_schreier>

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

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

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

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

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

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

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