Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:t:bt_opx_sengupta_1990 [2020/02/19 12:18] f0ma |
sensors:t:bt_opx_sengupta_1990 [2020/02/19 13:45] (текущий) f0ma |
||
|---|---|---|---|
| Строка 32: | Строка 32: | ||
| sensors.t.bt_opx_sengupta_1990 <- function(Bt, Opx, P, ...){ | sensors.t.bt_opx_sengupta_1990 <- function(Bt, Opx, P, ...){ | ||
| - | Name <- paste0(Bt$Name,"-", Opx$Name); | ||
| Opx <- tpf.recalc_minaral("OPX",Opx); | Opx <- tpf.recalc_minaral("OPX",Opx); | ||
| Bt <- tpf.recalc_minaral("BT",Bt); | Bt <- tpf.recalc_minaral("BT",Bt); | ||
| Строка 44: | Строка 43: | ||
| K <- KO / KB; | K <- KO / KB; | ||
| T1 <- (4130 + 603 * (XM - XF) - 4423 * XT - 3595 * XA + 0.017 * P * 1000) / (1.9872 * log(K) + 3.27) - 273; | T1 <- (4130 + 603 * (XM - XF) - 4423 * XT - 3595 * XA + 0.017 * P * 1000) / (1.9872 * log(K) + 3.27) - 273; | ||
| - | #T2 <- (4130 - 4423 * XT - 3595 * XA + 0.017 * P * 1000) / (1.9872 * log(K) + 3.27) - 273; | + | T2 <- (4130 - 4423 * XT - 3595 * XA + 0.017 * P * 1000) / (1.9872 * log(K) + 3.27) - 273; |
| #if (T2>899) { | #if (T2>899) { | ||
| #T <- T2; | #T <- T2; | ||
| Строка 51: | Строка 50: | ||
| #T <- T1; | #T <- T1; | ||
| #} | #} | ||
| - | return(data.frame(Name=Name,P=P,T_calc=T1)); | + | return(data.frame(Name=paste0(Bt$Name,"-", Opx$Name),P=P,T_calc=T1)); |
| } | } | ||