====== Kfs-Pl: Whitney, Stormer, 1977 ======
=== Details ===
This sensor from [[:about_tpf|TPF]] collection
^ Article | |
^ Collibration | |
^ Precision | |
^ Ranges | |
^ Renew sensors | |
* заголовок
* краткое описание
* статья
* ссылка
* карточка
* подробное описание
* код
* тест
=== Source ===
source("utilities_tpf.r");
sensors.t.kfs_pl_whitney_stormer_1977 <- function(Kfs, Pl, P, ...){
Pl <- tpf.recalc_minaral("PL",Pl);
Kfs <- tpf.recalc_minaral("KFS",Kfs);
X <- Kfs$K_pfufs$Na_pfu / (Kfs$K_pfufs$Ca_pfu + Kfs$K_pfufs$Na_pfu + Kfs$K_pfu);
Y <- Pl$Na_pfu / (Pl$Ca_pfu + Pl$Na_pfu + Pl$K_pfu);
T <- ((7973.1 - 16910.6 * X + 9901.9 * X^2 + (0.11 - 0.22 * X + 0.11 * X^2) * 1000 * P) / ( - 1.9872 * log(X / Y) + 6.48 - 21.58 * X + 23.72 * X^2 - 8.62 * X^3)) - 273;
warning(" ONLY FOR METAMORPHIC ROCKS AND SLOWLY CRYSTALLIZED PLUTONS");
return(data.frame(Name=paste0(Pl$Name,"-", Kfs$Name),P=P,T_calc=T));
}
sensors.t.kfs_pl_whitney_stormer_1977.args <- function(){
ars <- list();
ars$minerals <- c("Kfs", "Pl");
ars$ranges <- c("P");
return(ars);
}
#sensors.t.kfs_pl_whitney_stormer_1977.test <- function(){
#
#}
{{tag> tpf Pl Kfs }}