St-Grt: Perchuk, 1989

Details

This sensor from TPF collection

Article
Collibration
Precision
Ranges
Renew sensors

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

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

Source

  1. source("utilities_tpf.r");
  2.  
  3. sensors.t.st_grt_perchuk_1989 <- function(St, Grt, P, ...){
  4. St <- tpf.recalc_minaral("ST",St);
  5. Grt <- tpf.recalc_minaral("GRT",Grt);
  6.  
  7. X <- St$Mg_pfu / (St$Mg_pfu + St$Fe_p2_pfu + St$Fe_p3_pfu + St$Mn_pfu);
  8. Y <- Grt$Mg_pfu / (Grt$Mg_pfu + Grt$Fe_p2_pfu + Grt$Fe_p3_pfu + Grt$Mn_pfu);
  9. K <- - log(Y * (1 - X) / (1 - Y) / X);
  10. T <- (2713 + 0.0091 * (P * 1000 - 6000)) / (K + 2.799) - 273;
  11. warning(" CAN BE USED ONLY FOR 350<T(C)<700.");
  12. return(data.frame(Name=paste0(St$Name,"-", Grt$Name),P=P,T_calc=T));
  13. }
  14.  
  15. sensors.t.st_grt_perchuk_1989.args <- function(){
  16. ars <- list();
  17. ars$minerals <- c("St", "Grt");
  18. ars$ranges <- c("P");
  19. return(ars);
  20. }
  21.  
  22. #sensors.t.st_grt_perchuk_1989.test <- function(){
  23. #
  24. #}
, ,