Создать функцию на ST

Фоновая сортировка. https://cloud.mail.ru/public/JBy8/eQz4xByVK

Привет всем!

Делал кто "перевод" макросов на язык ST ?
Иногда надо подправить малость - мне проще в ST. :)

Вот попробовал с ходу перевести:
Преобразователь диапазона с ограничением SCALE.
Получаются разные результаты...

CompareADC:= (InADCa*((InMAX-InMIN)/(UotMAX-UotMIN))) - (InMIN*UotMAX-InMAX*UotMIN)/(UotMAX-UotMIN) ;
или ещё
CompareADC:= InMIN + (InADCa - UotMIN) * ( InMAX - InMIN )/(UotMAX - UotMin);

Чёт первый блин не получается...

InMIN, InMAX - предел входного параметра,
UotMIN, UotMAX - предел выходного параметра,
InADCa - входной сигнал,
CompareADC - выход.

Цитата:

---

Сообщение от ПавелП

Привет всем!

Делал кто "перевод" макросов на язык ST ?
Иногда надо подправить малость - мне проще в ST. :)

Вот попробовал с ходу перевести:
Преобразователь диапазона с ограничением SCALE.
Получаются разные результаты...[B]

---

установите КДС, воспользуйтесь одноименной библиотекой на oscat.de, там все функции на языке ST, адаптировать их под ОЛ куда проще чем с квадратиков переводить

Цитата:

---

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

установите КДС, воспользуйтесь одноименной библиотекой на oscat.de, там все функции на языке ST, адаптировать их под ОЛ куда проще чем с квадратиков переводить

---

Порылся, нашёл, посмотрел.
Много всего. Инфы поболее, чем с нуля начинать.

Спасибо! :)

Цитата:

---

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

Макросы уже есть на ST ?
Все REAL ?

математики, ля
прогеры, ля
постановщики задач, ля

---

:)

Первый раз, в первый класс...
Дали люди ссылку, будет поболее инфы, и меньше вопросов!

Код:

---

double Scaler (double input, double in_min, double in_max, double out_min, double out_max)

{
double out1 = 0;
double out2 = 0;
double output = 0;
double diff = in_max - in_min;

if (diff != 0)
{
if (input > in_max) out1 = in_max;
else out1 = input;
if (in_min > out1) out2 = in_min;
else out2 = out1;
output = (out_max - out_min) / diff * (out2 - in_min) + out_min;
}
return output;
}

---

Скалирование на C#, вроде делал когда-то именно с oscat. хотя и не помню уже. Синтаксис примените СТшный.

Цитата:

---

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

Макросы уже есть на ST ?
Все REAL ?


математики, ля

Код:

---

CompareADC := (InADCa - InMIN) / (InMAX - InMIN) * (UotMAX - UotMin) + UotMin

---

[/CODE]

---

Всё работает!!! Совпадает с эталоном.

Спасибо! :)

Цитата:

---

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

Код:

---

double Scaler (double input, double in_min, double in_max, double out_min, double out_max)

{
double out1 = 0;
double out2 = 0;
double output = 0;
double diff = in_max - in_min;

if (diff != 0)
{
if (input > in_max) out1 = in_max;
else out1 = input;
if (in_min > out1) out2 = in_min;
else out2 = out1;
output = (out_max - out_min) / diff * (out2 - in_min) + out_min;
}
return output;
}

---

Скалирование на C#, вроде делал когда-то именно с oscat. хотя и не помню уже. Синтаксис примените СТшный.

---

Подошло.
Только контроль пределов не нужен.
Раз оттарировал, и заработало!
Спасибо! :)

Цитата:

---

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

установите КДС, воспользуйтесь одноименной библиотекой на oscat.de, там все функции на языке ST, адаптировать их под ОЛ куда проще чем с квадратиков переводить

---

Хм. Пролистал внимательно - оч интересно.
Много полезностей, нужное проверил - всё работает.

Прочитал шапку файла, и побродил по ссылкам:
1. 10 лет прошло, часть ссылок оттуда сдохла.
2. ST где-то рядом. Все решения достаточно описаны, но без исходников.
3. У некоторых макросов есть исходные формулы.

4. Винегрет из CFC, ST придётся городить.
Что, впрочем, позволит решить нужные задачи.

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

ПавелП

Цитата:

---

Все решения достаточно описаны, но без исходников

---

