Различия
Здесь показаны различия между двумя версиями данной страницы.
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)); |
} | } | ||