ST функции OWEN Logic

[kondor3000]

Для тех, кто хочет поломать голову в свободное время, на днях столкнулся со сборкой REAL из 2 WORD в этой теме https://owen.ru/forum/showthread.php?t=39248&page=4#39
Открыл что было быстрее, в ОЛ программу сборки от capzap ( когда то он её выложил в одной из тем), программу проверял в нескольких пределах, всё работало правильно.
Ввёл числа 52429 и 16268 и получил 0.1 1 Сборка REAL.jpg Потом проверил в другой программе Codesys 2.3 , получил 1.1 1 Передача REAL_2.jpg
Позже оказалось что Функция arrWToReal, врёт только на пределе от 1.0 до 1.99999 и от -1.0 до -1.99999, на остальных пределах считает правильно.
Вопрос, где ошибка в коде функции arrWToReal ?

Выложил вариант в Лоджике и в Codesys 2.3, кому как удобнее.
В Codesys 2.3, для сравнения функция через указатели, считает правильно.
Сам пока решил, вводом дополнительной строки в конце функции.

[capzap]

Для тех, кто хочет поломать голову в свободное время, на днях столкнулся со сборкой REAL из 2 WORD в этой теме https://owen.ru/forum/showthread.php?t=39248&page=4#39
Открыл что было быстрее, в ОЛ программу сборки от capzap ( когда то он её выложил в одной из тем), программу проверял в нескольких пределах, всё работало правильно.
Ввёл числа 52429 и 16268 и получил 0.1 1 Сборка REAL.jpg Потом проверил в другой программе Codesys 2.3 , получил 1.1 1 Передача REAL_2.jpg
Позже оказалось что Функция arrWToReal, врёт только на пределе от 1.0 до 1.99999 и от -1.0 до -1.99999, на остальных пределах считает правильно.
Вопрос, где ошибка в коде функции arrWToReal ?

Выложил вариант в Лоджике и в Codesys 2.3, кому как удобнее.
В Codesys 2.3, для сравнения функция через указатели, считает правильно.
Сам пока решил, вводом дополнительной строки в конце функции.

я посмотрел другие примеры, в них отсутствет такой код

if exponent = 0 then
    mant_mult := 0;
else
    mant_mult := 1;
end_if;

вместо него надо просто записать mant_mult := 1;

[kondor3000]

я посмотрел другие примеры, в них отсутствет такой код

if exponent = 0 then
    mant_mult := 0;
else
    mant_mult := 1;
end_if;

вместо него надо просто записать mant_mult := 1;

Согласен, так считает правильно, у меня получилось немного длиннее)))
Выкладываю исправленные варианты.

ЗЫ: Добавляю, при 0 результат не верный, правильно так

if exponent =-127.0 then
        mant_mult := 0;
      else
        mant_mult := 1;
end_if;

[Валенок]

..Выложил вариант в Лоджике..

секунда перфекционизма
Внешняя часть. А внутренности сами выше разобрали

А что может сподвигнуть на использование этой склейки?

---
и вот например

negative := shr(stuffAdd, 31) > 0;

==

negative := stuffAdd.31;

это ж не какое-то там си ))

[kondor3000]

секунда перфекционизма
Внешняя часть. А внутренности сами выше разобрали

А что может сподвигнуть на использования этого?

Этот вариант у меня уже давно есть, только в выложенном варианте опять ошибка, получается 0.1 1 Ошибка в вычислении.jpg а здесь правильно 1.1 1 Нет ошибки.jpg

[Валенок]

в выложенном варианте опять ошибка...

))

А внутренности сами выше разобрали

я туда не лазил. Вам верю

[Валенок]

А с 31 битом в Лоджике проблемы и уже давно, ждём когда исправят, поэтому так не катит.

Катит. Это ж функция а не фБ. В нем не катит чего то.
Да и ДО того как сделаться 31-ым, он 15-й

[Денисов Максим Сергеевич]

Катит. Это ж функция а не фБ. В нем не катит чего то.
Да и ДО того как сделаться 31-ым, он 15-й

В функциях этот баг был исправлен ранее, в ФБ исправим и выпустим в ближайшем хотфиксе

[Валенок]

В функциях этот баг был исправлен ранее,

А чего в функцию нельзя пихнуть целочисленное 3млрд?