ПР200 зависимая(плавающая) уставка

**FPavel** · 26.02.2025, 23:03

Ну, вообще то, комплект КТР-121 поддерживает комбинированный режим погодозависимого регулирования:
- на выходе котла (котлов) поддерживается 70-90 градусов в зависимости от уличной температуры
- в контуре теплосети при помощи трёхходового поддерживается 35-90 градусов в зависимости от уличной температуры

Мы же не знаем, какая структура управления у автора темы...

В макросе по ссылке формула чуть попроще, но число разрядов тоже велико - это связано со степенью полинома.
Heizkurve из макроса

формула.PNG

**Валенок** · 26.02.2025, 23:24

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

- на выходе котла (котлов) поддерживается 70-90 градусов в зависимости от уличной температуры
- в контуре теплосети при помощи трёхходового поддерживается 35-90 градусов в зависимости от уличной температуры

Причем второму, если его норм подобрали, практически положить на то что там у котла, лишь бы не меньше итогового задания.
Сдается мне что тут классика - поиск локального оптимума

**Валенок** · 26.02.2025, 23:28

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

формула.PNG

А где N и S?

**EFrol** · 02.04.2025, 13:10

Можно и c базовой:

Код:

function PLAst: real;
    
    var_input
        Y0, Y1, Y2, Y3, Y4, Y5, Y6, Y7, Y8, Y9, Y10: real;
        Y11, Y12, Y13, Y14, Y15, Y16, Y17, Y18, Y19, Y20: real;
        X: real;    // Текущая
    end_var
    
    var 
        i: udint;   // Номер отрезка
        dX: real;   // Смещение от начала отрезка
        base: real := -50.0; // Базовая
    end_var
    
    if X < base then    // Меньше базовой
        i := 0;
    else                // Больше базовой - определяем номер отрезка
        for i := 1 to 20 do     // Проверяем каждый отрезок
            // Если X попадает в отрезок - определяем смещения от начала отрезка и выходим из цикла
            if X < base + 5 * udint_to_real(i) then
                dX := X - base - 5 * udint_to_real(i - 1); exit;
            end_if
            // В i будет номер найденного отрезка 
        end_for
    end_if
    
    if X > base + 5 * 20 then i := 21; end_if   // X выходит за диапазон
    
    // Определяем значение Y
    case i of
        0: PLAst := Y0; // Меньше базовой
        1: PLAst := Y0 + (Y1 - Y0) / 5 * dX; 
        2: PLAst := Y1 + (Y2 - Y1) / 5 * dX; 
        3: PLAst := Y2 + (Y3 - Y2) / 5 * dX; 
        4: PLAst := Y3 + (Y4 - Y3) / 5 * dX; 
        5: PLAst := Y4 + (Y5 - Y4) / 5 * dX; 
        6: PLAst := Y5 + (Y6 - Y5) / 5 * dX; 
        7: PLAst := Y6 + (Y7 - Y6) / 5 * dX; 
        8: PLAst := Y7 + (Y8 - Y7) / 5 * dX; 
        9: PLAst := Y8 + (Y9 - Y8) / 5 * dX; 
        10: PLAst := Y9 + (Y10 - Y9) / 5 * dX; 
        11: PLAst := Y10 + (Y11 - Y10) / 5 * dX; 
        12: PLAst := Y11 + (Y12 - Y11) / 5 * dX; 
        13: PLAst := Y12 + (Y13 - Y12) / 5 * dX; 
        14: PLAst := Y13 + (Y14 - Y13) / 5 * dX; 
        15: PLAst := Y14 + (Y15 - Y14) / 5 * dX; 
        16: PLAst := Y15 + (Y16 - Y15) / 5 * dX; 
        17: PLAst := Y16 + (Y17 - Y16) / 5 * dX; 
        18: PLAst := Y17 + (Y18 - Y17) / 5 * dX; 
        19: PLAst := Y18 + (Y19 - Y18) / 5 * dX; 
        20: PLAst := Y19 + (Y20 - Y19) / 5 * dX; 
        21: PLAst := Y20; // Выходит за диапазон
    end_case

