ST функции OWEN Logic

**Валенок** · 10.02.2023, 22:20

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

проверить просто, написать одинаковый "тяжелый" код в обеих ветках условия ..

Сложно как-то.
Это же, но по бразильской системе.

Код:

function jopa: bool;
    var_input
        in : bool;
    end_var

    while in do
       ; //максимально тяжелый код
    end_while
    jopa := not in; //инверсия для показать проход функции
end_function


function func: bool;
    var_input
       in : bool;
    end_var

    if in then
      func := jopa(true);
    else
      func := jopa(false);
    end_if
end_function

func на холст и прилепить вход и выход
Кто докажет ОБА вызова jop'ы при func(false) ?

**wwowa** · 11.02.2023, 06:59

Попробовал...
1.При запуске эмуляции все нормально.
2.При подаче на вход - бесконечный цикл.
Что говорит о том, что вроде как выполняется одна функция????
Но это не точно

Я заменил "тяжелый код"

Код:

// while in do
    //   ; //максимально тяжелый код
   // end_while
   for i := 0 to 1000000 do
       ;
   end_for

И вот, бесконечный цикл уже на этапе запуска симуляции и она уже не запускается. Это проверка симулятора или как то осуществляется пробег по всем функциям? Хотя лоджик интерпретатор и выполняет код построчно? Не, ну их домыслы, факты на скринах.f1.jpg f11.jpg f111.jpg

**Валенок** · 12.02.2023, 19:22

Глубины мысли с for'ом не понял. Продолжаем лепить про исполнение всех веток if ?

**capzap** · 03.03.2023, 15:24

после прочтения статьи про алгоритмы быстрого умножения написал вариант, проверил, все работает

**kondor3000** · 24.03.2023, 22:18

Сообщение от Денисов Максим Сергеевич

Уважаемые коллеги!

Уже больше года как функции на ST появились в OWEN Logic и многие из вас активно применяют новый функционал в своих проектах, впрочем, как и наши разработчики алгоритмов в различных готовых решениях.
Мы хотим поделиться с вами некоторыми ST функциями, которые сделают разработку ваших проектов проще и быстрее.

Нашёл ошибку в функции, Преобразование Даты и Времени в формат UnixTime, в первом посте. Нашёл случайно, работая с преобразованием времени.
В массиве с 0 по 12, должно быть 13 чисел, а у вас только 12, с января по ноябрь есть , а Декабрь потеряли, нет последнего числа 31. 1 Ошибка в функции .jpg

**Dimensy** · 25.03.2023, 17:15

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

Нашёл ошибку в функции, Преобразование Даты и Времени в формат UnixTime, в первом посте. Нашёл случайно, работая с преобразованием времени.
В массиве с 0 по 12, должно быть 13 чисел, а у вас только 12, с января по ноябрь есть , а Декабрь потеряли, нет последнего числа 31. 1 Ошибка в функции .jpg

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

**kondor3000** · 25.03.2023, 18:01

Судя по коду 12 месяц и не нужен, тогда и массив надо сделать с 0 до 11.

**petera** · 25.03.2023, 19:03

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

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

Если в массиве задать для месяцев сразу количество дней от начала года до начала месяца (0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334), то код можно было упростить - выбросить цикл
for i:= 0 to (month -1)
days:= days + DayInMonth[i]
end_for

что-то типа этого
days:= DayInMonth[month] + BOOL_TO_UDINT(month>2 and is_leap);

**Pvalp** · 30.03.2023, 15:32

Вот еще попробовал создать функцию fBOOL_INT на ST - аналог макроса BOOL_INT
Можно конечно еще причесать через FOR...

Код:

function fBOOL_INT: udint; //имя функции и тип данных выхода
    var_input //объявление входных переменных
        IN01 : bool; //входная переменная с типом данных bool
        IN02 : bool; //входная переменная с типом данных bool
        IN03 : bool; //входная переменная с типом данных bool
        IN04 : bool; //входная переменная с типом данных bool
        IN05 : bool; //входная переменная с типом данных bool
        IN06 : bool; //входная переменная с типом данных bool
        IN07 : bool; //входная переменная с типом данных bool
        IN08 : bool; //входная переменная с типом данных bool
    end_var
    
    var //объявление локальных переменных
        sel1 : udint; //локальная переменная с типом данных udint
        sel2 : udint; //локальная переменная с типом данных udint
        sel3 : udint; //локальная переменная с типом данных udint
        sel4 : udint; //локальная переменная с типом данных udint
        sel5 : udint; //локальная переменная с типом данных udint
        sel6 : udint; //локальная переменная с типом данных udint
        sel7 : udint; //локальная переменная с типом данных udint
        sel8 : udint; //локальная переменная с типом данных udint
    end_var
    
    if IN01 then sel1 :=1; else sel1 :=0; end_if
    
    if IN02 then sel2 :=2; else sel2 :=0; end_if
    
    if IN03 then sel3 :=4; else sel3 :=0; end_if
    
    if IN04 then sel4 :=8; else sel4 :=0; end_if
    
    if IN05 then sel5 :=16; else sel5 :=0; end_if
    
    if IN06 then sel6 :=32; else sel6 :=0; end_if
    
    if IN07 then sel7 :=64; else sel7 :=0; end_if
    
    if IN08 then sel8 :=128; else sel8 :=0; end_if
        
    fBOOL_INT := sel1+sel2+sel3+sel4+sel5+sel6+sel7+sel8;
    
end_function

**petera** · 30.03.2023, 15:56

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

Вот еще попробовал создать функцию fBOOL_INT на ST - аналог макроса BOOL_INT
Можно конечно еще причесать через FOR...

Код:

function fBOOL_INT: udint; //имя функции и тип данных выхода
    var_input //объявление входных переменных
        IN01 : bool; //входная переменная с типом данных bool
        IN02 : bool; //входная переменная с типом данных bool
        IN03 : bool; //входная переменная с типом данных bool
        IN04 : bool; //входная переменная с типом данных bool
        IN05 : bool; //входная переменная с типом данных bool
        IN06 : bool; //входная переменная с типом данных bool
        IN07 : bool; //входная переменная с типом данных bool
        IN08 : bool; //входная переменная с типом данных bool
    end_var
    
    var //объявление локальных переменных
        sel1 : udint; //локальная переменная с типом данных udint
        sel2 : udint; //локальная переменная с типом данных udint
        sel3 : udint; //локальная переменная с типом данных udint
        sel4 : udint; //локальная переменная с типом данных udint
        sel5 : udint; //локальная переменная с типом данных udint
        sel6 : udint; //локальная переменная с типом данных udint
        sel7 : udint; //локальная переменная с типом данных udint
        sel8 : udint; //локальная переменная с типом данных udint
    end_var
    
    if IN01 then sel1 :=1; else sel1 :=0; end_if
    
    if IN02 then sel2 :=2; else sel2 :=0; end_if
    
    if IN03 then sel3 :=4; else sel3 :=0; end_if
    
    if IN04 then sel4 :=8; else sel4 :=0; end_if
    
    if IN05 then sel5 :=16; else sel5 :=0; end_if
    
    if IN06 then sel6 :=32; else sel6 :=0; end_if
    
    if IN07 then sel7 :=64; else sel7 :=0; end_if
    
    if IN08 then sel8 :=128; else sel8 :=0; end_if
        
    fBOOL_INT := sel1+sel2+sel3+sel4+sel5+sel6+sel7+sel8;
    
end_function

Это делается так

Код:

function BYTE_OF_BIT: udint; //
//    (c) PeterA для ворума ОВЕН
    var_input //объявление входных переменных
    B0:BOOL;
    B1:BOOL;
    B2:BOOL;
    B3:BOOL;
    B4:BOOL;
    B5:BOOL;
    B6:BOOL;
    B7:BOOL;
    end_var
    
    BYTE_OF_BIT:= SHL(SHL(SHL(SHL(SHL(SHL(SHL(bool_to_udint(B7),1) + bool_to_udint(B6),1) 
                        + bool_to_udint(B5),1) + bool_to_udint(B4),1) + bool_to_udint(B3),1) 
                        + bool_to_udint(B2),1) + bool_to_udint(B1),1) + bool_to_udint(B0);
end_function

Тема: ST функции OWEN Logic

Опции темы

Отображение

Похожие темы

Групповые запросы в Owen Logic. Что хотите видеть в этой функции?

Owen Logic 2.1 нет экспорта устройства в Owen Cloud.

Добавление аварийных ситуаций в Owen Logic на ПР200 для отображения в Owen Cloud.

OWEN Logic v1.7

Тригонометрические функции OWEN Logic

Ваши права