Различия

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

--- sensors:t:cpx_opx_kretz_1982_a [2017/05/18 15:16]
admin
+++ sensors:t:cpx_opx_kretz_1982_a [2018/11/12 15:07] (текущий)
@@ Строка 1: / Строка 1: @@
 ====== Cpx-Opx: Kretz, 1982 <A> ======
-For Fe-free pyroxenes.
+Cpx slope of the solvus surface based on Natural data for associated Ca pyroxene (Cpx) and orthopyroxene (Opx) or pigeonite are combined with experimental data for Fe-free pyroxenes.
 === Details ===
@@ Строка 44: / Строка 44: @@
     TL <- (1000 / (0.054 + 0.608 * X - 0.304 * log(1 - 2 * Y))) - 273.15;
-    T <- c();
+    Ts <- data.frame(TH = TH, TL = TL, T = rep(NA, nrow(Cpx)));
+    Ts$T <- ifelse(Ts$TH>1080.0,Ts$TH,ifelse(Ts$TL<1080.0,TL,NA));
-    for (i in 1:nrow(Cpx)){
-        if (TH<1080.0 && TL>1080.0) {
+    return(data.frame(Name=row_names,T_calc=Ts$T));
-            T <- c(T,NA);
-            next;
-        }
-        if (TH>1080.0) {
-            T <- c(T,TH);
-            next;
-        }
-        if (TL<1080.0) {
-            T <- c(T,TL);
-            next;
-        }
-    }
-    return(data.frame(Name=row_names,T_calc=T));
 }
@@ Строка 76: / Строка 62: @@
 </Code>
-{{tag> tpf Cpx }}
+{{tag> tpf Cpx AP_igroup fixed}}