end_function

**Dimensy** · 02.04.2025, 14:01

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

Можно и c базовой:

Код:

function PLAst: real;
    
    var_input
        Y0, Y1, Y2, Y3, Y4, Y5, Y6, Y7, Y8, Y9, Y10: real;
        Y11, Y12, Y13, Y14, Y15, Y16, Y17, Y18, Y19, Y20: real;
        X: real;    // Текущая
    end_var
    
    var 
        i: udint;   // Номер отрезка
        dX: real;   // Смещение от начала отрезка
        base: real := -50.0; // Базовая
    end_var
    
    if X < base then    // Меньше базовой
        i := 0;
    else                // Больше базовой - определяем номер отрезка
        for i := 1 to 20 do     // Проверяем каждый отрезое
            // Если X попадает в отрезок - определяем смещения от начала отрезка и выходим из цикла
            if X >= base + 5 * udint_to_real(i - 1) and X < base + 5 * udint_to_real(i) then
                dX := X - base - 5 * udint_to_real(i - 1); exit;
            end_if
            // В i будет номер найденного отрезка 
        end_for
    end_if
    
    if X > base + 5 * 20 then i := 21; end_if   // X выходит за диапазон
    
    // Определяем значение Y
    case i of
        0: PLAst := Y0; // Меньше базовой
        1: PLAst := Y0 + (Y1 - Y0) / 5 * dX; 
        2: PLAst := Y1 + (Y2 - Y1) / 5 * dX; 
        3: PLAst := Y2 + (Y3 - Y2) / 5 * dX; 
        4: PLAst := Y3 + (Y4 - Y3) / 5 * dX; 
        5: PLAst := Y4 + (Y5 - Y4) / 5 * dX; 
        6: PLAst := Y5 + (Y6 - Y5) / 5 * dX; 
        7: PLAst := Y6 + (Y7 - Y6) / 5 * dX; 
        8: PLAst := Y7 + (Y8 - Y7) / 5 * dX; 
        9: PLAst := Y8 + (Y9 - Y8) / 5 * dX; 
        10: PLAst := Y9 + (Y10 - Y9) / 5 * dX; 
        11: PLAst := Y10 + (Y11 - Y10) / 5 * dX; 
        12: PLAst := Y11 + (Y12 - Y11) / 5 * dX; 
        13: PLAst := Y12 + (Y13 - Y12) / 5 * dX; 
        14: PLAst := Y13 + (Y14 - Y13) / 5 * dX; 
        15: PLAst := Y14 + (Y15 - Y14) / 5 * dX; 
        16: PLAst := Y15 + (Y16 - Y15) / 5 * dX; 
        17: PLAst := Y16 + (Y17 - Y16) / 5 * dX; 
        18: PLAst := Y17 + (Y18 - Y17) / 5 * dX; 
        19: PLAst := Y18 + (Y19 - Y18) / 5 * dX; 
        20: PLAst := Y19 + (Y20 - Y19) / 5 * dX; 
        21: PLAst := Y20; // Выходит за диапазон
    end_case

end_function

Чисто ради любопытства. А зачем проверять обе границы отрезка?
По-моему, достаточно только одну границу смотреть

Код:

if X < X[i]

**EFrol** · 02.04.2025, 14:53

Да. Если есть выход из цикла, то можно.

**FPavel** · 02.04.2025, 19:44

А если номер отрезка определять делением?

**EFrol** · 02.04.2025, 20:59

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

А если номер отрезка определять делением?

Отличное предложение!!!

Код:

