Grt-Crd-Sil-Qtz: Thompson, 1984
Details
This sensor from TPF collection
Article | |
---|---|
Collibration | |
Precision | |
Ranges | |
Renew sensors |
заголовок- краткое описание
- статья
- ссылка
- карточка
- подробное описание
код- тест
Source
- source("utilities_tpf.r");
- sensors.p.grt_crd_sil_qtz_thompson_1984 <- function(Grt, Crd, Temp, ...){
- Name <- paste0(Crd$Name,"-", Grt$Name);
- T <- Temp;
- Grt <- tpf.recalc_minaral("GRT",Grt);
- Crd <- tpf.recalc_minaral("CRD",Crd);
- X <- (Crd$Fe_p2_pfu + Crd$Fe_p3_pfu) / (Crd$Fe_p2_pfu + Crd$Fe_p3_pfu + Crd$Mg_pfu);
- Y <- (Grt$Fe_p2_pfu + Grt$Fe_p3_pfu) / (Grt$Fe_p2_pfu + Grt$Fe_p3_pfu + Grt$Mg_pfu);
- TT <- T + 273;
- K <- log(X / Y);
- P <- (1 + (13994.5 - 7.601 * TT - 6 * TT * K)) / 1.9558 / 1000;
- return(data.frame(Name=Name,Temp=Temp,P_calc=P));
- }
- sensors.p.grt_crd_sil_qtz_thompson_1984.args <- function(){
- ars <- list();
- ars$minerals <- c("Grt", "Crd");
- ars$ranges <- c("Temp");
- return(ars);
- }
- #sensors.p.grt_crd_sil_qtz_thompson_1984.test <- function(){
- #
- #}