Реализация алгоритма наполнения емкости с тремя стадиями

Вложений: 1

Всем добрый день. Недавно подкинули интересную задачку, но которую не могу нормально реализовать.
Дано:
Аналоговый датчик уровня воды (0-6м, но я делал динамическую подгонку).
Необходимо реализовать три стадии:
1) Если опустилось ниже определенного порога 1 высоты, включается Насос 1. Если поднялось до порога 1.1 Выключить насос 1(полное заполнение)
2) Если опустилось ниже порога 2, отключить насос 1 и перейти на насос 2. Если поднялось до порога 2.1 выключить насос 2 и перейти на насос 1
3) Если опустилось ниже порога 3, работают насосы 1 и 2. Если поднялось до порога 3.1 выключить насос 1, насос 2 оставить в работе
(То есть каждая стадия имеет пороги включения и выключения)

Сам реализовывал в ФБ STшном на IFах с >= и <=, выходила полная шляпа(Стадии накладывались друг на друга)
Прикладываю проект со своими пробами, но там все уже перемешано и напеределывано 100 раз.

Вам осталось совсем чуть-чуть дажать и получилось бы так:

Код:

function_block Control var_input level : real; // Текущий уровень level1 : real; // Максимальный level2 : real; // Средний level3 : real; // Минимальный end_var var_output pump1 : bool; // Насос 1 pump2 : bool; // Насос 2 end_var if level >= level1 then pump1:=false; pump2:=false; elsif level < level1 and level >= level2 then pump1:=true; pump2:=false; elsif level < level2 and level >= level3 then pump1:=false; pump2:=true; elsif level < level3 then pump1:=true; pump2:=true; end_if end_function_block

Да или так:

Код:

if level < level3 then pump1:=true; pump2:=true; elsif level < level2 then pump1:=false; pump2:=true; elsif level < level1 then pump1:=true; pump2:=false; else pump1:=false; pump2:=false; end_if

а у меня так получилось

Код:

function_block WaterLevel var_input rCurrent_lvl: real; //тек. уровень iD_AlarmLamp_high_on: real; iD_AlarmLamp_high_off: real; iD_Pump1_Off: real; iD_Pump1_On: real; iD_Pump2_Off: real; iD_Pump2_On: real; iD_Pumps_vmeste_Off: real; iD_Pumps_vmeste_On: real; iD_AlarmLamp_low_on: real; iD_AlarmLamp_low_off: real; end_var var_output xPump1: BOOL; xPump2: BOOL; xAlarmUp: BOOL; xAlarmLow: BOOL; end_var var xFlag1: SYS.RS; xFlag2: SYS.RS; xFlag3: SYS.RS; end_var xFlag1(S := rCurrent_lvl < iD_Pump1_On, R := rCurrent_lvl >= iD_Pump1_Off); xFlag2(S := rCurrent_lvl < iD_Pump2_On, R := rCurrent_lvl >= iD_Pump2_Off); xFlag3(S := rCurrent_lvl < iD_Pumps_vmeste_On, R := rCurrent_lvl >= iD_Pumps_vmeste_Off); xPump1 := (xFlag1.Q and not xFlag2.Q) or xFlag3.Q; xPump2 := xFlag2.Q or xFlag3.Q; xAlarmUp := xPump1 and xPump2; end_function_block

Цитата:

Сообщение от Валенок

пропускаем через центрифугу и посыпаем реальностью

Смотрю анализирую. Как понимаю, что активации находятся в диапазонах между условными уровнями.
Но таким макаром насос 1 будет срабатывать сразу, как текущий уровень опустится ниже отметки выключения даже на чуть-чуть(проверил, да, начинает работать как только опустилось ниже отметки)

Но алгоритм хотя бы работает, сейчас посижу покумекаю с разумом, может добавить насосу 1 две разных точки вкл/выкл

Цитата:

Сообщение от Валенок

жмём еще

Код:

pump1 := level < level3 or (level >= level2 and level < level1); pump2 := level < level2;

