Различия
Здесь показаны различия между двумя версиями данной страницы.
sensors:p:grt_crd_sil_qtz_thompson_1984 [2018/11/12 15:08] 127.0.0.1 внешнее изменение |
sensors:p:grt_crd_sil_qtz_thompson_1984 [2020/02/19 13:25] (текущий) f0ma |
||
---|---|---|---|
Строка 31: | Строка 31: | ||
source("utilities_tpf.r"); | source("utilities_tpf.r"); | ||
- | sensors.p.grt_crd_sil_qtz_thompson_1984 <- function(Grt, Crd, Sil, Qtz, Temp, ...){ | + | sensors.p.grt_crd_sil_qtz_thompson_1984 <- function(Grt, Crd, Temp, ...){ |
- | T <- Temp; | + | Name <- paste0(Crd$Name,"-", Grt$Name); |
+ | T <- Temp; | ||
Grt <- tpf.recalc_minaral("GRT",Grt); | Grt <- tpf.recalc_minaral("GRT",Grt); | ||
Crd <- tpf.recalc_minaral("CRD",Crd); | Crd <- tpf.recalc_minaral("CRD",Crd); | ||
Строка 41: | Строка 42: | ||
K <- log(X / Y); | K <- log(X / Y); | ||
P <- (1 + (13994.5 - 7.601 * TT - 6 * TT * K)) / 1.9558 / 1000; | P <- (1 + (13994.5 - 7.601 * TT - 6 * TT * K)) / 1.9558 / 1000; | ||
- | return(data.frame(Name=paste0(Crd$Name,"-", Grt$Name),Temp=Temp,P_calc=P)); | + | return(data.frame(Name=Name,Temp=Temp,P_calc=P)); |
} | } | ||
sensors.p.grt_crd_sil_qtz_thompson_1984.args <- function(){ | sensors.p.grt_crd_sil_qtz_thompson_1984.args <- function(){ | ||
ars <- list(); | ars <- list(); | ||
- | ars$minerals <- c("Grt", "Crd", "Sil", "Qtz"); | + | ars$minerals <- c("Grt", "Crd"); |
ars$ranges <- c("Temp"); | ars$ranges <- c("Temp"); | ||
return(ars); | return(ars); |