====== Ph: Caddick, Thompson, 2008 ======

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

=== Подробнее ===

^ Article  | <ref:caddick2008> |
^ Collibration |  |
^ Accuracy |  |
^ Ranges | |
^ Renew sensors | |
<use: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>
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);
}
</Code>