Различия

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

--- sensors:t:opx_cpx_putirka [2015/10/06 15:01]
admin создано
+++ sensors:t:opx_cpx_putirka [2018/11/12 15:07] (текущий)
@@ Строка 1: / Строка 1: @@
-====== Opx-Cpx: Putirka, 2009 RiMG ======
+====== Opx-Cpx: Putirka, 2009 ======
+Global regression, based on the partitioning of enstatite + ferrosilite (Fm2Si2O6 = EnFs; FmO = FeO + MgO + MnO) between clinopyroxene and orthopyroxene. Cpx with Mg#>0.75.
 === Details ===
-^ Article | |
+^ Reference | <ref:putirka2008> |
-^ Reference | |
+^ Collibration | 483 points from different sources |
-^ Collibration |  |
+^ Precision | ± 60 °C  |
-^ Presition |  |
+^ Ranges | P < 70 kbar,  700 °C < T < 2000 °C |
-^ Ranges |  |
+^ Renew sensors | [[:sensors:t:opx_cpx_brey_kohler|Brey and Köhler (1990) model T(BKN)]] |
-^ Renew sensors |  |
+<use:sensors.t.opx_cpx_putirka>
-^[[:ppy:mod_sensors#t_opx_cpx_brey_kohler|Calculate]] ^ ^
+<test:sensors.t.opx_cpx_putirka>
+<WRAP center round todo 60%>
+Для улучшения этой статьи следует:
+  * Добавить подробное описание
+  * Добавить тест
+</WRAP>
 === Source ===
@@ Строка 16: / Строка 25: @@
 source('recalc_px_putirka.r');
 source('interpmin_opx_thompson.r');
-source('interpmin_cpx.r');
+source('interpmin_cpx_putirka.r');
 sensors.t.opx_cpx_putirka <- function(Opx, Cpx, P=10, usePFU = FALSE, ...){
-if (!usePFU) Opx <- recalc.px_putirka(Opx);
+stopifnot(usePFU == F);
-if (!usePFU) Cpx <- recalc.px_putirka(Cpx);
+CpxCmp <-interpmin.cpx_putirka(Cpx);
+Cpx <- recalc.px_putirka(Cpx);
-interpmin.opx_thompson
+OpxCmp <- interpmin.opx_thompson(Opx);
+Opx <- recalc.px_putirka(Opx);
-Tcalc <- 10^4/(11.2-1.96*log(CJ17/EO17)-3.3*BX17-25.8*CH17+33.2*EA17-23.6*ED17-2.08*EP17-8.33*EQ17-0.05*P);
+Tcalc <- 10^4/(11.2-1.96*log(CpxCmp$X_EnFs/OpxCmp$X_Fm2Si2O6)-3.3*Cpx$Ca_pfu-25.8*CpxCmp$X_CrCaTs+33.2*Opx$Mn_pfu-23.6*Opx$Na_pfu-2.08*OpxCmp$X_En-8.33*OpxCmp$X_Di-0.05*P);
 Eq_check <- (Cpx$Fe_pfu/Cpx$Mg_pfu)/(Opx$Fe_pfu/Opx$Mg_pfu);