Если речь идёт про OSCAT для CDS 2.3, то его надо не добавить в проект (тогда только шапка видна), а именно открыть как библиотеку. Тогда все исходники видны. Но написаны они ужасно. Без комментариев и с фиг какими именами переменных.
Вложение 65842

Надо библиотеку открыть как проект, и скопировать код из блоков.

Цитата:

---

Сообщение от Cs-Cs

ПавелП Если речь идёт про OSCAT для CDS 2.3, то его надо не добавить в проект (тогда только шапка видна), а именно открыть как библиотеку. Тогда все исходники видны. Но написаны они ужасно. Без комментариев и с фиг какими именами переменных.
Вложение 65842

---

Выходные. Посмотрел повнимательнее.
Вообще-то, если назначение и алгоритм понятные, то
в простых макросах разобраться можно.

Но есть монстры очень сложные.
Но они то и не очень нужны. :)

Цитата:

---

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

Надо библиотеку открыть как проект, и скопировать код из блоков.

---

Всё так. Я про комментарии.

Всё заметно упрощается, когда есть возможность
не "сидеть" в рамках макроса, а подкрутить его в свою сторону. :)

Привет всем.

Петренко опубликовал с год назад толковый пример
"Овен ПЛК 110-М02 сохранение переменных REAL на USB FLASH в Excel"
но, как всегда, самое интересное утаил... :(

Макрос позволяет указанные переменные писать в лог фай на внешнюю флешку в формате Excel.
Где такое взять? Хоть в текстовый файл.

Есть описание Navigator_PLC_DVD_v3\04. Библиотеки\2022\Описание\OwenLibFileAsync.pdf.
Но там с ходу в 10 листах трудно разобраться.

Цитата:

---

Сообщение от ПавелП

Привет всем.

Петренко опубликовал с год назад толковый пример
"Овен ПЛК 110-М02 сохранение переменных REAL на USB FLASH в Excel"
но, как всегда, самое интересное утаил... :(

Макрос позволяет указанные переменные писать в лог фай на внешнюю флешку в формате Excel.
Где такое взять? Хоть в текстовый файл.

Есть описание Navigator_PLC_DVD_v3\04. Библиотеки\2022\Описание\OwenLibFileAsync.pdf.
Но там с ходу в 10 листах трудно разобраться.

---

Причем здесь, в теме про реле, разговор по плк?

Цитата:

---

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

Причем здесь, в теме про реле, разговор по плк?

---

Тема: Создать функцию на ST

Форум * Программируемые устройства ОВЕН * Среда программирования OWEN Logic * Создать функцию на ST

Цитата:

---

Сообщение от ПавелП

Тема: Создать функцию на ST

---

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

Цитата:

---

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

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

---

Действительно чуть промазал. :)

Сижу в двух системах: ПР200 4 шт, и ПЛК110/160...

Цитата:

---

Сообщение от ПавелП

и ПЛК110/160...

---

то что показано на видео это обычная запись строки в конец файла, имя которому что_то_там.csv
И указанием винде что csv файлы открывать екселем

Цитата:

---

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

то что показано на видео это обычная запись строки в конец файла, имя которому что_то_там.csv
И указанием винде что csv файлы открывать екселем

---

Спасибо! :)
Я уже перебрался с этим вопросом, в тему - посмотрю что подскажут.

Цитата:

---

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

ST вариант моего макроса PLA (кусочно-линейная аппроксимация) по мотивам https://owen.ru/forum/showthread.php...l=1#post220263
график по 10 точкам, метод поиска делением интервала пополам, известный также как двоичный поиск или Дихотомия

Код:

---

function PLA_ST: real; //    (c) PeterA
    var_input //объявление входных переменных
        x1: real;
        x2: real;
        x3: real;
        x4: real;
        x5: real;
        x6: real;
        x7: real;
        x8: real;
        x9: real;
        x10: real;
        y1: real;
        y2: real;
        y3: real;
        y4: real;
        y5: real;
        y6: real;
        y7: real;
        y8: real;
        y9: real;
        y10: real;
        In: real;
    end_var
   
    var //объявление локальных переменных
    a:udint;    (*Начало интервала поиска*)
    b: udint;    (*Конец интервала поиска*)
    N: udint;    (*Число точек в графике*)
    i: udint;
    x: array [0..9] of real;
    y: array [0..9] of real;
    end_var
   
