Ph: Caddick, Thompson, 2008

Сенсор на основе модели фенгита по Р. Когану и Т. Холланду.

Подробнее

Article	Caddick, Mark J., Thompson, Alan B. Quantifying the tectono-metamorphic evolution of pelitic rocks from a wide range of tectonic settings: mineral compositions in equilibrium, 2008 [ref]
Collibration
Accuracy
Ranges
Renew sensors

Использовать Проверить

~~заголовок~~
~~краткое описание~~
~~статья~~
~~ссылка~~
карточка
подробное описание
~~код~~
~~тест~~

Source

source('recalc_common_oxygen.r');

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

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);
    result <- sensors.p.ph_caddick_thompson (src,600,usePFU = T);
    expect_equal(object = result$P_calc_ph_caddick_thompson, 14, tolerance = 0.1);
}