Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
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> ====== | ====== Cpx-Opx: Kretz, 1982 <B> ====== | ||
+ | |||
+ | Based on temperature dependence of the Mg-Fe distribution. | ||
=== Details === | === Details === | ||
Строка 7: | Строка 9: | ||
</WRAP> | </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> | <use:sensors.t.cpx_opx_kretz_1982_b> | ||
Строка 18: | Строка 20: | ||
<WRAP center round todo 60%> | <WRAP center round todo 60%> | ||
* <del>заголовок</del> | * <del>заголовок</del> | ||
- | * краткое описание | + | * <del>краткое описание</del> |
- | * статья | + | * <del>статья</del> |
- | * ссылка | + | * <del>ссылка</del> |
- | * карточка | + | * <del>карточка</del> |
* подробное описание | * подробное описание | ||
* <del>код</del> | * <del>код</del> | ||
Строка 31: | Строка 33: | ||
source("utilities_tpf.r"); | 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); | X <- Cpx$Fe_p2_pfu / (Cpx$Fe_p2_pfu + Cpx$Mg_pfu); | ||
Y <- Opx$Fe_p2_pfu / (Opx$Fe_p2_pfu + Opx$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; | 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.test <- function(){ | ||
- | # | + | # sensors.t.cpx_opx_kretz_1982_b(data.frame(Name=c('Test'), FeO_wtp=c(10), MgO_wtp=c(10))); |
#} | #} | ||
</Code> | </Code> | ||
- | {{tag> tpf Cpx Opx AP_igroup}} | + | {{tag> tpf Cpx Opx AP_igroup fixed}} |