Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:p:phe_caddick_thompson [2015/09/04 11:06] 127.0.0.1 внешнее изменение |
— (текущий) | ||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Фенгитовый геобарометр Каддик-Томпсон, 2008 ====== | ||
| - | |||
| - | Предложен в 2008 | ||
| - | |||
| - | На основе модели фенгита по Р. Когану и Т. Холланду | ||
| - | |||
| - | Формула данного барометра по приведенным в работе изполетам: | ||
| - | |||
| - | P(ГПа) = 4.19*Si_pfu + 0.0036 (T(deg C)+273.15) - 15.15; | ||
| - | |||
| - | === Код метода === | ||
| - | |||
| - | <code> | ||
| - | |||
| - | source('recalc_common_oxygen.r'); | ||
| - | |||
| - | #Minerals: Phe | ||
| - | #Range: Temp | ||
| - | |||
| - | sensors.p.phe_caddick_thompson <- function(Phe, Temp=600, usePFU = FALSE, ...){ | ||
| - | |||
| - | if (!usePFU) Phe <- recalc.common_oxygen(Phe,12); | ||
| - | |||
| - | Pcalc <- 4.19*Phe$Si_pfu + 0.0036*(Temp+273.15) - 15.15; | ||
| - | |||
| - | return (data.frame(Name=Phe$Name,T_seq=Temp,P_calc_phe_caddick_thompson=Pcalc)); | ||
| - | } | ||
| - | |||
| - | sensors.p.phe_caddick_thompson.args <- function() { | ||
| - | ars <- list(); | ||
| - | ars$minerals = c('Phe'); | ||
| - | ars$ranges = c('Temp'); | ||
| - | return(ars); | ||
| - | } | ||
| - | </code> | ||