Различия

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

--- sensors:t:cpx_opx_kretz_1982_b [2017/05/18 11:15]
admin
+++ sensors:t:cpx_opx_kretz_1982_b [2018/11/12 15:08] (текущий)
@@ Строка 1: / Строка 1: @@
 ====== Cpx-Opx: Kretz, 1982 <B> ======
+Based on temperature dependence of the Mg-Fe distribution.
 === Details ===
@@ Строка 7: / Строка 9: @@
 </WRAP>
-^ Article |  |
+^ Article | <ref:kretz1982> |
-^ Collibration |  |
+^ Callibration | Experimetal and data from Skaergaard and Bushveld |
-^ Precision |  |
+^ Precision | ±60°C |
-^ Ranges |  |
+^ Ranges | 750-1400 °C |
-^ Renew sensors |  |
+^ See also | [[sensors:t:cpx_opx_kretz_1982_a|Kretz, 1982 <A>]] |
 <use:sensors.t.cpx_opx_kretz_1982_b>
@@ Строка 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_opx_kretz_1982_b <- function(Cpx, Opx, ...){
+sensors.t.cpx_opx_kretz_1982_b <- function(Cpx, Opx, usePFU = FALSE, ...){
-    Opx <- tpf.recalc_minaral("OPX",Opx);
-    Cpx <- tpf.recalc_minaral("CPX",Cpx);
+    row_names = paste0(Cpx$Name,"-",Opx$Name);
+    if(!usePFU) {
+        Cpx <- tpf.recalc_minaral("CPX",Cpx);
+        Opx <- tpf.recalc_minaral("OPX",Opx);
+    }
     X <- Cpx$Fe_p2_pfu / (Cpx$Fe_p2_pfu + Cpx$Mg_pfu);
     Y <- Opx$Fe_p2_pfu / (Opx$Fe_p2_pfu + Opx$Mg_pfu);
     T <- 1130 / (log(Y / (1 - Y) * (1 - X) / X) + 0.505) - 273.15;
-    warning(" ACCURACY: +/-60 C");
-    return(data.frame(Name=paste0(Cpx$Name,"-", Opx$Name),T_calc=T));
+    return(data.frame(Name=row_names,T_calc=c(T)));
 }
@@ Строка 50: / Строка 58: @@
 #sensors.t.cpx_opx_kretz_1982_b.test <- function(){
-#
+#    sensors.t.cpx_opx_kretz_1982_b(data.frame(Name=c('Test'), FeO_wtp=c(10), MgO_wtp=c(10)));
 #}
 </Code>
-{{tag> tpf Cpx Opx AP_igroup}}
+{{tag> tpf Cpx Opx AP_igroup fixed}}