N:= 10;
x[0]:= x1;
x[1]:= x2;
x[2]:= x3;
x[3]:= x4;
x[4]:= x5;
x[5]:= x6;
x[6]:= x7;
x[7]:= x8;
x[8]:= x9;
x[9]:= x10;

y[0]:= y1;
y[1]:= y2;
y[2]:= y3;
y[3]:= y4;
y[4]:= y5;
y[5]:= y6;
y[6]:= y7;
y[7]:= y8;
y[8]:= y9;
y[9]:= y10;

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

(*Обрезание графика для крайних точек*)
IF IN<=x[0] THEN
    PLA_ST:=y1;
ELSIF IN>= x[N-1] THEN
    PLA_ST:= y[N-1];
(*Теперь можно начать поиск*)
ELSE
    WHILE (b-a) <> 1 DO (*В конце концов, входной сигнал ТОЧНО попадет между двумя соседними точками X(a) и Х(а+1)*)
    i:=(a+b)/2;    (*Делим интервал поиска пополам*)
    IF IN=x[i+1] THEN    (*Может нам повезло, и мы сразу нашли точку? *)
    a:=i; b:=i+1;            (*Бинго! прекращаем итераций, нечего в пустую молотить :) *)
    (*мимо :( ,тогда посмотрим в какую половину интервала попали*)
    ELSIF IN>x[i] 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;
(*Теперь самое простое - сделать линейную аппроксимацию по двум точкам ;) *)
PLA_ST:= y[b] - (x[b] - IN) * (y[b] - y[a]) / (x[b] - x[a]);
END_IF

 
end_function

---

Вложение 58155

---

petera, зачем такие сложности. Температурный график достаточно прост (см.картинку). Таким образом, достаточно знать координаты двух точек перегиба графика.

Цитата:

---

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

Добрый вечер! Конечный автомат сделать можно. На входе создаете переменную, например, PrevState. И с помощью "линии задержки" передаете выходное значение Q (UDInt - код шага в автомате) на вход. Таким образом при вызове функция узнает на каком шаге автомата она остановилась в прошлом цикле. Внутри делаете CASE по PrevState и все. Получился такой себе FB с хранением предыдущего состояния "снаружи". Все таймеры внешние. Если шаг =10, то таймер 1 запустить. Таймер через время задержки Т выдает TRUE на вход функции. Управление исполнительными механизмами - по номеру состояний. Вложение 58181Вложение 58182

---

Интерсное применение рекурсии :)
красиво!

Здравствуйте. Пишу здесь первый раз. Просто хочется разобраться. У нас на производстве наливают, бочки, кубы, цистерны. И по запросу операторов им нужны переносные пульты для включение и отключение насосов, да еще и реверс. Так как за разумные деньги только ПКТ, но у него два нормально открытых. Сделал систему на ПР. Решил сделать так, чтобы при нажатии любой кнопки "Вперед" или "Назад" при работающем насосе, насос отключался. Пробовал написать несколько программ. Так вот получился у меня интересный случай. Одна функция нормально работает, как я и хотел. Другая не в какую. Кто-нибудь может помочь разобраться? Файл и код прилагаю
Эта функция не работает.

Код:

---

function motorvper: bool; //имя функции и тип данных выхода
    var_input //объявление входных переменных
        //входная переменная с типом данных bool
        vper : bool;
        nazad : bool;
        puskv : bool;
        puskn : bool;
    end_var
   
    var //объявление локальных переменных
    end_var
   
  if vper=true or puskv=true and nazad=false and puskn=false then motorvper := true;
  end_if
 
    if vper=true or nazad=true and puskv=true then motorvper := false ;
    end_if
   
end_function

---

А эта работает.

Код:

---

function motornazad: bool; //имя функции и тип данных выхода
    var_input //объявление входных переменных
        vpered : bool;//входная переменная с типом данных bool
        nazad : bool;
        puskv : bool;
        puskn : bool;
    end_var
   
    var //объявление локальных переменных
    end_var
   
  if nazad=true or puskn=true and vpered=false and puskv=false then motornazad := true;
  end_if
 
    if vpered=true or nazad=true and puskn=true then motornazad := false;
  end_if
   
end_function

---

Алексаныч

Цитата:

---

при нажатии любой кнопки "Вперед" или "Назад" при работающем насосе, насос отключался

---

Так а если без функции делать? Взять R_TRIG по нажатию на кнопки и AND с выходом насоса? А насосом управлять по RS-триггеру (с приоритетом R)?
То есть, описать условие "Если прошёл импульс наражтия кнопки И насос работает - выключить".

