Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:p:phe_caddick_thompson [2015/09/24 09:04] admin |
— (текущий) | ||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Фенгитовый геобарометр Каддик-Томпсон, 2008 ====== | ||
| - | |||
| - | Сенсор на основе модели фенгита по Р. Когану и Т. Холланду. | ||
| - | |||
| - | === Подробнее === | ||
| - | |||
| - | ^ Информация о публикации | Caddick, M. J., Thompson, A. B. Quantifying the tectono-metamorphic evolution of pelitic rocks from a wide range of tectonic settings: mineral compositions in equilibrium Contrib. Mineral. Petrol. 156, 2008, pp. 177―195| | ||
| - | ^ Ссылка | ? | | ||
| - | ^ Калибровка | | | ||
| - | ^ Точность | | | ||
| - | ^ Диапазон значений | | | ||
| - | ^ Обновляет сенсоры | | | ||
| - | ^[[:ppy:mod_sensors#p_phe_caddick_thompson|Рассчитать]] ^ ^ | ||
| - | |||
| - | === Код метода === | ||
| - | |||
| - | <Code linenums lang-r> | ||
| - | source('recalc_common_oxygen.r'); | ||
| - | |||
| - | 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> | ||