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

Цитата:

---

Сообщение от energvk

Так не умещается в dword это число

---

В секундах умещается. Естественно, не от сотворения мира, а с 0 часов 1 января 1970г.

Код:

---

FUNCTION toDT : DT
VAR_INPUT
        year: INT;
        month: INT;
        day: INT;
        hour: INT;
        minute: INT;
        second: INT;
END_VAR
VAR
        count: INT;
        SET_DATE: DWORD;
END_VAR
(*------------------------------------------------------------------------*)
(*Вычислить дату с учетом високосных лет*)
IF month > 2 THEN
    count := (month - 1) * 30;
    IF month > 7 THEN count := count + SHR(month - 3,1);
ELSE count := count + SHR(month - 4,1); END_IF;
    (* проверить на високосный год и добавить один день если год високосный *)
    IF SHL(year,14) = 0 THEN count := count + 1; END_IF;
ELSE
    count := (month - 1) * 31;
END_IF;
SET_DATE := (INT_TO_DWORD(count + day - 1)
              + SHR(INT_TO_DWORD(year) * 1461 - 2878169, 2)) * 86400;
(*------------------------------------------------------------------------*)
toDT := DWORD_TO_DT(SET_DATE
              + INT_TO_DWORD(SECOND) + INT_TO_DWORD(MINUTE) * 60
              + INT_TO_DWORD(HOUR) * 3600);

---

На входе отдельно год, месяц,...сек.
На выходе упакованные в формат DATE_AND_TIME
Или сразу в DWORD

Код:

---

FUNCTION UCT_TO_DWORD : DWORD
VAR_INPUT
        year: INT;
        month: INT;
        day: INT;
        hour: INT;
        minute: INT;
        second: INT;
END_VAR
VAR
        count: INT;
        SET_DATE: DWORD;
END_VAR
(*------------------------------------------------------------------------*)
(*Вычислить дату с учетом високосных лет*)
IF month > 2 THEN
    count := (month - 1) * 30;
    IF month > 7 THEN count := count + SHR(month - 3,1);
ELSE count := count + SHR(month - 4,1); END_IF;
    (* проверить на високосный год и добавить один день если год високосный *)
    IF SHL(year,14) = 0 THEN count := count + 1; END_IF;
ELSE
    count := (month - 1) * 31;
END_IF;
SET_DATE := (INT_TO_DWORD(count + day - 1)
              + SHR(INT_TO_DWORD(year) * 1461 - 2878169, 2)) * 86400;
(*------------------------------------------------------------------------*)
UCT_TO_DWORD := SET_DATE
              + INT_TO_DWORD(SECOND) + INT_TO_DWORD(MINUTE) * 60
              + INT_TO_DWORD(HOUR) * 3600;

---

Вложение 26247

ЗЫ.
Сегодня
Вложение 26246

Для полноты картины аналогичные функции для текущих даты и времени в ПЛК. Функции выше были для произвольных значений.

Код:

---

FUNCTION curDT : DT (* Текущие дата и время в формате POSIX как число секунд с 0 часов 1 января 1970г*)
VAR_INPUT
END_VAR
VAR
    CurTimeExInst: CurTimeEx;
    CurSystemTimeDate: SystemTimeDate;
    CurSysTime64: SysTime64;
    year: INT;
    second: INT;
    day: INT;
    hour: INT;
    minute: INT;
    month: INT;
    count: INT;
    SET_DATE: DWORD;
END_VAR
CurTimeExInst(TimeDate := CurSystemTimeDate, SystemTime := CurSysTime64);
    year :=CurSystemTimeDate.Year;
    month :=CurSystemTimeDate.Month;
    day :=CurSystemTimeDate.Day;
    hour :=CurSystemTimeDate.Hour;
    minute :=CurSystemTimeDate.Minute;
    second :=CurSystemTimeDate.Second;
(*------------------------------------------------------------------------*)
(*Вычислить дату с учетом високосных лет*)
IF month > 2 THEN
    count := (month - 1) * 30;
    IF month > 7 THEN count := count + SHR(month - 3,1);
ELSE count := count + SHR(month - 4,1); END_IF;
    (* проверить на високосный год и добавить один день если год високосный *)
    IF SHL(year,14) = 0 THEN count := count + 1; END_IF;
ELSE
    count := (month - 1) * 31;
END_IF;
SET_DATE := (INT_TO_DWORD(count + day - 1)
              + SHR(INT_TO_DWORD(year) * 1461 - 2878169, 2)) * 86400;
