Функция округления вещественных чмсел

[Cbug]

Вот это деловой подход!
С такими талантами думаю Вам под силу написать "народную" функцию универсального округления!
С удовольствием добавлю ее в свою библиотеку.

[Sergey666]

Да... ребята. Прямо сборище интеллектуалов!

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

Функция реально рабочая - преобразует значения датчиков давления (со всегда положительными значениями) в регистр modbus, для последующего отображения на hmi со смещением десятичной точки.

Заменить типы переменных на какие кому необходимо не составит труда.

Датчики давления со всегда положительными значениями... нда теоретик , а что будет показывать функция ваша, если датчик чуть-чуть свакуумировался (такое бывает сплошь и рядом), или дрожание значения 3.8ма...4.2ма? И ведь пишут теоретики ересь типа real_to_word, а в результате та-дам ни с того ни с сего защиты отработали и...ракета...самолет утонули в мировом океане, хим завод выбросил в окружающую среду какую-то вредную хрень и тд и тп.
А неопытному новичку на форумах нефиг знаний искать!!! Только ответы на конкретные вопросы! А знания надо искать в учебниках, руководствах пользователя и пр. документах, благо интернет сейчас позволяет не рыскать по техническим библиотекам!

[Sergei2257]

Всем привет. Как будет выглядеть функция ROUND на языке ST?

[kondor3000]

Всем привет. Как будет выглядеть функция ROUND на языке ST?

Например так

FUNCTION ROUND : REAL
VAR_INPUT
      in : REAL;
      N : INT;     //    кол-во знаков от 0 до 5  
END_VAR
VAR
     X: REAL;
     DECADES : ARRAY[0..5] OF REAL := [1.0,10.0,100.0,1000.0,10000.0,100000.0];
END_VAR
___________________________________________________________________
X :=DECADES[LIMIT(0,N,5)];
ROUND := DINT_TO_REAL(REAL_TO_DINT(in * X)) / X;  // 1 вариант обрезание

// ROUND := DINT_TO_REAL( TRUNC( 100* ( in+ 0.005 ) ) ) / 100;   // 2 вариант округление

[Сергей0308]

Вот проблему нашли, в смысле, на FBD, вроде как ещё 14 миллиардов лет тому назад делали, мне кажется ещё до Большого взрыва:

Округление.png

[Валенок]

Например так

FUNCTION RAUND : REAL
VAR_INPUT
      in : REAL;
      N : INT;
END_VAR

VAR
     X: REAL;
    DECADES : ARRAY[0..8] OF REAL := 1.0,10.0,100.0,1000.0,10000.0,10000.0,100000.0,1000000.0,10000000.0;
END_VAR
________________________________________________________________
X :=DECADES[LIMIT(0,N,8)];
RAUND := DINT_TO_REAL(REAL_TO_DINT(in * X)) / X;  // 1 вариант обрезание

RAUND := DINT_TO_REAL( TRUNC( 100* ( in+ 0.005 ) ) ) / 100;    // 2 вариант округление

Как по мне, не вижу смысла указывать какие-то "точки после запятой". Просто округлитель передать и все.
Нужно 0.1 - так его и передать. Нативно и очевидно. Нужно до 5 округлить - новую функцию писать?

[FPavel]

Числа real почти всегда будут иметь в десятичном представлении что угодно, кроме нулей. Поэтому подозреваю, что запрос этой функции - неправильное решение какой-то задачи.

Так для чего требуется округление для чисел типа real?

[Сергей0308]

Числа real почти всегда будут иметь в десятичном представлении что угодно, кроме нулей. Поэтому подозреваю, что запрос этой функции - неправильное решение какой-то задачи.

Так для чего требуется округление для чисел типа real?

Так вроде округлять можно до целых, десятых долей, сотых долей единиц измерения и т. д., в смысле, непонятно при чём здесь нули, их при округлении может не быть совсем!

[FPavel]

Дело в том, что в формате чисел real невозможно точно выразить и хранить числа, не являющиеся степенью числа 2. Поэтому округление значения в памяти переменной - просто потеря точности, т.к. число после округления станет чем-то подобным 1,000000001 или 0,999999999, но никак не 1,00000000 - пример условный. Это свойство формата хранения.

Поэтому и интересуюсь - какая задача решалась изначально? Ну не вывод же числа на экран самодельной подпрограммой - вопрос в разделе СПК, который, наверняка, имеет штатный элемент визуализации чисел.

Какая задача решалась изначально?