Различия
Здесь показаны различия между двумя версиями данной страницы.
sensors:p:grt_cpx_mercier_1980_b [2018/11/12 15:08] 127.0.0.1 внешнее изменение |
sensors:p:grt_cpx_mercier_1980_b [2020/02/19 13:23] (текущий) f0ma |
||
---|---|---|---|
Строка 31: | Строка 31: | ||
source("utilities_tpf.r"); | source("utilities_tpf.r"); | ||
- | sensors.p.grt_cpx_mercier_1980_b <- function(Grt, Cpx, ...){ | + | sensors.p.grt_cpx_mercier_1980_b <- function(Cpx, ...){ |
+ | Name = Cpx$Name; | ||
Cpx <- tpf.recalc_minaral("CPX",Cpx); | Cpx <- tpf.recalc_minaral("CPX",Cpx); | ||
Строка 50: | Строка 51: | ||
P <- (176.43 * log(XKW) - 706.14 * log(XKA) - 224.56) / D; | P <- (176.43 * log(XKW) - 706.14 * log(XKA) - 224.56) / D; | ||
} | } | ||
- | return(data.frame(Name=paste0(Cpx$Name),P_calc=P)); | + | return(data.frame(Name=Name,P_calc=P)); |
} | } | ||
sensors.p.grt_cpx_mercier_1980_b.args <- function(){ | sensors.p.grt_cpx_mercier_1980_b.args <- function(){ | ||
ars <- list(); | ars <- list(); | ||
- | ars$minerals <- c("Grt", "Cpx"); | + | ars$minerals <- c("Cpx"); |
ars$ranges <- c(); | ars$ranges <- c(); | ||
return(ars); | return(ars); |