(*------------------------------------------------------------------------*)
curDT := DWORD_TO_DT(SET_DATE
              + INT_TO_DWORD(SECOND) + INT_TO_DWORD(MINUTE) * 60
              + INT_TO_DWORD(HOUR) * 3600);

---

Здесь никаких входных переменных нет, функция просто возвращает текущие дату и время в формате DT.
Или такая функция - возвращает текущие дату и время сразу в формате DWORD

Код:

---

FUNCTION curDT_DWORD : DWORD (* Текущие дата и время в формате POSIX как число секунд с 0 часов 1 января 1970г*)
VAR_INPUT
END_VAR
VAR
    CurTimeExInst: CurTimeEx;
    CurSystemTimeDate: SystemTimeDate;
    CurSysTime64: SysTime64;
    year: INT;
    second: INT;
    day: INT;
    hour: INT;
    minute: INT;
    month: INT;
    count: INT;
    SET_DATE: DWORD;
END_VAR
CurTimeExInst(TimeDate := CurSystemTimeDate, SystemTime := CurSysTime64);
    year :=CurSystemTimeDate.Year;
    month :=CurSystemTimeDate.Month;
    day :=CurSystemTimeDate.Day;
    hour :=CurSystemTimeDate.Hour;
    minute :=CurSystemTimeDate.Minute;
    second :=CurSystemTimeDate.Second;
(*------------------------------------------------------------------------*)
(*Вычислить дату с учетом високосных лет*)
IF month > 2 THEN
    count := (month - 1) * 30;
    IF month > 7 THEN count := count + SHR(month - 3,1);
ELSE count := count + SHR(month - 4,1); END_IF;
    (* проверить на високосный год и добавить один день если год високосный *)
    IF SHL(year,14) = 0 THEN count := count + 1; END_IF;
ELSE
    count := (month - 1) * 31;
END_IF;
SET_DATE := (INT_TO_DWORD(count + day - 1)
              + SHR(INT_TO_DWORD(year) * 1461 - 2878169, 2)) * 86400;
(*------------------------------------------------------------------------*)
curDT_DWORD := SET_DATE
              + INT_TO_DWORD(SECOND) + INT_TO_DWORD(MINUTE) * 60
              + INT_TO_DWORD(HOUR) * 3600;

---

Используется библиотека SysLibTime.lib

Всем привет. Простой вопрос простого новичка. Как можно управлять ПЛК 100 с ПК окромя codesys. Чтоб у "оператора-пользователя" не было возможности поломать что либо в коде.

Поставь на ПК Скаду

А теперь более подробно (я параллельно гуглю конечно, но что подсказывает то так быстрей)

Господа подскажите пожалуйста как записать такое выражение. начало 1 процесса : проверять значение давления в течении 15 минут если все хорошо то перейти на процесс 2 , а если в какой то момент значение меньше допусти 25 то вкл авария.

Цитата:

---

Сообщение от Grampus

Господа подскажите пожалуйста как записать такое выражение. начало 1 процесса : проверять значение давления в течении 15 минут если все хорошо то перейти на процесс 2 , а если в какой то момент значение меньше допусти 25 то вкл авария.

---

А что это http://www.owen.ru/forum/showthread....l=1#post219513 не помогло?

Наконец то добрался до компьютера... Petera, я видел Вашу тему http://www.owen.ru/forum/showthread.php?t=24999. Супер решение, которое легко реализуемо на ПЛК. И которое можно преобразовать на СКАДА или СПК, Вы так и на СП чтение организовали. Наткнувшись на эту тему, я то и задумал перейти наконец-то от 12 используемых регистров (чтение/запись) в 2. Но я также применяю и ПР200, где хотелось бы сделать что-то похожее. Но, что пугает :) это обратное преобразование в ПР полученного значения. Поэтому поискав по форуму наткнулся на макрос rovki http://www.owen.ru/forum/showthread....l=1#post205123. Показалось классным решением до 2099 года. Решил посмотреть как это будет выглядеть в ПЛК на ST, из чего начали появляться мои посты :rolleyes:. По сути хотелось бы с ПР/ПЛК отправлять на верхний уровень одну переменную в dword(ну или на крайний случай float, так как у ПР200 сетевые целочисленные переменные 16-битные, а на стороне ПР разбивать 32 бита на 2 по 16 и склеивать потом не очень хотелось заморачиваться), и, соответственно на ПР/ПЛК принимать одну переменную для записи. В Скада съэкономиться 10 тэгов сразу :). Как то так, в общем. Не знаю, получилось ли объяснить свою задумку или нет, но я честно старался :rolleyes:

Цитата:

---

Сообщение от energvk

