Цитата Сообщение от kondor3000 Посмотреть сообщение
Один из блоков явно врёт
сейчас не должен
Код:
function Solver: real;
    var_input
        res : real;
    end_var    
    var
        W1 : real;
        W2 : real;
        W3 : real;
        W4 : real;
        W5 : real;
        W6 : real;
        W7 : real;
        W8 : real;
    end_var
    
    W1 := res * 0.13878908745962965  + -11.169647158936789;
    W2 := res * -0.705290296164642  + -0.49852562738434325;
    W3 := res * -0.12242029107039004  + -0.41234795849720013;
    W4 := res * 0.009448343410483588  + -10.07187851154708;
    W5 := res * 0.40872556066351257  + 7.926780715730983;
    W6 := res * -0.14062452668260786  + -0.014881062272203267;
    W7 := res * -0.007041981194077907  + 9.971070083280027;
    W8 := res * -0.0201389901625474  + -0.38648060746547913;
    if W1 <= 0.0 then W1 := 0.0; end_if
    if W2 <= 0.0 then W2 := 0.0; end_if
    if W3 <= 0.0 then W3 := 0.0; end_if
    if W4 <= 0.0 then W4 := 0.0; end_if
    if W5 <= 0.0 then W5 := 0.0; end_if
    if W6 <= 0.0 then W6 := 0.0; end_if
    if W7 <= 0.0 then W7 := 0.0; end_if
    if W8 <= 0.0 then W8 := 0.0; end_if
    
    Solver := W1 * 13.259300412601876 + W2 * -0.09680719090111181 + W3 * -0.6471391858393304 + W4 * -3.772583236036509 + W5 * -4.00162988810079 + W6 * -0.28310643866597995 + W7 * -4.494375283061582 + W8 * -0.573359836329579 + -11.711165689542185;
end_function