Управление работой вентиляторов

[alexval2006]

Посоветуйте как реализовать на ST управление вентиляторами есть 4 механизма Механизм №1, Механизм №2, Механизм №3 и Механизм №4 и несколько вентиляторов Вентилятор №1, Вентилятор №2, Вентилятор №3. Если включён Механизм №1 должен включится Вентилятор №1 и Вентилятор №2. Если включён Механизм №2 должен включится Вентилятор №1 и Вентилятор №3 и т.п. Если включается Механизм №1 а Вентилятор №1 или Вентилятор №2 используются другим механизмом и уже включены то не трогаем их. Если выключается Механизм №1 а Вентилятор №1 или Вентилятор №2 используются ещё и другим механизмом то не трогаем их пусть работают они выключатся когда последний механизм будет выключатся. Ну вот такая хитрая логика как включить я представляю простое условие а вот как контролировать выключение чтобы не выключить вентилятор использующийся параллельно и другим механизмом.

[swerder]

vent1 := false;
vent2 := false;
vent3 := false;
if mech1 then
vent1 := true;
vent2 := true;
end_if;
if mech2 then
vent1 := true;
vent3 := true;
end_if;
...

[swerder]

#2
vent1 := mech1 or mech2;
vent2 := mech1 or ...
vent3 := mech1 or ...

[alexval2006]

да еще хочу сказать что каждый механизм имеет входы пуск и стоп так что тут немного сложнее

[swerder]

отнюдь, воспользуйтесь переключающим реле

[Николаев Андрей]

НЕ совсем может ответ - но Ваш выбор совсем другой язык.
На LD - это всего несколько строк.

[Валенок]

На LD - это всего несколько строк.

(Извините Андрей)

Интересная задача.
Релиз оконтуривается. Структура данных что-то решетчатое. Массивы вдоль и списки указателей поперёк. Или наоборот. А обработка данных - сквозные проходы вдоль и поперёк. Думаю как покомпактнее элементы описать. И почеловечнее сами маршруты -например прям текстом : 'Вентилятор#1;Клапан#7,3сек;Транспортер#23,7сек... ' ?? (но не факт)

PS
Эх. Лисп бы.
Покумекаю.Выложу в личку

[alexval2006]

благадарю вас товарищи за свежие идеи и помощ буду пробовать

[swerder]

кстати очень интересный финт "byte or byte" - изучается еще на первых уроках логики/программирования, а вспомнился только сейчас

[alexval2006]

А можно немного пояснений по коду что то я не в курю что делает таймер Stop4 : TP := ( PT := T#..); какое время выставлять и зачем далее

Start1,
Stop1,
в объявлениях как понять или подразумеваете объявить их BOOL
да и в обще общая логика

ну вот что получилось

PROGRAM PRG_3
VAR
Mech1 :BYTE:= 2#0001;
Mech2 :BYTE:= 2#0011;
Mech3 :BYTE:= 2#0111;
Mech4 :BYTE:= 2#1111;
Stop1 : TP:= ( PT := T#1s);
Start1 : TP:= ( PT := T#1s);
Stop2 : TP:= ( PT := T#1s);
Start2 : TP:= ( PT := T#1s);
Stop3 : TP:= ( PT := T#1s);
Start3 : TP:= ( PT := T#1s);
Stop4 : TP:= ( PT := T#1s);
Start4 : TP:= ( PT := T#1s);
Fan: WORD;
Do1: BOOL;
Do2: BOOL;
Do3: BOOL;
Do4: BOOL;
END_VAR
(************************************************* **********)
Fan:= Mech1 OR Mech2 OR Mech3 OR Mech4;
Start1(IN:=Fan.0,Q=>Do1 );
Stop1(IN:=NOT Fan.0,Q=>Do1 );

работает как то не так точнее хз как