function PLAst: real;
    
    var_input
        Y0, Y1, Y2, Y3, Y4, Y5, Y6, Y7, Y8, Y9, Y10: real;
        Y11, Y12, Y13, Y14, Y15, Y16, Y17, Y18, Y19, Y20: real;
        X: real;    // Текущая
    end_var
    
    var 
        i: udint;   // Номер отрезка
        dX: real;   // Смещение от начала отрезка
        base: real := -50.0; // Базовая
    end_var
    
    if X < base then    // Меньше базовой
        i := 0;
    else                // Больше базовой - определяем номер отрезка
        i := real_to_udint(X - base) / 5 + 1;
        if i > 20 then i := 21; else dX := X - base - 5 * udint_to_real(i - 1); end_if
    end_if
    
    // Определяем значение Y
    case i of
        0: PLAst := Y0; // Меньше базовой
        1: PLAst := Y0 + (Y1 - Y0) / 5 * dX; 
        2: PLAst := Y1 + (Y2 - Y1) / 5 * dX; 
        3: PLAst := Y2 + (Y3 - Y2) / 5 * dX; 
        4: PLAst := Y3 + (Y4 - Y3) / 5 * dX; 
        5: PLAst := Y4 + (Y5 - Y4) / 5 * dX; 
        6: PLAst := Y5 + (Y6 - Y5) / 5 * dX; 
        7: PLAst := Y6 + (Y7 - Y6) / 5 * dX; 
        8: PLAst := Y7 + (Y8 - Y7) / 5 * dX; 
        9: PLAst := Y8 + (Y9 - Y8) / 5 * dX; 
        10: PLAst := Y9 + (Y10 - Y9) / 5 * dX; 
        11: PLAst := Y10 + (Y11 - Y10) / 5 * dX; 
        12: PLAst := Y11 + (Y12 - Y11) / 5 * dX; 
        13: PLAst := Y12 + (Y13 - Y12) / 5 * dX; 
        14: PLAst := Y13 + (Y14 - Y13) / 5 * dX; 
        15: PLAst := Y14 + (Y15 - Y14) / 5 * dX; 
        16: PLAst := Y15 + (Y16 - Y15) / 5 * dX; 
        17: PLAst := Y16 + (Y17 - Y16) / 5 * dX; 
        18: PLAst := Y17 + (Y18 - Y17) / 5 * dX; 
        19: PLAst := Y18 + (Y19 - Y18) / 5 * dX; 
        20: PLAst := Y19 + (Y20 - Y19) / 5 * dX; 
        21: PLAst := Y20; // Выходит за диапазон
    end_case

end_function

**barrymore** · 03.04.2025, 10:00

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

Отличное предложение!!!

Код:

         if i > 20 then i := 21; else dX := X - base - 5 * udint_to_real(i - 1); end_if

Спасибо!
После сравнения последних вариантов, надеюсь я разобрался, как они работают.
Если операция MOD работает с типом real, то нахождение dX можно упростить до
dX := X mod 5
Проверил, ошибок нет, в железе ещё не проверял.
PS: Нет, не прокатило. MOD работает только с целыми числами.

Возникла ещё ошибка/предупреждение при подключении макроса Pt1000 из онлайн базы.
Там было подключение с выхода на вход в блоке SEL_FLOAT2, заменил на линию задержки.
Pt1000.png

**barrymore** · 08.04.2025, 07:56

Всё получилось, больше всего времени ушло на пользовательское меню: вывод значений, сообщение о неисправных датчиках и настройка параметров.
В процессе понадобилось добавить гистерезис, и чтобы не изобретать велосипед, решил воспользовался поиском на этом форуме. Результатов много, но в выдаче не конкретные сообщения, а только темы с десятками-сотнями страниц. На тот момент я не разобрался в поиске, можно выводить темы, а можно сообщения. В общем, сделал по своему:
ProgramRelayFBD_oiaEt6ZmXq.png
За пределами скриншота только чуть изменённый макрос PLAst от EFrol. Кстати, насчёт высоких порядков - в макросе Pt1000 из онлайн базы используется кв.корень, 1, 2, 3 и 4-я степень входного параметра. И самодельные макросы SEL_FLOAT - наверное на момент написания Pt1000 ещё не было встроенных fSEL и SEL.

Тема: ПР200 зависимая(плавающая) уставка

Опции темы

Отображение

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

Похожие темы

Настройка ПИД в ПР200 (уставка/время)

ТРМ-151 Уставка

Плавающая обшибка конфигуратора ТРМ202

уставка

уставка на трм 151-03

Метки этой темы

Ваши права