ASo, спасибо. Нашел у себя на компе эту библиотеку. По описанию то что надо.
Код:
IF rh > 0.0 THEN
(* old code was rewritten for better performance
SDD := 6.1078*EXPT(10,(a*T)/(b+T));
DD := RH/100 * SDD;
V := LOG(DD/6.1078);
dew_temp := b*V/(a-v);
*)
V := LOG(RH * 0.01 * EXP10((a*T) / (b+T)));
DEW_TEMP := b*V / (a-V);
ELSE
DEW_TEMP:= phys.T0;
END_IF;
много всего закоментировано рабочий код 6 строк.
Только тут или есть ошибки или я не знаю где взять функцию EXP10 из строки
V := LOG(RH * 0.01 * EXP10((a*T) / (b+T)));
а в этой строке
DEW_TEMP:= phys.T0;
не описана переменная phys
Попробовал поправить, но все равно работает не правильно.
Может у меня библиотека не та? Называется oscat_building_100.lib