Различия

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

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
Следующая версия
Предыдущая версия
sensors:pt:opx_cpx_putirka [2015/10/08 12:23]
admin
sensors:pt: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.+Global regression, based on the partitioning of enstatite + ferrosilite (Fm2Si2O6 = EnFs; FmO = FeO + MgO + MnO) between clinopyroxene and orthopyroxene. Cpx with Mg#>​0.75 ​for best accuracy.
  
 === Details === === Details ===
  
-^ Article | Keith D. Putirka Thermometers and Barometers for Volcanic Systems, Mineralogy & Geochemistry Vol. 69 pp. 61-120, 2008 | +^ Article | <ref:​putirka2008|
-^ Reference | {{:sources:​putirka2008.pdf}} ​|+
 ^ Collibration | 483 points from different sources | ^ Collibration | 483 points from different sources |
-Presition ​| ± 60 °C,  ±3.2 kbar   |+Accuracy ​| ± 60 °C,  ±3.2 kbar   |
 ^ Ranges | P < 70 kbar,  700 °C < T < 2000 °C | ^ Ranges | P < 70 kbar,  700 °C < T < 2000 °C |
 +^ Used sensors | [[sensors:​p:​opx_cpx_putirka]] [[sensors:​t:​opx_cpx_putirka]] ​ |
 +^ Method | Simple interation. Start: P = 1 kbar, T = 700 °C. Count = 15  |
 ^ Renew sensors |  | ^ Renew sensors |  |
-^[[:ppy:mod_sensors#​pt_opx_cpx_putirka|Calculate]] ^ ^+ 
 +<use:sensors.pt.opx_cpx_putirka>​ 
 +<test:sensors.pt.opx_cpx_putirka>​ 
 + 
 +<WRAP center round todo 60%> 
 +Для улучшения этой статьи следует:​ 
 +  * Добавить подробное описание 
 +  * Добавить тест 
 +</​WRAP>​
  
  
Строка 23: Строка 32:
  
 stopifnot(usePFU == F); stopifnot(usePFU == F);
-P <- 2+P <- 1
-Temp <- 1000;+Temp <- 700;
  
 interations <- 1; interations <- 1;
  
-    P <- sensors.p.opx_cpx_putirka(Opx,​ Cpx, Temp = Temp); +repeat{ 
-    ​Temp <- sensors.t.opx_cpx_putirka(Opx,​ Cpx, P = P);+    P_DF <- sensors.p.opx_cpx_putirka(Opx,​ Cpx, Temp = Temp); 
 +    ​Temp_DF ​<- sensors.t.opx_cpx_putirka(Opx,​ Cpx, P = P); 
 +    P <- P_DF$P_calc_Opx_Cpx_Putirka;​ 
 +    Temp <- Temp_DF$T_calc_Opx_Cpx_Putirka;​ 
 +    ​
     interations <- interations + 1;     interations <- interations + 1;
 +    if (interations > 15) {break;}
 } }
  
  • sensors/pt/opx_cpx_putirka.1444306997.txt.gz
  • Последние изменения: 2018/11/12 15:08
  • (внешнее изменение)