Различия

Здесь показаны различия между двумя версиями данной страницы.

--- 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");
-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);
     Cpx <- tpf.recalc_minaral("CPX",Cpx);
@@ Строка 44: / Строка 45: @@
     M <- 26885 * ((Z * (1 - Z))^2);
     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(){
     ars <- list();
-    ars$minerals <- c("Cpx", "Pl", "Qtz");
+    ars$minerals <- c("Cpx", "Pl");
     ars$ranges <- c("Temp");
     return(ars);