Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
sensors:t:opx_cpx_bertrand_mercier [2015/10/06 13:31] admin |
sensors:t:opx_cpx_bertrand_mercier [2018/11/12 15:07] (текущий) |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
- | ====== Opx-Cpx thermometer Bertrand P., Mercier J.-C.C., 1985 ====== | + | ====== 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 === | === 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 | | | ^ Renew sensors | | | ||
- | ^[[:ppy:mod_sensors#t_opx_cpx_bertrand_mercier|Рассчитать]] ^ ^ | ||
+ | <use:sensors.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> | ||
=== Code === | === Code === | ||
<Code linenums lang-r> | <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> | </Code> | ||
+ | |||
+ | {{tag> AP_igroup fixed}} |