Различия

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

--- sensors:p:opx_cpx_mercier_1984_a [2017/01/17 13:44]
127.0.0.1 внешнее изменение
+++ sensors:p:opx_cpx_mercier_1984_a [2018/11/12 15:08] (текущий)
@@ Строка 1: / Строка 1: @@
 ====== Opx-Cpx: Mercier, 1984 <A> ======
+ONLY FOR LHERZOLITES AND HARZBURGITES, EQ.4 (empirical when using all available CMS and CMAS experimental data)
 === Details ===
@@ Строка 7: / Строка 9: @@
 </WRAP>
-^ Article |  |
+^ Article | <ref:mercier1984> |
-^ Collibration |  |
+^ Collibration | 51 reversed experimental data in the CMS system, plus additional data in the CMAS system and for some selected natural samples |
 ^ Precision |  |
-^ Ranges |  |
+^ Ranges | 5-30 kbar, 800-1400 °C |
 ^ Renew sensors |  |
@@ Строка 19: / Строка 21: @@
   * <del>заголовок</del>
   * краткое описание
-  * статья
+  * <del>статья</del>
-  * ссылка
+  * <del>ссылка</del>
   * карточка
   * подробное описание
@@ Строка 31: / Строка 33: @@
 source("utilities_tpf.r");
-sensors.p.opx_cpx_mercier_1984_a <- function(Opx, Cpx, ...){
+sensors.p.opx_cpx_mercier_1984_a <- function(Opx, Cpx, usePFU=FALSE, ...){
-    Opx <- tpf.recalc_minaral("OPX",Opx);
-    Cpx <- tpf.recalc_minaral("CPX",Cpx);
+    row_names = paste0(Cpx$Name,"-", Opx$Name);
+    if(!usePFU) {
+        Opx <- tpf.recalc_minaral("OPX",Opx);
+        Cpx <- tpf.recalc_minaral("CPX",Cpx);
+    }
     CO <- Opx$Ca_pfu;
     NO <- Opx$Na_pfu;
@@ Строка 43: / Строка 50: @@
     KF <- CAOP / (1 - CACP);
     P <- 12.79 / (KF + 0.006) - 22.9;
-    warning(" ONLY FOR LHERZOLITES AND HARZBURGITES, EQ.4");
-    return(data.frame(Name=paste0(Cpx$Name,"-", Opx$Name),P_calc=P));
+    return(data.frame(Name=row_names,P_calc=P));
 }
@@ Строка 59: / Строка 66: @@
 </Code>
-{{tag> tpf Cpx Opx }}
+{{tag> tpf Cpx Opx AP_igroup fixed}}