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

[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) 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