Очень красивый код, однако, но тоже начинает срабатывать почти сразу, как вода утекла на 0.01 мм от верхней границы(

Вложений: 1

А может кто-нибудь PUTBIT в Лоджике на ST изобразить?
В биб-ке Util.lib код выглядит так Вложение 75647

А в Лоджике как то так, соответственно AND, OR и ROL не работают

Код:

function PUTBIT: udint; //имя функции и тип данных выхода VAR_INPUT X: udint; (* value to be manipulated *) N: udint; (* position of bit to be changed *) B:BOOL; (* value of specified bit *) END_VAR IF B=TRUE THEN PUTBIT:=(X OR SHL(1,N)); ELSE PUTBIT:=(X AND ROL(4294967294,N)); END_IF; end_function

Цитата:

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

а у меня так получилось

Код:

function_block WaterLevel var_input rCurrent_lvl: real; //тек. уровень iD_AlarmLamp_high_on: real; iD_AlarmLamp_high_off: real; iD_Pump1_Off: real; iD_Pump1_On: real; iD_Pump2_Off: real; iD_Pump2_On: real; iD_Pumps_vmeste_Off: real; iD_Pumps_vmeste_On: real; iD_AlarmLamp_low_on: real; iD_AlarmLamp_low_off: real; end_var var_output xPump1: BOOL; xPump2: BOOL; xAlarmUp: BOOL; xAlarmLow: BOOL; end_var var xFlag1: SYS.RS; xFlag2: SYS.RS; xFlag3: SYS.RS; end_var xFlag1(S := rCurrent_lvl < iD_Pump1_On, R := rCurrent_lvl >= iD_Pump1_Off); xFlag2(S := rCurrent_lvl < iD_Pump2_On, R := rCurrent_lvl >= iD_Pump2_Off); xFlag3(S := rCurrent_lvl < iD_Pumps_vmeste_On, R := rCurrent_lvl >= iD_Pumps_vmeste_Off); xPump1 := (xFlag1.Q and not xFlag2.Q) or xFlag3.Q; xPump2 := xFlag2.Q or xFlag3.Q; xAlarmUp := xPump1 and xPump2; end_function_block

Вы докрутили мою идею с флагами и триггерами, я даже не додумался сделать правило для исключения первого насоса при флаге на второй.
Вы с Сергеем0308 какие-то великие хранителя форума, спасибо большое)

Цитата:

Сообщение от Валенок

что значит однако?
как описали, так и предложили

Значит у меня язык такой, ТЗ в голове нормально звучит, но только для меня. Спасибо большое за предложенные варианты, вышли красивые и понятные для понимания)

Цитата:

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

А может кто-нибудь PUTBIT в Лоджике на ST изобразить?
В биб-ке Util.lib код выглядит так Вложение 75647

А в Лоджике как то так, соответственно AND, OR и ROL не работают

я тупо через case перебирал биты

Цитата:

Сообщение от Валенок

Общий и легко масштабируемый алгоритм (0...до_хрена насосов)
По уровню определить не насосы, а нужное их кол-во.
А вот по нужному кол-ву:
-если сейчас больше - тушить самых уставших
-если меньше включать самых отдохнувших из доступных.

И чередование, и автозамена аварийных.
Массивы и циклы. Не считайте строчки, делайте сразу универсально.

Да, думал по поводу масштабирования. С видосов по Codesys смотрел чередование насосов (с канала CodesysOneLove).
Думаю, что тот алгоритм можно скрестить с анализом уровня и вычислением количества нужных насосов(но там через массивы, а массивов в лоджике я не видел.. ну или слепой). Но это надо думать и напрягать мозги)

Цитата:

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

А может кто-нибудь PUTBIT в Лоджике на ST изобразить?
В биб-ке Util.lib код выглядит так Вложение 75647

А в Лоджике как то так, соответственно AND, OR и ROL не работают

Можно еще так попробовать:

Код:

function putbit: udint; var_input X : udint; N : udint; B : bool; end_var putbit := shr(X, N); putbit.0 := B; putbit := shl(putbit, N); putbit := putbit + shr(shl(X, 32-N), 32-N); end_function