Наконец то добрался до компьютера... Petera, я видел Вашу тему http://www.owen.ru/forum/showthread.php?t=24999. Супер решение, которое легко реализуемо на ПЛК. И которое можно преобразовать на СКАДА или СПК, Вы так и на СП чтение организовали. Наткнувшись на эту тему, я то и задумал перейти наконец-то от 12 используемых регистров (чтение/запись) в 2. Но я также применяю и ПР200, где хотелось бы сделать что-то похожее. Но, что пугает :) это обратное преобразование в ПР полученного значения. Поэтому поискав по форуму наткнулся на макрос rovki http://www.owen.ru/forum/showthread....l=1#post205123. Показалось классным решением до 2099 года. Решил посмотреть как это будет выглядеть в ПЛК на ST, из чего начали появляться мои посты :rolleyes:. По сути хотелось бы с ПР/ПЛК отправлять на верхний уровень одну переменную в dword(ну или на крайний случай float, так как у ПР200 сетевые целочисленные переменные 16-битные, а на стороне ПР разбивать 32 бита на 2 по 16 и склеивать потом не очень хотелось заморачиваться), и, соответственно на ПР/ПЛК принимать одну переменную для записи. В Скада съэкономиться 10 тэгов сразу :). Как то так, в общем. Не знаю, получилось ли объяснить свою задумку или нет, но я честно старался :rolleyes:

---

Я думаю, что не надо изобретать велосипед в виде собственного представления упакованного времени, а взять то, что уже придумано до нас и широко используется. А именно создать для ПР макрос, аналогичный тем, что выше. Т.е. и в ПР использовать время в формате POSIX. Будет преемственность и со скадой и с ПЛК.
Думаю, что DWORD раскидать по соседним сетевым переменным можно прямо на выходе макроса.
Вложение 26263

Дополнительные преимущества формата DT для ПР в том, что с упакованными дата_время переменными можно выполнять арифметические операции +/-, т.е. легко определять/задавать интервалы для событий реального времени, например для вкл/выкл по расписанию.

Цитата:

---

Сообщение от petera

Я думаю, что не надо изобретать велосипед в виде собственного представления упакованного времени, а взять то, что уже придумано до нас и широко используется. А именно создать для ПР макрос, аналогичный тем, что выше. Т.е. и в ПР использовать время в формате POSIX. Будет преемственность и со скадой и с ПЛК.
Думаю, что DWORD раскидать по соседним сетевым переменным можно прямо на выходе макроса.
Вложение 26263

Дополнительные преимущества формата DT для ПР в том, что с упакованными дата_время переменными можно выполнять арифметические операции +/-, т.е. легко определять/задавать интервалы для событий реального времени, например для вкл/выкл по расписанию.

---

Дословный перевод FUNCTION UCT_TO_DWORD для ПР
Вложение 26269
Как проверить? Онлайн конвертер http://www.cy-pr.com/tools/time/
Вложение 26270

ЗЫ.
Сам макрос здесь http://www.owen.ru/forum/showthread....l=1#post219896

petera, огромное спасибо, но я уже сам макрос написал (ну как написал, переложил вашу функцию под Лоджик :rolleyes::rolleyes:). Практически закончил макрос обратного преобразования (дни недели осталось). Как доделаю выложу на форум.

Цитата:

---

Сообщение от energvk

petera, огромное спасибо, но я уже сам макрос написал (ну как написал, переложил вашу функцию под Лоджик :rolleyes::rolleyes:). Практически закончил макрос обратного преобразования (дни недели осталось). Как доделаю выложу на форум.

---

Дни недели здесь не самое сложное
Вложение 26289

Пн - 1, .. Вс - 7

ЗЫ.

Цитата:

---

ну как написал, переложил вашу функцию под Лоджик

---

Обязательно проверьте свой макрос для третьего месяца.
Из-за того, что в лоджике нет целых переменных со знаком, то для этого фрагмента
(*Вычислить дату с учетом високосных лет*)
IF month > 2 THEN
count := (month - 1) * 30;
IF month > 7 THEN count := count + SHR(month - 3,1);
ELSE count := count + SHR(month - 4,1); END_IF;
..............
Для month=3
При выполнении операции SHR(month - 4,1) в кодесис получим "-1", а в лоджике получим 2147483647 т.к (4294967295/2)=2147483647
Соответственно для месяца=3
в кодесис count + SHR(month - 4,1)=59
а в лоджике получится 2147483707
Пришлось в лоджике добавить проверку месяца на 3 и вычитать явную 1 из count
Вложение 26290

Цитата:

---

Сообщение от petera

Дни недели здесь не самое сложное
Вложение 26289

Пн - 1, .. Вс - 7

