function fX takes real x  returns real
    //Тут вычисляем нашу подинтегральную функцию: y=x^2+5x-2.
    return (x*x+5*x-2)
endfunction

function Trig_dfg_Actions takes nothing returns nothing
    //Вычислим интеграл (от 2 до 4 (f(x^2+5x-2)dx)) методом прямоугольников.
    local real I=0.     
    local real a=2       //Левая граница интеграла
    local real b=4       //Правая граница интеграла
    local integer n=100 //Точность вычислений
    local real h=((b-a)/n)
    local real x=a  
    local integer i=1
    loop
        exitwhen (i == n)
        set x=x+h
        set I=I+fX(h*i+a)
        set i = i + 1
    endloop
    set I=I*h
    call DisplayTextToForce( GetPlayersAll(), ( "Метод прямоугольников." ) )
    call DisplayTextToForce( GetPlayersAll(), ( "Интеграл от 2 до 4 ( F(x^2+5x-2)dx ): " + R2S(I) ) )
endfunction

//===========================================================================
function InitTrig_dfg takes nothing returns nothing
    set gg_trg_dfg = CreateTrigger(  )
    call TriggerRegisterTimerEventSingle( gg_trg_dfg, 1 )
    call TriggerAddAction( gg_trg_dfg, function Trig_dfg_Actions )
endfunction