Различия

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

--- sensors:t:opx_cpx_bertrand_mercier [2016/05/13 14:15]
admin
+++ sensors:t:opx_cpx_bertrand_mercier [2018/11/12 15:07] (текущий)
@@ Строка 1: / Строка 1: @@
 ====== Opx-Cpx: Bertrand, Mercier, 1985 ======
-The mutual solubility of coexisting ortho- and clinopyroxene: toward an absolute geothermometer for the natural system?
+This geothermometer is directly applicable to the natural system as illustrated by the remarkable agreement between the experimental conditions and the calculated temperatures for reequilibration experiments on natural systems.
 === Details ===
-^ Source | Bertrand P., Mercier J.-C.C. The mutual solubility of coexisting ortho- and clinopyroxene: toward an absolute geothermometer for the natural system? Earth Planet. Sci. Lett.,V.76,N.1/2,p.109-122,1985 |
+^ Source | <ref:bertrand1985> |
-^ Link |  |
+^ Callibration | 36 points from different sources |
-^ Calibration |  |
+^ Accuracy | 2% |
-^ Accuracy |  |
+^ Ranges | 810-1500°C and 0.0-10.0 GPa |
-^ Ranges | 900-1200 °C |
 ^ Renew sensors |  |
-^[[:ppy:mod_sensors#t_opx_cpx_bertrand_mercier|Рассчитать]] ^ ^
-<use:sensor.t.opx_cpx_bertrand_mercier>
+<use:sensors.t.opx_cpx_bertrand_mercier>
-<test:sensor.t.opx_cpx_bertrand_mercier>
+<test:sensors.t.opx_cpx_bertrand_mercier>
 <WRAP center round todo 60%>
   * <del>заголовок</del>
-  * краткое описание
+  * <del>краткое описание</del>
-  * статья
+  * <del>статья</del>
-  * ссылка
+  * <del>ссылка</del>
-  * карточка
+  * <del>карточка</del>
   * подробное описание
-  * код
+  * <del>код</del>
   * тест
 </WRAP>
@@ Строка 29: / Строка 27: @@
 <Code linenums lang-r>
-P = depend['P']
+source("utilities_tpf.r");
-T = None
-c = recalc('Opx',assoc['Opx'])
+sensors.t.opx_cpx_bertrand_mercier <- function(Opx, Cpx, P, usePFU=FALSE, ...){
-X = c['Na']
-c = recalc('Opx',assoc['Opx'])
+    row_names <- paste0(Opx$Name,"-",Cpx$Name);
-Y = c['Ca']
-c = recalc('Cpx',assoc['Cpx'])
+    if(!usePFU) {
-Z = c['Na']
+        Opx <- tpf.recalc_minaral("OPX",Opx);
-c = recalc('Cpx',assoc['Cpx'])
+        Cpx <- tpf.recalc_minaral("CPX",Cpx);
-F = c['Ca']
+    }
-c = recalc('Cpx',assoc['Cpx'])
-K = (c['Fe2']+c['Fe3'])/(c['Fe2']+c['Fe3']+c['Mg'])
+    X = Opx$Na_pfu;
-A = 36273+399*P/10
+    Y = Opx$Ca_pfu;
-C = 1-Y/(1-X)
+    Z = Cpx$Na_pfu;
-B = F/(1-Z)+(-0.77+0.001*T)*K
+    F = Cpx$Ca_pfu;
-L = log((1-B)/C)
-ZERO = A/(19.31-8.314*L-12.15*B**2)-T
+    K = Cpx$Fe_pfu /(Cpx$Fe_pfu + Cpx$Mg_pfu);
-T = T-273
+    A = 36273+399*P/10;
+    C = 1-Y/(1-X);
+    B = F/(1-Z)+(-0.77+0.001*T)*K;
+    L = log((1-B)/C);
+    T = A/(19.31-8.314*L-12.15*B**2);
+    T = T-273;
+    return(data.frame(Name=row_names,P=P, T_calc=T));
+}
+sensors.t.opx_cpx_bertrand_mercier.args <- function(){
+    ars <- list();
+    ars$minerals <- c("Opx", "Cpx");
+    ars$ranges <- c("P");
+    return(ars);
+}
+#sensors.t.opx_cpx_bertrand_mercier.test <- function(){
+#
+#}
 </Code>
+{{tag> AP_igroup fixed}}