разные вопросы новичка

[melky]

Netadmin, в понедельник сброшу пример по своему датчику топлива.
Правда у меня пересчет в scada выполняется, но думаю в лоджик на ST можно сделать аналогичное.

[Netadmin]

Netadmin, в понедельник сброшу пример по своему датчику топлива.
Правда у меня пересчет в scada выполняется, но думаю в лоджик на ST можно сделать аналогичное.

спасибо. не знаю смогу я на овен логик это спроецировать. с СТ дело не имел.

[kondor3000]

спасибо. не знаю смогу я на овен логик это спроецировать. с СТ дело не имел.

Готовая функция линейной апроксимации на 10 точек от Petera, можно снять зависимость объёма от уровня или зависимость объёма от давления.
На конус сделать 6-8 точек, выше конуса достаточно 2 точек. Тарировать в конусе и выше можно например, по 5-10 литров.
https://owen.ru/forum/showthread.php?t=35489&page=5

[1exan]

спасибо. не знаю смогу я на овен логик это спроецировать. с СТ дело не имел.

Можно тупо бахнуть всю таблицу в массив, и считать по нему:

FUNCTION GRAPH : REAL;

VAR_INPUT
    x     :REAL;
END_VAR
VAR
    arX: ARRAY[0..49] OF REAL := [1,    2,    3,    4,    5,    6,    7,    8,    9,    10,    11,    12,    13,    14,    15,    16,    17,    18,    19,    20,    21,    22,    23,    24,    25,    26,    27,    28,    29,    30,    31,    32,    33,    34,    35,    36,    37,    38,    39,    40,    41,    42,    43,    44,    45,    46,    47,    48,    49, 50];
    arY: ARRAY[0..49] OF REAL := [1,    2,    3,    4,    5,    6,    7,    8,    9,    10,    11,    12,    13,    14,    15,    16,    17,    18,    19,    20,    21,    22,    23,    24,    25,    26,    27,    28,    29,    30,    31,    32,    33,    34,    35,    36,    37,    38,    39,    40,    41,    42,    43,    44,    45,    46,    47,    48,    49, 50];
    i: udint;
END_VAR

IF    x < arX[0] THEN GRAPH := arY[0];
ELSIF x > arX[49] THEN GRAPH := arY[49];
ELSE
    FOR i:=0 TO 48 DO
        IF x >= arx[i] AND x <= arx[i+1] THEN
            GRAPH := LINEAR(x, arx[i], arx[i+1], ary[i], ary[i+1]);
        END_IF;
    END_FOR;
END_IF;

end_function


FUNCTION LINEAR : REAL;
VAR_INPUT
    rX, rX1, rX2, rY1, rY2 : REAL;
END_VAR

IF rX2 = rX1 THEN LINEAR := rY2;
ELSE LINEAR := (rX - rX1) * (rY2 - rY1) / (rX2 - rX1) + rY1;
END_IF;

end_function

[FPavel]

Можно тупо бахнуть всю таблицу в массив, и считать по нему:
[CODE]
FUNCTION GRAPH : REAL;

VAR_INPUT
x :REAL;
END_VAR
VAR
[CODE]

1exan, подскажите, на каком сервисе расцвечиваете исходники?
Тоже хочется красоты...

[1exan]

1exan, подскажите, на каком сервисе расцвечиваете исходники?
Тоже хочется красоты...

Что самое интересное - ни на каком. Просто копирую из OL

[FPavel]

Что самое интересное - ни на каком. Просто копирую из OL

Спасибо.
Слышал, что Visual Studio тоже обладает подобным свойством.
Возможно, у меня операционка старая или что-то в реестре начудил за много лет.

[МихаилГл]

Спасибо.
Слышал, что Visual Studio тоже обладает подобным свойством.
Возможно, у меня операционка старая или что-то в реестре начудил за много лет.

У меня раньше из codesys 3.5 в ворд нормально с расцветкой копировалось, а потом перестало. Так и не понял как вернуть это...