Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:t:opx_cpx_brey_kohler [2015/10/06 14:33] 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 + ((23664 + | Tcalc <- -273.15 + ((23664 + | ||
| Строка 27: | Строка 41: | ||
| 11.59*Opx$Fe_pfu/(Opx$Fe_pfu+Opx$Mg_pfu) )); | 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)); |
| } | } | ||
| Строка 41: | Строка 55: | ||
| } | } | ||
| </Code> | </Code> | ||
| + | |||
| + | {{tag> AP_igroup fixed}} | ||