ЗЫ.

Обязательно проверьте свой макрос для третьего месяца.
Из-за того, что в лоджике нет переменных со знаком, то для этого фрагмента
(*Вычислить дату с учетом високосных лет*)
IF month > 2 THEN
count := (month - 1) * 30;
IF month > 7 THEN count := count + SHR(month - 3,1);
ELSE count := count + SHR(month - 4,1); END_IF;
..............
Для month=3
При выполнении операции SHR(month - 4,1) в кодесис получим "-1", а в лоджике получим 2147483647 т.к (4294967295/2)=2147483647
Соответственно для месяца=3
в кодесис count + SHR(month - 4,1)=59
а в лоджике получится 2147483707
Пришлось в лоджике добавить проверку месяца на 3 и вычитать явную 1 из count
Вложение 26290

---

Ой, конечно же я это не учёт и в голову бы не пришло. Спасибо за поправку)

Всем привет!
Не могу сохранить значение суммарного расхода. При перезагрузке значение сбрасывается в 0.
Проект на ПЛК160-АМ + СП307Р по ethernet через свитч. В проекте считается суммарный расход через расходомер. Ни как не получается сохранить это значение, что бы при перезагрузке это суммарное значение сохранялось и дальнейшее суммирование продолжалось с последнего значения...
Сделал в PLC_PRG глобальную переменную RETAIN
Вложение 26292
в которую из экземпляра фб пишется суммарный расход
Вложение 26293
присвоил адрес %QD7.15.0. В конфигурации ПЛК присваиваю эту переменную Float переменной %QD7.15.0 для отправки в панель, но вылетает ошибка "...несколько объявлений с одинаковым идентификатором".
Вложение 26294
Пробовал через UDP, та же ошибка... В принципе не пойму логики сохранения значения переменной. Так же пытался сохранять значение переменной в файл через SysLibFile, но тоже не получилось ...
Пишу логику на CFC. ST на перспективу, сейчас хочу понять основы на понятном мне языке.
Может кто-нибудь на пальцах расскажет как можно решить эту задачу. Читал руководство по codesys, но так и не разобрался.
Понятно что я делаю все не так, но так же читал про аккумулятор, и проблему записи RETAIN,но все же хочу решить задачу программно.
Может нужно в фб делать переменную в которую пишется суммарный расход in-out, у меня просто out. И в фб локальные переменные...
Вложение 26295
Вобщем помогите плиз кто-нибудь.

Зачем вы объявляте переменную по десять раз. Пропишите ее в конфигураторе и все. Панель у вас мастер?

Цитата:

---

Сообщение от 770001

Всем привет!
Не могу сохранить значение суммарного расхода. При перезагрузке значение сбрасывается в 0.
Проект на ПЛК160-АМ + СП307Р по ethernet через свитч. В проекте считается суммарный расход через расходомер. Ни как не получается сохранить это значение, что бы при перезагрузке это суммарное значение сохранялось и дальнейшее суммирование продолжалось с последнего значения...
Сделал в PLC_PRG глобальную переменную RETAIN
Вложение 26292
в которую из экземпляра фб пишется суммарный расход
Вложение 26293
присвоил адрес %QD7.15.0. В конфигурации ПЛК присваиваю эту переменную Float переменной %QD7.15.0 для отправки в панель, но вылетает ошибка "...несколько объявлений с одинаковым идентификатором".
Вложение 26294
Пробовал через UDP, та же ошибка... В принципе не пойму логики сохранения значения переменной. Так же пытался сохранять значение переменной в файл через SysLibFile, но тоже не получилось ...
Пишу логику на CFC. ST на перспективу, сейчас хочу понять основы на понятном мне языке.
Может кто-нибудь на пальцах расскажет как можно решить эту задачу. Читал руководство по codesys, но так и не разобрался.
Понятно что я делаю все не так, но так же читал про аккумулятор, и проблему записи RETAIN,но все же хочу решить задачу программно.
Может нужно в фб делать переменную в которую пишется суммарный расход in-out, у меня просто out. И в фб локальные переменные...
Вложение 26295
Вобщем помогите плиз кто-нибудь.

---

Надеюсь, что панель у Вас мастер? В этом случае в ПЛК ВСЕ переменные в модуле Slave являются
а) - глобальными
б) - retain по умолчанию.
По этому:
1. Выкинуть из глобальных переменных все упоминания о "CO1rashod", оставить ее имя только в конфигурации слейва.
2. "в фб делать переменную в которую пишется суммарный расход in-out"

