Различия
Здесь показаны различия между двумя версиями данной страницы.
sensors:p:grt_cpx_pl_qtz_perkins_newton_1981 [2018/11/12 15:08] 127.0.0.1 внешнее изменение |
sensors:p:grt_cpx_pl_qtz_perkins_newton_1981 [2020/02/19 13:22] (текущий) f0ma |
||
---|---|---|---|
Строка 31: | Строка 31: | ||
source("utilities_tpf.r"); | source("utilities_tpf.r"); | ||
- | sensors.p.grt_cpx_pl_qtz_perkins_newton_1981 <- function(Grt, Cpx, Pl, Qtz, Temp, ...){ | + | sensors.p.grt_cpx_pl_qtz_perkins_newton_1981 <- function(Grt, Cpx, Pl, Temp, ...){ |
- | T <- Temp; | + | Name <- paste0(Pl$Name,"-", Cpx$Name,"-", Grt$Name); |
+ | T <- Temp; | ||
Pl <- tpf.recalc_minaral("PL",Pl); | Pl <- tpf.recalc_minaral("PL",Pl); | ||
Grt <- tpf.recalc_minaral("GRT",Grt); | Grt <- tpf.recalc_minaral("GRT",Grt); | ||
Строка 54: | Строка 55: | ||
P <- (675 + 17.179 * TT + 3.5962 * TT * log(K^2 * L / A / M)) / 1000; | P <- (675 + 17.179 * TT + 3.5962 * TT * log(K^2 * L / A / M)) / 1000; | ||
warning(" ACCURACY +-1.5 KBAR"); | warning(" ACCURACY +-1.5 KBAR"); | ||
- | return(data.frame(Name=paste0(Pl$Name,"-", Cpx$Name,"-", Grt$Name),Temp=Temp,P_calc=P)); | + | return(data.frame(Name=Name,Temp=Temp,P_calc=P)); |
} | } | ||
sensors.p.grt_cpx_pl_qtz_perkins_newton_1981.args <- function(){ | sensors.p.grt_cpx_pl_qtz_perkins_newton_1981.args <- function(){ | ||
ars <- list(); | ars <- list(); | ||
- | ars$minerals <- c("Grt", "Cpx", "Pl", "Qtz"); | + | ars$minerals <- c("Grt", "Cpx", "Pl"); |
ars$ranges <- c("Temp"); | ars$ranges <- c("Temp"); | ||
return(ars); | return(ars); |