Цитата:

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

Можно еще так попробовать:

Код:

function putbit: udint; var_input X : udint; N : udint; B : bool; end_var putbit := shr(X, N); putbit.0 := B; putbit := shl(putbit, N); putbit := putbit + shr(shl(X, 32-N), 32-N); end_function

EFrol, класс, проверку на скорую руку прошло на ура)))

EFrol
да - бомбически))

Я еще крестиком вышивать могу.:rolleyes:

Вложений: 7

Цитата:

Сообщение от Григори

Всем добрый день. Недавно подкинули интересную задачку, но которую не могу нормально реализовать.
Дано:
Аналоговый датчик уровня воды (0-6м, но я делал динамическую подгонку).
Необходимо реализовать три стадии:
1) Если опустилось ниже определенного порога 1 высоты, включается Насос 1. Если поднялось до порога 1.1 Выключить насос 1(полное заполнение)
2) Если опустилось ниже порога 2, отключить насос 1 и перейти на насос 2. Если поднялось до порога 2.1 выключить насос 2 и перейти на насос 1
3) Если опустилось ниже порога 3, работают насосы 1 и 2. Если поднялось до порога 3.1 выключить насос 1, насос 2 оставить в работе
(То есть каждая стадия имеет пороги включения и выключения)

Сам реализовывал в ФБ STшном на IFах с >= и <=, выходила полная шляпа(Стадии накладывались друг на друга)
Прикладываю проект со своими пробами, но там все уже перемешано и напеределывано 100 раз.

Это же очень простой алгоритм, думаю любой школьник за 5 минут сделает, типа так: формируете эти ваши стадии, например с помощью макроса двухпозиционного регулятора с гистерезисом из менеджера компонентов, я в одной из тем выкладывал подобный макрос, но с явным назначением уровней срабатывания, мне кажется это намного удобней! Каждой стадии соответствует её порядковый номер, в смысле, 1, 2 и 3 и из этого значения извлекаем нулевой бит(с весовым коэффициентом "1") и используем для работы первого насоса и первый бит(с весовым коэффициентом "2") и используем для работы второго насоса, всё!

Примерно как-то так, в смысле, мой вариант:

Вложение 75654

Вложение 75679

Вложение 75655

Или так:

Вложение 75665

Вложение 75666

Вложение 75668

Вложение 75667

Цитата:

Сообщение от Сергей0308

Это же очень простой алгоритм, думаю любой школьник за 5 минут сделает, типа так: формируете эти ваши стадии, например с помощью макроса двухпозиционного регулятора с гистерезисом из менеджера компонентов, я в одной из тем выкладывал подобный макрос, но с явным назначением уровней срабатывания, мне кажется это намного удобней! Каждой стадии соответствует её порядковый номер, в смысле, 1, 2 и 3 и из этого значения извлекаем нулевой бит(с весовым коэффициентом "1") и используем для работы первого насоса и первый бит(с весовым коэффициентом "2") и используем для работы второго насоса, всё!

Примерно как-то так, в смысле, мой вариант:

Вложение 75654

Вложение 75679

Вложение 75655

Или так:

Вложение 75665

Вложение 75666

Вложение 75668

Вложение 75667

Да, ваше решение красивое, но с битами привык в modbus только работать, о них в таком ключе и не подумал(а про блок CD32 услышал вот впервые). Сколько людей, столько и решений, благодарю за ответ.
Проект с БКК все еще не установлен, но я помню, когда его ребята поставят, отпишу :)

Вложений: 1

Цитата:

Сообщение от Григори

Да, ваше решение красивое, но с битами привык в modbus только работать, о них в таком ключе и не подумал(а про блок CD32 услышал вот впервые). Сколько людей, столько и решений, благодарю за ответ.
Проект с БКК все еще не установлен, но я помню, когда его ребята поставят, отпишу :)

Очень рад за вас, согласен, вариантов тьма, вот ещё один:

Вложение 76350