Вторые строчки в топку
Сравнение с труе/фальсе в топку
Явные скобки в логических выражениях
И разберетесь

Цитата:

---

Сообщение от Алексаныч

Здравствуйте. Пишу здесь первый раз. Просто хочется разобраться. У нас на производстве наливают, бочки, кубы, цистерны. И по запросу операторов им нужны переносные пульты для включение и отключение насосов, да еще и реверс. Так как за разумные деньги только ПКТ, но у него два нормально открытых. Сделал систему на ПР. Решил сделать так, чтобы при нажатии любой кнопки "Вперед" или "Назад" при работающем насосе, насос отключался. Пробовал написать несколько программ. Так вот получился у меня интересный случай. Одна функция нормально работает, как я и хотел. Другая не в какую. Кто-нибудь может помочь разобраться? Файл и код прилагаю
Эта функция не работает.

---

У вас в обеих функциях, последние IF одинаковые, а должны быть разные.

Код:

---

 
//    if vper=true or nazad=true and puskv=true then motorvper := false ;  //Это ваш код
//    end_if

if nazad or vper and puskv then motorvper := false ; // рабочий код
    end_if
end_function

---

И линии задержки сделайте, вместо жёлтых линий
А можно вторые IF вообще выбросить в обеих, тоже работать будет.

Цитата:

---

Сообщение от Cs-Cs

Алексаныч
Так а если без функции делать? Взять R_TRIG по нажатию на кнопки и AND с выходом насоса? А насосом управлять по RS-триггеру (с приоритетом R)?

---

Да можно. Интересно было написать на ST. Скажем честно я в нем профан и поэтому познаю потихоньку.

Цитата:

---

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

У вас в обеих функциях, последние IF одинаковые, а должны быть разные.

Код:

---

 
//    if vper=true or nazad=true and puskv=true then motorvper := false ;  //Это ваш код
//    end_if
if nazad or vper and puskv then motorvper := false ; // рабочий код
    end_if
end_function

---

И линии задержки сделайте, вместо жёлтых линий
А можно вторые IF вообще выбросить в обеих, тоже работать будет.

---

Спасибо. Буду дальше разбираться в ST.

Цитата:

---

Сообщение от Алексаныч

Интересно было написать на ST. Скажем честно я в нем профан и поэтому познаю потихоньку.
Спасибо. Буду дальше разбираться в ST.

---

Можно обе функции записать без IF, по совету Валенка

Код:

---

motorvper:=(vper or puskv and not nazad);  //  1 функция

motornazad:=(nazad or puskn and not vpered); //  2 функция

---

Цитата:

---

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

Можно обе функции записать без IF, по совету Валенка

Код:

---

motorvper:=(vper or puskv and not nazad);  //  1 функция

motornazad:=(nazad or puskn and not vpered); //  2 функция

---

---

Да если бы он вот так объяснил, было бы намного лучше.
Но походу или я тупой или плохо обрисовал задачу. Если вот так прописать, как в первом варианте(даже с линиями задержки, и без вторых IF) или вариант Валенка. То на симуляции это работает так. На примере команды "Вперед". Подается сигнал на первый выход(пуск двигателя вперед). Если нажать повторно кнопку "Вперед" двигатель остановится. Но вот если вместо кнопки "Вперед", нажать "Назад" двигатель не остановится, а мгновенно включиться сигнал на второй выход(пуск двигателя в реверс). А мне надо, чтобы он остановился и уже при следующем нажатии кнопки оператор может запустить двигатель в нужный момент. Просто у нас растительное масло, а оно способно сделать залипании кнопки.

Цитата:

---

Сообщение от Алексаныч

То на симуляции это работает так. На примере команды "Вперед". Подается сигнал на первый выход(пуск двигателя вперед). Если нажать повторно кнопку "Вперед" двигатель остановится. Но вот если вместо кнопки "Вперед", нажать "Назад" двигатель не остановится, а мгновенно включиться сигнал на второй выход(пуск двигателя в реверс). А мне надо, чтобы он остановился и уже при следующем нажатии кнопки оператор может запустить двигатель в нужный момент. Просто у нас растительное масло, а оно способно сделать залипании кнопки.

---

Тогда схема будет такой Вложение 68069
А первая функция будет так

Код:

---

  if vper and not puskn or puskv  and not nazad then motorvper := true;
  end_if     
  if  nazad or vper  and puskv  then motorvper := false ;
  end_if     
