Grt-Crd-Sil-Qtz: Thompson, 1984

Details

This sensor from TPF collection

Article
Collibration
Precision
Ranges
Renew sensors

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

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

Source

  1. source("utilities_tpf.r");
  2.  
  3. sensors.p.grt_crd_sil_qtz_thompson_1984 <- function(Grt, Crd, Temp, ...){
  4. Name <- paste0(Crd$Name,"-", Grt$Name);
  5. T <- Temp;
  6. Grt <- tpf.recalc_minaral("GRT",Grt);
  7. Crd <- tpf.recalc_minaral("CRD",Crd);
  8.  
  9. X <- (Crd$Fe_p2_pfu + Crd$Fe_p3_pfu) / (Crd$Fe_p2_pfu + Crd$Fe_p3_pfu + Crd$Mg_pfu);
  10. Y <- (Grt$Fe_p2_pfu + Grt$Fe_p3_pfu) / (Grt$Fe_p2_pfu + Grt$Fe_p3_pfu + Grt$Mg_pfu);
  11. TT <- T + 273;
  12. K <- log(X / Y);
  13. P <- (1 + (13994.5 - 7.601 * TT - 6 * TT * K)) / 1.9558 / 1000;
  14. return(data.frame(Name=Name,Temp=Temp,P_calc=P));
  15. }
  16.  
  17. sensors.p.grt_crd_sil_qtz_thompson_1984.args <- function(){
  18. ars <- list();
  19. ars$minerals <- c("Grt", "Crd");
  20. ars$ranges <- c("Temp");
  21. return(ars);
  22. }
  23.  
  24. #sensors.p.grt_crd_sil_qtz_thompson_1984.test <- function(){
  25. #
  26. #}
  • sensors/p/grt_crd_sil_qtz_thompson_1984.txt
  • Последние изменения: 2020/02/19 13:25
  • — f0ma