Различия

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

--- sensors:t:cpx_spl_mercier_1980_a [2017/01/17 13:44]
127.0.0.1 внешнее изменение
+++ sensors:t:cpx_spl_mercier_1980_a [2018/11/12 15:07] (текущий)
@@ Строка 1: / Строка 1: @@
 ====== Cpx-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.cpx_spl_mercier_1980_a <- function(Cpx, Spl, ...){
+sensors.t.cpx_spl_mercier_1980_a <- function(Cpx, usePFU = FALSE, ...){
-    Cpx <- tpf.recalc_minaral("CPX",Cpx);
+    row_name = Cpx$Name;
+    if(!usePFU) {
+        Cpx <- tpf.recalc_minaral("CPX",Cpx);
+    }
     A <- (Cpx$Al_c4_pfu + Cpx$Al_c6_pfu - Cpx$Na_pfu) / 2;
@@ Строка 41: / Строка 48: @@
     D <- log(XKA) * log(XKW) - 11.2724 * log(XKW) + 2.2595 * log(XKA) + 32.371;
     T <- (61152 - 7537.5 * log(XKW)) / D - 273.15;
-    return(data.frame(Name=paste0(Cpx$Name),T_calc=T));
+    return(data.frame(Name=row_name,T_calc=T));
 }
 sensors.t.cpx_spl_mercier_1980_a.args <- function(){
     ars <- list();
-    ars$minerals <- c("Cpx", "Spl");
+    ars$minerals <- c("Cpx");
     ars$ranges <- c();
     return(ars);
@@ Строка 52: / Строка 60: @@
 #sensors.t.cpx_spl_mercier_1980_a.test <- function(){
-#
+#    sensors.t.cpx_spl_mercier_1980_a(Cpx=data.frame("SiO2_wtp"=c(72)), Spl=data.frame());
 #}
 </Code>
-{{tag> tpf Cpx }}
+{{tag> tpf Cpx AP_igroup fixed}}