end_function

---

Вторая по аналогии сами попробуйте

Цитата:

---

Сообщение от Алексаныч

Да если бы он вот так объяснил, было бы намного лучше.
Но походу или я тупой или плохо обрисовал задачу. Если вот так прописать, как в первом варианте(даже с линиями задержки, и без вторых IF) или вариант Валенка. То на симуляции это работает так. На примере команды "Вперед". Подается сигнал на первый выход(пуск двигателя вперед). Если нажать повторно кнопку "Вперед" двигатель остановится. Но вот если вместо кнопки "Вперед", нажать "Назад" двигатель не остановится, а мгновенно включиться сигнал на второй выход(пуск двигателя в реверс). А мне надо, чтобы он остановился и уже при следующем нажатии кнопки оператор может запустить двигатель в нужный момент. Просто у нас растительное масло, а оно способно сделать залипании кнопки.

---

Если сделать вот так, то работает

Мой вариант с защитой от залипания:

Вложение 68072

Вложение 68073

Вот добавил блокировку включения реверса на 5 секунд:

Вложение 68085

Цитата:

---

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

Мой вариант с защитой от залипания:

Вложение 68072

---

Ну, хочет человек ST.
Вот мой вариант
Вложение 68074

Цитата:

---

Сообщение от Алексаныч

мне надо, чтобы он

---

странное желание "ловить" события с помощью функции, да и сам алгоритм вызывает сомнения, к примеру если операторы начнут совершать двойные нажатия на кнопки. Автоматизация это же не безусловное использование вычислительной техники в любого рода задачах. Кто будет определять что привод действительно остановился, чтоб только после этого задать другое направление. По хорошему всё же должна быть третья кнопка которая просто останавливает процесс, а вперед и назад должны работать по принципу нажал и забыл, автоматом должна происходить парковка(остановка) и смена направления по единственному нажатию, надеюсь ОС с частотника заведена в контроллер

Всем спасибо. Разобрался. Для себя подчерпнул много нового. Для переживающего о двойном нажатии и резкой смене движения. Еще ни разу не было обращений. Я же эту систему сначала чисто на блоках сделал. Просто как она выглядит на блоках и как с помощью ST это большая разница и если знать нюансы ST и иметь больше опыта легче в создании вразы. А уж при появлении возможности создать функциональный блок, это можно все в один блок запихать.

Цитата:

---

Сообщение от Алексаныч

Еще ни разу не было обращений.

---

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

Вопрос: а когда можно будет вставлять st-функции внутрь ФБ?

Ошибка при Включении отладки и использование блока ST
Подскажите с чем это связанно и как этого избежать

Цитата:

---

System.ArgumentException: Offset and length were out of bounds for the array or count is greater than the number of elements from index to the end of the source collection.
at System.Collections.Generic.List`1.GetRange(Int32 index, Int32 count)
at Owen.ProgrammableRelay.StackBuild.CopyCellsTo(Int3 2 sourceCellIndex, Int32 destCellIndex, Int32 cellsCount)
at ProgramRelayFBD.ApplicationLayer.ST.AnalizeFunctio nElementService.Analize(StFunctionElement element, ProgramCode program, ICompiledFunctionRepository compiledFunctionRepo)
at Owen.General.DomainEvents.RaiseEvent[T](T event, IEnumerable`1 actions)
at ProgramRelayFBD.DomainLayer.OnlineDebugging.Online DebuggingCompilerState.HandleBuildElement(IBuildin gElement element, ProgramCode program, ICompiler compiler)
at Owen.Compiling.ProgramLinker.CompilingElements(Pro gramCode program, IEnumerable`1 elements, CancellationToken cancellationToken)
at ProgramRelayFBD.DomainLayer.Compilers.BaseCompiler .CompilePrograms(ProgramItem programItem, CancellationToken cancellationToken)
at ProgramRelayFBD.DrawingView.<>c__DisplayClass91_0. b__0()
at System.Threading.ExecutionContext.RunFromThreadPoo lDispatchLoop(Thread threadPoolThread, ExecutionContext executionContext, ContextCallback callback, Object state)
--- End of stack trace from previous location ---
at System.Threading.Tasks.Task.ExecuteWithThreadLocal (Task& currentTaskSlot, Thread threadPoolThread)

---

Подскажите, какой сценарий возникновения такой ошибки и на какой версии owen logic?