Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:t:opx_cpx_brey_kohler [2015/10/06 14:21] admin |
sensors:t:opx_cpx_brey_kohler [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 3: | Строка 3: | ||
| === Details === | === Details === | ||
| - | ^ Article | ожидает публикации | | + | ^ Article | <ref:bray1990> | |
| - | ^ Reference | | | + | ^ Callibration | | |
| - | ^ Collibration | | | + | ^ Precision | | |
| - | ^ Presition | | | + | |
| ^ Ranges | | | ^ Ranges | | | ||
| ^ Renew sensors | | | ^ Renew sensors | | | ||
| - | ^[[:ppy:mod_sensors#t_opx_cpx_brey_kohler|Calculate]] ^ ^ | ||
| + | <use:sensors.t.opx_cpx_brey_kohler> | ||
| + | <test:sensors.t.opx_cpx_brey_kohler> | ||
| + | |||
| + | <WRAP center round todo 60%> | ||
| + | * <del>заголовок</del> | ||
| + | * краткое описание | ||
| + | * <del>статья</del> | ||
| + | * <del>ссылка</del> | ||
| + | * карточка | ||
| + | * подробное описание | ||
| + | * <del>код</del> | ||
| + | * тест | ||
| + | </WRAP> | ||
| === Код метода === | === Код метода === | ||
| Строка 18: | Строка 29: | ||
| sensors.t.opx_cpx_brey_kohler <- function(Opx, Cpx, P=10, usePFU = FALSE, ...){ | sensors.t.opx_cpx_brey_kohler <- function(Opx, Cpx, P=10, usePFU = FALSE, ...){ | ||
| - | if (!usePFU) Opx <- recalc.px_putirka(Opx); | + | row_names = paste0(Opx$Name,'-',Cpx$Name); |
| - | if (!usePFU) Cpx <- recalc.px_putirka(Cpx); | + | |
| + | if (!usePFU) { | ||
| + | Opx <- recalc.px_putirka(Opx); | ||
| + | Cpx <- recalc.px_putirka(Cpx); | ||
| + | } | ||
| - | Tcalc <- -273.15 + (( | + | Tcalc <- -273.15 + ((23664 + |
| - | 23664 + ( | + | ( 24.9+126.3*Cpx$Fe_pfu/(Cpx$Fe_pfu+Cpx$Mg_pfu))*P ) / |
| - | 24.9+126.3*Cpx$Fe_pfu/(Cpx$Fe_pfu+Cpx$Mg_pfu))*P | + | ( 13.38 + ( log((1-Cpx$Ca_pfu/(1-Cpx$Na_pfu))/(1-Opx$Ca_pfu/(1-Opx$Na_pfu))) )^2 + |
| - | )/( | + | 11.59*Opx$Fe_pfu/(Opx$Fe_pfu+Opx$Mg_pfu) )); |
| - | 13.38 + ( log((1-Cpx$Ca_pfu/(1-Cpx$Na_pfu))/(1-Opx$Ca_pfu/(1-Opx$_Na_pfu))) )^2 + | + | |
| - | 11.59*Opx$Fe_pfu/(Opx$Fe_pfu+Opx$Mg_pfu) | + | |
| - | )); | + | |
| - | Ed_check <- (Cpx$Fe_pfu/Cpx$Mg_pfu)/(Opx$Fe_pfu/Opx$Mg_pfu); | + | Eq_check <- (Cpx$Fe_pfu/Cpx$Mg_pfu)/(Opx$Fe_pfu/Opx$Mg_pfu); |
| - | Ed_check <- Ed_check > 0.95 && Ed_check < 1.23; | + | Eq_check <- Eq_check > 0.95 && Eq_check < 1.23; |
| - | return (data.frame(Name=paste0(Opx$Name,'-',Cpx$Name),P_seq=P,T_calc_Opx_Cpx_Brey_Kohler=Tcalc)); | + | return (data.frame(Name=row_names,P_seq=P,T_calc=Tcalc,Eq_check=Eq_check)); |
| } | } | ||
| Строка 44: | Строка 55: | ||
| } | } | ||
| </Code> | </Code> | ||
| + | |||
| + | {{tag> AP_igroup fixed}} | ||