Тоже вопрос из той серии назрел. Petera, скажите пожалуйста в чем проблема. У меня на установке стоит сп270(мастер) и плк 160(slave). Проблема в том что при отключении питания все параметры, заданные на панели скидываются в ноль. Грешу на аккумулятор, но как подобного избежать, надеясь на худшее и задействовать память сп270. Такая же проблема при глобальном измении кода в ПЛК, приходится перезабивать все параметры.

Начитавшись про батарейку плк160 я сразу написал блок записи для переменных retain в файл (пишу в память плк при изменении, отключении питания и периодически раз в сутки). При включении плк уставки считываются из памяти. Если интересно вечером вам сброшу там ничего сложного.

Цитата:

---

Сообщение от Andrew_Stranger

Тоже вопрос из той серии назрел. Petera, скажите пожалуйста в чем проблема. У меня на установке стоит сп270(мастер) и плк 160(slave). Проблема в том что при отключении питания все параметры, заданные на панели скидываются в ноль. Грешу на аккумулятор, но как подобного избежать, надеясь на худшее и задействовать память сп270. Такая же проблема при глобальном измении кода в ПЛК, приходится перезабивать все параметры.

---

Смотрим в Моих темах http://www.owen.ru/forum/showthread.php?t=21387 про Старт СП270 и ПЛК с ретайн при включении питания.

Цитата:

---

Сообщение от energvk

petera, огромное спасибо, но я уже сам макрос написал (ну как написал, переложил вашу функцию под Лоджик :rolleyes::rolleyes:). Практически закончил макрос обратного преобразования (дни недели осталось). Как доделаю выложу на форум.

---

Кто не успел, тот опоздал. http://www.owen.ru/forum/showthread....l=1#post219991

Нда, спасибо, видел уже, вся моя работа на смарку :(.

Petera спасибо за помощь.

Цитата:

---

Сообщение от petera

Надеюсь, что панель у Вас мастер? В этом случае в ПЛК ВСЕ переменные в модуле Slave являются
а) - глобальными
б) - retain по умолчанию.
По этому:
1. Выкинуть из глобальных переменных все упоминания о "CO1rashod", оставить ее имя только в конфигурации слейва.
2. "в фб делать переменную в которую пишется суммарный расход in-out"

---

Да, панель мастер.
Все, разобрался. У меня суммарный расход считался в фб1, фб1 вызывается в фб2, in-out нужно было делать для фб1 и фб2. А переменную, в которую пишется суммарный расход только в PLC_PRG.
Всем спасибо за пояснения!:)

Добрый день господа! Подскажите пожалуйста, как записать контроль за параметром в течении определенного времени. например при испытаниях изделия в течении 15 минут контроль давления. если за время давление не упало то гуд. если упало то авария.

Цитата:

---

Сообщение от petera

А что это http://www.owen.ru/forum/showthread....l=1#post219513 не помогло?

---

Помогло, а как в самом процессе записать сnрочку. через WHILE или IF??? щас попробую разобраться

Цитата:

---

Сообщение от Grampus

Помогло, а как в самом процессе записать сnрочку. через WHILE или IF??? щас попробую разобраться

---

WHILE на 15 минут?
Не получится, в ПЛК так нельзя.

Цитата:

---

Добрый день господа! Подскажите пожалуйста, как записать контроль за параметром в течении определенного времени. например при испытаниях изделия в течении 15 минут контроль давления. если за время давление не упало то гуд. если упало то авария.

---

Можно, например так

Код:

---

PROGRAM PLC_PRG
VAR
        Pusk: BOOL;                (*Старт тестирования, например Н.Р. кнопка*)
        Stop: BOOL;                (*Стоп тестирования, например Н.Р. кнопка, для прерывания процесса тестирования*)
        Sbros: BOOL;                (*Сброс аварийного состояния, например Н.Р. кнопка*)
        P: REAL:= 20;                (*Измеренное давление*)
        time_Test: TIME := t#40s;                (*Время испытания изделия*)
        limit_P: REAL := 10;                (*Допустимое значение падения давления.*)
        Trig1: R_TRIG;
        time_Start: TIME ;
        state: INT;
END_VAR

CASE state OF
0:        (*Исходное состояние*)
        Trig1(CLK:=Pusk);                (*Ожидаем сигнал на старт тестирования*)
        state:=BOOL_TO_INT(Trig1.Q);
1:
        (*здесь добавить действия
        например включить клапан
        ...................................................
        и т.д.*)
        state:=2;
        time_Start:=TIME();
2:        (*Собственно процесс тестирования*)
        IF        P < limit_P THEN state:=3; END_IF;        (*если упало то авария*)
        IF TIME() - time_Start >= time_Test OR Stop THEN state:=4; END_IF (*Если время тестирования закончилось, или его нужно прервать*)
