====== Crd-Grt: Perchuk, 1989 ======
=== Details ===
This sensor from [[:about_tpf|TPF]] collection
^ Article | |
^ Collibration | |
^ Precision | |
^ Ranges | |
^ Renew sensors | |
* заголовок
* краткое описание
* статья
* ссылка
* карточка
* подробное описание
* код
* тест
=== Source ===
source("utilities_tpf.r");
sensors.t.crd_grt_perchuk_1989 <- function(Crd, Grt, P, ...){
Grt <- tpf.recalc_minaral("GRT",Grt);
Crd <- tpf.recalc_minaral("CRD",Crd);
X <- Crd$Mg_pfu / (Crd$Mg_pfu + Crd$Fe_p2_pfu + Crd$Fe_p3_pfu + Crd$Mn_pfu);
Y <- Grt$Mg_pfu / (Grt$Mg_pfu + Grt$Fe_p2_pfu + Grt$Fe_p3_pfu + Grt$Mn_pfu);
K <- - log(Y * (1 - X) / (1 - Y) / X);
T <- (3125 + 0.0176 * (P * 1000 - 6000)) / (K + 1.135) - 273;
warning(" CAN BE USED ONLY FOR 350
{{tag> tpf Crd Grt }}