Различия
Здесь показаны различия между двумя версиями данной страницы.
sensors:p:cpx_pl_qtz_ellis_1980 [2018/11/12 15:08] 127.0.0.1 внешнее изменение |
sensors:p:cpx_pl_qtz_ellis_1980 [2020/02/19 13:12] (текущий) f0ma |
||
---|---|---|---|
Строка 31: | Строка 31: | ||
source("utilities_tpf.r"); | source("utilities_tpf.r"); | ||
- | sensors.p.cpx_pl_qtz_ellis_1980 <- function(Cpx, Pl, Qtz, Temp, ...){ | + | sensors.p.cpx_pl_qtz_ellis_1980 <- function(Cpx, Pl, Temp, ...){ |
- | T <- Temp; | + | Name <- paste0(Cpx$Name,"-", Pl$Name); |
+ | T <- Temp; | ||
Pl <- tpf.recalc_minaral("PL",Pl); | Pl <- tpf.recalc_minaral("PL",Pl); | ||
Cpx <- tpf.recalc_minaral("CPX",Cpx); | Cpx <- tpf.recalc_minaral("CPX",Cpx); | ||
Строка 44: | Строка 45: | ||
M <- 26885 * ((Z * (1 - Z))^2); | M <- 26885 * ((Z * (1 - Z))^2); | ||
P <- (5360 + K + 12864 * Z * (1 - Z) - M - L) / 0.349 / 1000; | P <- (5360 + K + 12864 * Z * (1 - Z) - M - L) / 0.349 / 1000; | ||
- | return(data.frame(Name=paste0(Pl$Name,"-", Cpx$Name),Temp=Temp,P_calc=P)); | + | return(data.frame(Name=Name,Temp=Temp,P_calc=P)); |
} | } | ||
sensors.p.cpx_pl_qtz_ellis_1980.args <- function(){ | sensors.p.cpx_pl_qtz_ellis_1980.args <- function(){ | ||
ars <- list(); | ars <- list(); | ||
- | ars$minerals <- c("Cpx", "Pl", "Qtz"); | + | ars$minerals <- c("Cpx", "Pl"); |
ars$ranges <- c("Temp"); | ars$ranges <- c("Temp"); | ||
return(ars); | return(ars); |