3:        (*Состояние для аварии*)
        (*Здесь написать действия при аварии, например
        снять давление(откл.клапан) или вкл. сигнализацию
        ...................................................
        и т.д.*)
        IF Sbros THEN
        (*здесь добавить действия
        например  откл сигнализацию
        ...................................................
        и т.д.*)
        state:=0; (* Перейти в начало*)
        END_IF
4:        (*Состояние при нормальном завершении теста*)
        (*здесь добавить действия
        например сбросить давление, включить лампу "ОК"
        ...................................................
        и т.д.*)
        state:=0; (* Перейти в начало*)
END_CASE

---

Помощь нужна? Температурный график расчет 43 строки данных типа при 10 градусах подача 36.6. те.есть должна автоматически меняться уставка температуры исходя расчета графика температуры.

Цитата:

---

Сообщение от andrsoon

Помощь нужна? Температурный график расчет 43 строки данных типа при 10 градусах подача 36.6. те.есть должна автоматически меняться уставка температуры исходя расчета графика температуры.

---

И зачем 43 точки в отопительном графике?
Вы что-нибудь про кусочно-линейную аппроксимацию слышали?

Скрытый текст:

http://files3.vunivere.ru/workbase/0...s/image001.gif
F(x)=f(x_i) + [x - x(_i)] / [x(_i+1) - x(_i)] * [f(x_i+1) - f(x_i)]

Это когда непрерывная функция заменяется ломаной линией с конечным числом прямолинейных отрезков. Т.е. график по оси Х разбивается на N частей, для каждого X(i) по графику непрерывной функции определяется значение Y(i). При чем интервалы по оси Х не обязательно должны быть равномерными! Полученные пары значений записываются в таблицу.
Теперь в программе, для текущего значения Х, нужно найти интервал между соседними точками X(i) и X(i+1) в который попадает Х.
Т.е. в таблице из N строк, найти номер строки - i для которой выполняется условие
Х(i) < X <= X(i+1)
И по приведенной выше формуле рассчитать значение Y.
Если делать поиск простым перебором во всех строках, то нужно проделать от 1 до N итераций.
Не мудрено для большой таблицы, вызвать злую собаку.
Может Вам и 10 точек хватит?
Хотя, "Я угадаю эту мелодию с шести нот", в смысле могу предложить способ, при котором для таблицы из 43 строк понадобится не более ШЕСТИ итераций.:rolleyes:
И чем больше строк в таблице, тем более экономичным будет поиск по сравнения с тупым перебором.
для 8 точек графика нужно не более 3 итераций
при 9..16 точек в графике нужно не более 4 итераций
при 17..32 точек в графике нужно не более 5 итераций
при 33..64 точек в графике нужно не более 6 итераций
при 65..128 точек в графике нужно не более 7 итераций
и т.д. согласно - два в степени(кол.итераций).
Для этого я применю метод поиска делением интервала пополам, известный также как двоичный поиск или Дихотомия.
Метод деления отрезка в золотом сечении я еще не пробовал.
И так, у меня получилась вот такая функция

Код:

---

FUNCTION MyGraf_p : REAL
VAR_INPUT
        IN: REAL;        (*Входной сигнал*)
        pt : POINTER TO ARRAY[0..99] OF Point_GR;        (*Массив точек графика, не более 100 пар точек X,Y*)
        size : UINT;
END_VAR
VAR
        a: INT;        (*Начало интервала поиска*)
        b: INT;        (*Конец интервала поиска*)
        N: INT;        (*Число точек в графике*)
        i: INT;
END_VAR

N:= SHR(size,3)-1;        (*Число точек в графике*)
(*Начальные значения интнрвала поиска*)
a:=0;
b:=N-1;

(*Обрезание графика для крайних точек*)
IF IN<=pt^[0].X THEN
        MyGraf_p:=pt^[0].Y;
ELSIF IN>=pt^[N-1].X THEN
        MyGraf_p:=pt^[N-1].Y;
