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

  1. source('recalc_common_oxygen.r');
  2.  
  3. sensors.p.ph_caddick_thompson <- function(Ph, Temp=600, usePFU = FALSE, ...){
  4.     if (!usePFU) Ph <- recalc.common_oxygen(Ph,11);
  5.     Pcalc <- (4.19*Ph$Si_pfu + 0.0036*(Temp+273.15) - 15.15)*10;
  6.     return (data.frame(Name=Ph$Name,T_seq=Temp,P_calc_ph_caddick_thompson=Pcalc));
  7. }
  8.  
  9. sensors.p.ph_caddick_thompson.args <- function() {
  10.     ars <- list();
  11.     ars$minerals = c('Ph');
  12.     ars$ranges = c('Temp');
  13.     return(ars);
  14. }
  15.  
  16. sensors.p.ph_caddick_thompson.test <- function () {
  17.     src <- data.frame(Name='test', Si_pfu=3.2);
  18.     result <- sensors.p.ph_caddick_thompson (src,600,usePFU = T);
  19.     expect_equal(object = result$P_calc_ph_caddick_thompson, 14, tolerance = 0.1);
  20. }