Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:p:ph_caddick_thompson [2016/02/17 19:54] admin |
sensors:p:ph_caddick_thompson [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 5: | Строка 5: | ||
| === Подробнее === | === Подробнее === | ||
| - | ^ Информация о публикации | 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| | + | ^ Article | <ref:caddick2008> | |
| - | ^ Ссылка | ? | | + | ^ Collibration | | |
| - | ^ Калибровка | | | + | ^ Accuracy | | |
| - | ^ Точность | | | + | ^ Ranges | | |
| - | ^ Диапазон значений | | | + | ^ Renew sensors | | |
| - | ^ Обновляет сенсоры | | | + | <use:sensors.p.ph_caddick_thompson> |
| - | ^[[:ppy:mod_sensors#p_ph_caddick_thompson|Рассчитать]] ^ ^ | + | <test:sensors.p.ph_caddick_thompson> |
| - | === Код метода === | + | <WRAP center round todo 60%> |
| + | * <del>заголовок</del> | ||
| + | * <del>краткое описание</del> | ||
| + | * <del>статья</del> | ||
| + | * <del>ссылка</del> | ||
| + | * карточка | ||
| + | * подробное описание | ||
| + | * <del>код</del> | ||
| + | * <del>тест</del> | ||
| + | </WRAP> | ||
| + | === Source === | ||
| <Code linenums lang-r> | <Code linenums lang-r> | ||
| Строка 19: | Строка 29: | ||
| sensors.p.ph_caddick_thompson <- function(Ph, Temp=600, usePFU = FALSE, ...){ | sensors.p.ph_caddick_thompson <- function(Ph, Temp=600, usePFU = FALSE, ...){ | ||
| - | if (!usePFU) Ph <- recalc.common_oxygen(Ph,12); | + | if (!usePFU) Ph <- recalc.common_oxygen(Ph,11); |
| Pcalc <- (4.19*Ph$Si_pfu + 0.0036*(Temp+273.15) - 15.15)*10; | Pcalc <- (4.19*Ph$Si_pfu + 0.0036*(Temp+273.15) - 15.15)*10; | ||
| return (data.frame(Name=Ph$Name,T_seq=Temp,P_calc_ph_caddick_thompson=Pcalc)); | return (data.frame(Name=Ph$Name,T_seq=Temp,P_calc_ph_caddick_thompson=Pcalc)); | ||
| Строка 33: | Строка 43: | ||
| sensors.p.ph_caddick_thompson.test <- function () { | sensors.p.ph_caddick_thompson.test <- function () { | ||
| src <- data.frame(Name='test', Si_pfu=3.2); | src <- data.frame(Name='test', Si_pfu=3.2); | ||
| - | r <- sensors.p.ph_caddick_thompson (src,600,usePFU = T); | + | result <- sensors.p.ph_caddick_thompson (src,600,usePFU = T); |
| expect_equal(object = result$P_calc_ph_caddick_thompson, 14, tolerance = 0.1); | expect_equal(object = result$P_calc_ph_caddick_thompson, 14, tolerance = 0.1); | ||
| } | } | ||
| </Code> | </Code> | ||