(*Теперь можно начать поиск*)
ELSE
        WHILE (b-a) <> 1 DO (*В конце концов, входной сигнал ТОЧНО попадет между двумя соседними точками X(a) и Х(а+1)*)
        i:=(a+b)/2;        (*Делим интервал поиска пополам*)
        IF IN=pt^[i+1].X THEN        (*Может нам повезло, и мы сразу нашли точку? *)
        a:=i; b:=i+1;                        (*Бинго! прекращаем итераций, нечего в пустую молотить :) *)
        (*мимо :( ,тогда посмотрим в какую половину интервала попали*)
        ELSIF IN>pt^[i].X THEN        (*Если входной сигнал больше середины интервала поиска,*)
        a:=i;                                        (*то следующий поиск будем делать начиная от середины и до конца массива*)
        ELSE                                        (*А если входной сигнал меньше середины интервала поиска,*)
        b:=i;                                        (*то следующий поиск будем делать начиная от начала и до середины массива*)
        END_IF
(*Таким образом на каждой итерации отбрасываем из поиска заведомо ненужную половину значений
две соседние координаты X(a) и Х(а+1), меду которыми попадает входной сигнал найдем очень быстро
для 8 точек графика нужно не более 3 итераций
при 9..16 точек в графике нужно не более 4 итераций
при 17..32 точек в графике нужно не более 5 итераций
при 33..64 точек в графике нужно не более 6 итераций
при 65..128 точек в графике нужно не более 7 итераций
инфа точная - 100% ;) *)
END_WHILE
(*Теперь самое простое - сделать линейную аппроксимацию по двум точкам ;) *)
MyGraf_p:=pt^[b].Y-(pt^[b].X-IN)*(pt^[b].Y-pt^[a].Y)/(pt^[b].X-pt^[a].X);
END_IF

---

Здесь для таблицы используется пользовательский тип данных - Point_GR

Код:

---

TYPE Point_GR :
STRUCT
        X,Y: REAL;
END_STRUCT
END_TYPE

---

Максимальное кол. точек в график ограничил 100. Хотя если надо можно и больше, только не знаю, где такой график может понадобиться. Если реально будет меньше точек, то в функции ничего не менять! Все само подстроится под нужный размер.
Сам массив структур передается в функцию через указатель, по этому вызывать ее нужно так

MyGraf_p(IN, ADR(Имя_Массива), SIZEOF(Имя_Массива))

Пример программы на ST

Код:

---

PROGRAM PLC_PRG
VAR
        GR: ARRAY [0..49] OF Point_GR:=
        (X:=0, Y:=15),(X:=3, Y:=25),(X:=4, Y:=45),(X:=8, Y:=75),(X:=15, Y:=45),
        (X:=16, Y:=45),(X:=20, Y:=65),(X:=22, Y:=75),(X:=40, Y:=95),(X:=50, Y:=105),

        (X:=110, Y:=15),(X:=120, Y:=25),(X:=130, Y:=45),(X:=140, Y:=75),(X:=150, Y:=45),
        (X:=160, Y:=45),(X:=200, Y:=65),(X:=220, Y:=75),(X:=240, Y:=95),(X:=250, Y:=305),

        (X:=301, Y:=15),(X:=305, Y:=25),(X:=324, Y:=45),(X:=380, Y:=75),(X:=415, Y:=45),
        (X:=416, Y:=45),(X:=420, Y:=65),(X:=422, Y:=75),(X:=440, Y:=495),(X:=450, Y:=505),

        (X:=511, Y:=15),(X:=515, Y:=25),(X:=524, Y:=45),(X:=580, Y:=75),(X:=615, Y:=45),
        (X:=416, Y:=45),(X:=420, Y:=65),(X:=422, Y:=75),(X:=440, Y:=495),(X:=450, Y:=505),

        (X:=621, Y:=15),(X:=625, Y:=25),(X:=634, Y:=45),(X:=680, Y:=75),(X:=695, Y:=45),
        (X:=676, Y:=45),(X:=680, Y:=65),(X:=692, Y:=75),(X:=740, Y:=495),(X:=750, Y:=505);

        IN: REAL;
        OUT: REAL;
END_VAR
(*ВАЖНО!
Таблица должна быть обязательно отсортирована по X в порядке возрастания значений.*)

OUT:=MyGraf_p(IN, ADR(GR), SIZEOF(GR));

---

Пример программы на CFC
Вложение 56577

ЗЫ.
ВАЖНО!
Таблица должна быть отсортирована по X в порядке возрастания.

Спасибо большое ! буду изучать дальше!!! очень мне помогают ваши советы!

День добрый. Подскажите кто нибудь подключал ПЛК и ПКП1 через 4..20мА (для управления)???

