Различия

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

--- sensors:t:opx_spl_mercier_1980_a [2017/05/18 11:18]
admin
+++ sensors:t:opx_spl_mercier_1980_a [2018/11/12 15:08] (текущий)
@@ Строка 1: / Строка 1: @@
 ====== Opx-Spl: Mercier, 1980 <A> ======
+Independent estimation of pressure and temperature for any single pyroxene phase in equilibrium with a second pyroxene and with either spinel or garnet; otherwise, minimum temperatures and maximum pressures are obtained.
 === Details ===
@@ Строка 7: / Строка 9: @@
 </WRAP>
-^ Article |  |
+^ Article | <ref:mercier1980> |
-^ Collibration |  |
+^ Callibration | 150 xenolith |
-^ Precision |  |
+^ Precision | ±20 °C |
-^ Ranges |  |
+^ Ranges | 10-80 kbar, 850-1600 °C |
 ^ Renew sensors |  |
@@ Строка 18: / Строка 20: @@
 <WRAP center round todo 60%>
   * <del>заголовок</del>
-  * краткое описание
+  * <del>краткое описание</del>
-  * статья
+  * <del>статья</del>
-  * ссылка
+  * <del>ссылка</del>
-  * карточка
+  * <del>карточка</del>
   * подробное описание
   * <del>код</del>
@@ Строка 31: / Строка 33: @@
 source("utilities_tpf.r");
-sensors.t.opx_spl_mercier_1980_a <- function(Opx, Spl, ...){
+sensors.t.opx_spl_mercier_1980_a <- function(Opx, usePFU=FALSE, ...){
-    Opx <- tpf.recalc_minaral("OPX",Opx);
+    row_name = Opx$Name;
+    if(!usePFU) {
+        Opx <- tpf.recalc_minaral("OPX",Opx);
+    }
     A <- (Opx$Al_c4_pfu + Opx$Al_c6_pfu - Opx$Na_pfu) / 2;
@@ Строка 41: / Строка 48: @@
     D <- log(XKA) * log(XKW) - 8.6751 * log(XKW) + 2.2595 * log(XKA) + 24.568;
     T <- (45449 - 6308.5 * log(XKW)) / D - 273.15;
-    return(data.frame(Name=paste0(Opx$Name),T_calc=T));
+    return(data.frame(Name=row_name,T_calc=T));
 }
 sensors.t.opx_spl_mercier_1980_a.args <- function(){
     ars <- list();
-    ars$minerals <- c("Opx", "Spl");
+    ars$minerals <- c("Opx");
     ars$ranges <- c();
     return(ars);
@@ Строка 56: / Строка 64: @@
 </Code>
-{{tag> tpf Opx AP_igroup}}
+{{tag> tpf Opx AP_igroup fixed}}