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** · 25.03.2023, 18:01

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

**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

**1exan** · 30.03.2023, 16:09

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

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

Код:

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

Вариант:

Код:

...

BYTE_OF_BIT.	0	 := B0	;
BYTE_OF_BIT.	1	 := B1	;
BYTE_OF_BIT.	2	 := B2	;
BYTE_OF_BIT.	3	 := B3	;
BYTE_OF_BIT.	4	 := B4	;
BYTE_OF_BIT.	5	 := B5	;
BYTE_OF_BIT.	6	 := B6	;
BYTE_OF_BIT.	7	 := B7	;
end_function

**kondor3000** · 30.03.2023, 16:28

Ну вы заморочились)) Зачем вообще тут преобразования ?

Код:

function B8_M:  udint; ;//имя функции и тип данных выхода
    var_input //объявление входных переменных
        b0,b1,b2,b3,b4,b5,b6,b7: bool; //входная переменная с типом данных bool
    end_var
    
       B8_M.0:=b0; B8_M.1:=b1; B8_M.2:=b2; B8_M.3:=b3; B8_M.4:=b4; B8_M.5:=b5; B8_M.6:=b6; B8_M.7:=b7;
   
end_function

**1exan** · 30.03.2023, 16:35

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

Ну вы заморочились)) Зачем вообще тут IF и преобразования ?

Код:

function B8_M:  udint; ;//имя функции и тип данных выхода
    var_input //объявление входных переменных
        b0,b1,b2,b3,b4,b5,b6,b7: bool; //входная переменная с типом данных bool
    end_var
    var //объявление локальных переменных
    end_var
    
       B8_M.0 :=b0; B8_M.1 :=b1; B8_M.2 :=b2; B8_M.3 :=b3; B8_M.4 :=b4; B8_M.5 :=b5; B8_M.6 :=b6; B8_M.7 :=b7;
   
end_function

Да это не преобразование, я там в названии функции ошибся

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

Опции темы

Отображение

Комбинированный просмотр

Похожие темы

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

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

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

OWEN Logic v1.7

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

Ваши права