Вот снова я завис!!!(
Процессы выполняются друг за другом, но в первом процессе я включаю кнопки на TRUE во втором выключаю. циклы повторяются и после прохождения первого цикла кнопки остаются включены. в реальной жизни ПЛК как себя поведет в такой ситуации. ? что будет с кнопками!? или делать сброс всех , но тогда в первом цикле все сброситься и что потом будет?

Цитата:

---

Сообщение от Grampus

Вот снова я завис!!!(
Процессы выполняются друг за другом, но в первом процессе я включаю кнопки на TRUE во втором выключаю. циклы повторяются и после прохождения первого цикла кнопки остаются включены. в реальной жизни ПЛК как себя поведет в такой ситуации. ? что будет с кнопками!? или делать сброс всех , но тогда в первом цикле все сброситься и что потом будет?

---

В реальном ПЛК все кнопки, на дискретных входах, глобальные, т.е. в любой программе это одни и те же кнопки.
А если Вы пообъявляли в каждой программе по кнопке, то это совсем разные кнопки, даже если у них одинаковые имена.
По этому, даже если у Вас нет ПЛК, все равно сразу присваивайте имена кнопкам в конфигурации ПЛК
Вложение 26388
При этом из разделов объявления переменных всех программ удалить все кнопки.

Это касается и физических выходов ПЛК.

А если не знаете какой ПЛК будет, то глобальные переменные, например, кнопки и выходы будущего ПЛК объявлять в специальном разделе
Вложение 26389
Туда их сразу можно поместить в процессе написания программы, когда выскакивает это окно
Вложение 26390

Цитата:

---

Сообщение от Grampus

Спасибо большое ! буду изучать дальше!!! очень мне помогают ваши советы!

---

Можете поиграться с графиками

https://www.youtube.com/watch?v=9Vgrn8JdhSI

Цитата:

---

Сообщение от petera

В реальном ПЛК все кнопки, на дискретных входах, глобальные, т.е. в любой программе это одни и те же кнопки.
А если Вы пообъявляли в каждой программе по кнопке, то это совсем разные кнопки, даже если у них одинаковые имена.
По этому, даже если у Вас нет ПЛК, все равно сразу присваивайте имена кнопкам в конфигурации ПЛК
Вложение 26388
При этом из разделов объявления переменных всех программ удалить все кнопки.

Это касается и физических выходов ПЛК.

А если не знаете какой ПЛК будет, то глобальные переменные, например, кнопки и выходы будущего ПЛК объявлять в специальном разделе
Вложение 26389
Туда их сразу можно поместить в процессе написания программы, когда выскакивает это окно
Вложение 26390

---

если я правильно понял то при объявлении переменной в конфигурации . в первом процессе кнопки должны будут выключиться когда произойдет переход на процесс 2

Цитата:

---

Сообщение от Grampus

если я правильно понял то при объявлении переменной в конфигурации . в первом процессе кнопки должны будут выключиться когда произойдет переход на процесс 2

---

Ну если во втором процессе выключаете, то да.

Если вход привязать к уличной температуре то иксовые точки можно указать с минусом, я правильно понимаю?

Цитата:

---

Сообщение от Эдуард_Н

Если вход привязать к уличной температуре то иксовые точки можно указать с минусом, я правильно понимаю?

---

Без проблем, функция http://www.owen.ru/forum/showthread....l=1#post220263 универсальная. Обе координаты точек (X, Y) графика могут задаваться и положительными и отрицательными числами. Единственное ограничение - таблица должна быть отсортирована по X в порядке возрастания.

Цитата:

---

Сообщение от petera

Без проблем, функция http://www.owen.ru/forum/showthread....l=1#post220263 универсальная. Обе координаты точек (X, Y) графика могут задаваться и положительными и отрицательными числами. Единственное ограничение - таблица должна быть отсортирована по X в порядке возрастания.

---

Подскажите как эту функцию приладить к такому графику:Вложение 26404
где:
Х0 - точка излома
Y0 - величина излома
X1 - -26°С
X2 - 8°С
Y1 - 80°С
Y2 - 60°С

Добрый день уважаемые коллеги!
Помогите пожалуйста не ударить в грязь лицом перед моим руководством.
Не могу настроить PID регулятор.В деталях:
среда - Codesys v2.3
менеджер библиотек - Util.lib
функциональный блок - PID.
Проблема:
Y_MIN и Y_MAX - минимум и максимум управляющего воздействия по факту не ограничивают то самое управляющее воздействие, т.е. при Y_MAX= 1000
Y(выход блока) может быть больше, аналогично Y_MIN=0 воздействие уходит в отрицательную сторону.
Подскажите пожалуйста что не так.

Цитата:

---

Сообщение от Эдуард_Н

Подскажите как эту функцию приладить к такому графику:Вложение 26404
где:
Х0 - точка излома
Y0 - величина излома
X1 - -26°С
X2 - 8°С
Y1 - 80°С
Y2 - 60°С

---

Блин, зачем здесь такая сложная функция, когда нужно проверить всего ОДНО условие x>=X0 ?