Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:p:phe_massone_schreier [2015/09/04 11:06] 127.0.0.1 внешнее изменение |
— (текущий) | ||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Фенгитовый геобарометр Массона-Шрайера, 1987 ====== | ||
| - | Предложен в 1987 | ||
| - | |||
| - | На основе экспериментов в системе KMASH | ||
| - | |||
| - | Формула данного барометра по приведенным в работе изполетам: | ||
| - | |||
| - | P(ГПа) = (23.76*Si_phe + 0.01096 T(deg C) - 75.34) / 10 | ||
| - | |||
| - | === Код метода === | ||
| - | |||
| - | <code> | ||
| - | |||
| - | 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); | ||
| - | } | ||
| - | |||
| - | </code> | ||