Ph: Caddick, Thompson, 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
Ссылка	?
Калибровка
Точность
Диапазон значений
Обновляет сенсоры

Код метода

source('recalc_common_oxygen.r');

sensors.p.ph_caddick_thompson <- function(Ph, Temp=600, usePFU = FALSE, ...){
    if (!usePFU) Phe <- recalc.common_oxygen(Ph,12);
    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_phe_caddick_thompson=Pcalc));
}

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

sensors.p.ph_caddick_thompson.test <- function () {
    src <- data.frame(Name='test', Si_pfu=3.2);
    r <- sensors.p.ph_caddick_thompson (src,600,usePFU = T);
    expect_equal(object = result$P_calc_phe_caddick_thompson, 14, tolerance = 0.1);
}