Ol-Spl: Ono, 1983

Details

This sensor from TPF collection

Article
Collibration
Precision
Ranges
Renew sensors

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

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

Source

  1. source("utilities_tpf.r");
  2.  
  3. sensors.t.ol_spl_ono_1983 <- function(Ol, Spl, ...){
  4. Spl <- tpf.recalc_minaral("SPL",Spl);
  5. Ol <- tpf.recalc_minaral("OL",Ol);
  6.  
  7. X <- Spl$Cr_pfu / (Spl$Cr_pfu + Spl$Al_pfu);
  8. N <- Spl$Fe_p2_pfu;
  9. M <- Spl$Mg_pfu;
  10. Y <- Ol$Mg_pfu;
  11. Z <- Ol$Fe_p2_pfu;
  12. F <- Spl$Fe2O3_wtp;
  13. if ((Z / (Z + Y))<0.20) {
  14. if ((Z / (Z + Y))>0.10) {
  15. if (F<6) {
  16. T <- ((0.057 + 0.34 * X) * 10000 / (log(N / M * Y / Z) + 0.934 - 0.102)) - 273;
  17. warning(" ACCURACY +/-70 C");
  18. }
  19. if (F>6) {
  20. warning(" IS NOT TO BE USED FOR FE2O3 I SPL >6 WT.");
  21. }
  22. }
  23. if ((Z / (Z + Y))<0.10) {
  24. warning(" IS NOT TO BE USED FOR FE/(FE+MG) IN OL < 0.1");
  25. }
  26. }
  27. if ((Z / (Z + Y))>0.20) {
  28. warning(" IS NOT TO BE USED FOR FE/(FE+MG) IN OL > 0.2");
  29. }
  30. return(data.frame(Name=paste0(Spl$Name,"-", Ol$Name),T_calc=T));
  31. }
  32.  
  33. sensors.t.ol_spl_ono_1983.args <- function(){
  34. ars <- list();
  35. ars$minerals <- c("Ol", "Spl");
  36. ars$ranges <- c();
  37. return(ars);
  38. }
  39.  
  40. #sensors.t.ol_spl_ono_1983.test <- function(){
  41. #
  42. #}
  • sensors/t/ol_spl_ono_1983.txt
  • Последние изменения: 2018/11/12 15:08
  • (внешнее изменение)