Программа
' Решение дифура y'=f(x,y)
' при известных начальных условиях
' x0, y0=f(x0) методом Эйлера
DECLARE FUNCTION DifAyl! (X!, Y!, Break%, Xresult!)
DEF FNDerivative! (X!, Y!) = 2 * X!'Производная
PRINT DifAyl!(0, 0, 100, 10) 'Вычисление первообразной
END
FUNCTION DifAyl! (X!, Y!, Break%, Xresult!) 'Вычисление значения исходной функции
S! = (Xresult! - X!) / Break% 'Определение шага разбиения
FOR Meter% = 0 TO Break% - 1
Y! = Y! + S! * (FNDerivative!(X! + Meter% * S!, Y!))
'Вычисление первообразной в точке Xresul
NEXT Meter%
DifAyl! = Y! 'Определение значения функции
END FUNCTION
Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию