Различия
Здесь показаны различия между двумя версиями данной страницы.
|
sensors:p:cal_dol_talantsev_1981_b [2018/11/12 15:08] 127.0.0.1 внешнее изменение |
sensors:p:cal_dol_talantsev_1981_b [2020/02/19 13:11] (текущий) f0ma |
||
|---|---|---|---|
| Строка 32: | Строка 32: | ||
| sensors.p.cal_dol_talantsev_1981_b <- function(Cal, Dol, ...){ | sensors.p.cal_dol_talantsev_1981_b <- function(Cal, Dol, ...){ | ||
| + | Name <- paste0(Cal$Name,"-", Dol$Name); | ||
| Dol <- tpf.recalc_minaral("DOL",Dol); | Dol <- tpf.recalc_minaral("DOL",Dol); | ||
| Cal <- tpf.recalc_minaral("CAL",Cal); | Cal <- tpf.recalc_minaral("CAL",Cal); | ||
| Строка 46: | Строка 47: | ||
| T <- TT - 273; | T <- TT - 273; | ||
| P <- exp((LL - 0.6 * log(TT) + 2.55) / 0.7 * 2.3026); | P <- exp((LL - 0.6 * log(TT) + 2.55) / 0.7 * 2.3026); | ||
| - | return(data.frame(Name=paste0(Dol$Name,"-", Cal$Name),P_calc=P)); | + | return(data.frame(Name=Name,P_calc=P)); |
| } | } | ||