ВОПРОС-ОТВЕТ (отвечаем на простые вопросы от новичков)

[capzap]

Валенок спасибо, попробую и по приходу. Просто правильнее в любом случае делить на период опроса, иначе мы не кВт часы получим, а что-то эфемерное...
Ведь приход может быть как раньше секунды, так и позже секунды и как тогда программировать время ?
Суть. кВт час = (при опросе раз в секунду) мощность(в кВт)/3600
Хотя наверное 3600 можно превратить в переменную, зависящую от времени опроса, только формула будет посложнее.

в оскат библиотеке есть нечто подобное только там связано с кубами в час, Вы бы изучили её, ведь почти вё что здесь было показано в примерах там имеется

[melky]

Имеете ввиду FLOW_METER ?

[capzap]

это ПОУ вроде наоборот, из производительности получает суммирующее значение

[petera]

Валенок спасибо, попробую и по приходу. Просто правильнее в любом случае делить на период опроса, иначе мы не кВт часы получим, а что-то эфемерное...
Ведь приход может быть как раньше секунды, так и позже секунды и как тогда программировать время ?
Суть. кВт час = (при опросе раз в секунду) мощность(в кВт)/3600
Хотя наверное 3600 можно превратить в переменную, зависящую от времени опроса, только формула будет посложнее.

Сама суть ошибочная.
"(при опросе раз в секунду) мощность(в кВт)/3600" - так Вы мгновенную мощность получите, а не количество потребляемой энергии.
Ведь само определение
«кВт⋅ч» (мощность, умноженная на время). Написание «кВт/ч» (киловатт в час), часто употребляемое во многих СМИ и даже иногда в официальных документах, неправильно. Такое обозначение соответствует изменению мощности в единицу времени (что обычно никого не интересует), но никак не количеству энергии.
Ежели все таки хотите использовать ежесекундные значения мощности, то код программы, вызываемой раз в секунду должен быть не такой как у Вас
kwt:=kwt+(IN/3600000);
а такой
summa:=summa+IN;
kwt:=summa/3600000;

[melky]

petera вы написали две одинаковых формулы, только по разному считающих.
если сделать по приходу, то вместо 3600 необходимо ввести и расчет периода. данные будут еще точнее и потом делить на 1000, так как прибор дает в Вт, а нам надо в кВт.
типа *1/период расчитанный относительно 1 часа

[Валенок]

Ведь приход может быть как раньше секунды, так и позже секунды и как тогда программировать время ?

Между приходами - неизвестность. Вычислять что либо при неизвестности - рукоблудие. Реальность - приход данных.

если сделать по приходу, то вместо 3600 необходимо ввести и расчет периода. данные будут еще точнее и потом делить на 1000, так как прибор дает в Вт, а нам надо в кВт.

Так расчет времени я Вам и предложил.
S Ai * dt, где dt = time() - t
Кстати, странно, что никто не предложил трапеции для максимально достижимой точности в данном железе.

if pre <> ai then
   интеграл := интеграл + (pre + ai) / 2 * time_to_real(time()-t) / 1000;
   pre := ai;
   t := time();
end_if

[Валенок]

в оскат библиотеке есть нечто подобное

)))) в оскате видимо есть всё. Но иногда написать - быстрее, чем прочитать список того что есть.

[melky]

Замерил сегодня показания счетчика и ПЛК при использовании таймера опроса раз в 1 с в программе. За 2 часа набегает разница в 0,08 сотых кВт часа.
За сутки набежит примерно 1 кВт час, за месяц соответственно 30. Многовато.
Буду пробовать следующие варианты.

[Валенок]

разница в 0,08 сотых кВт часа.

Погрешность лучше описывать в %.
"За сутки набежит примерно 1 кВт час" - это 0 на Красноярской ГЭС
И начните хотя бы с погрешности самого МЭ.

[melky]

Валенок погрешность МЭ +- 0,5% вроде
Соврал, по активной мощности +- 1 %

PROGRAM Kwt_hours
VAR
	kwt_summ: REAL;
	kwt: REAL;
	prihod: BOOL;
	tm: TON;
END_VAR
TM(in:=NOT tm.q, pt:=t#1.5S);
prihod:=kwt <> activeP OR tm.Q;
kwt:=activeP;
IF prihod THEN
kwt_summ:=kwt_summ+kwt/(3600/(TIME_TO_REAL(tm.et)/1000))/1000;
tm.IN:=FALSE;
END_IF

Решил использовать ET таймера, а не time(), которое дает время от начала запуска. Единственное, может не правильный сброс таймера ???
Кстати в примерах t: ton и тут же time_to_real(time()-t) - что же тут t ?