Взятие интеграла методом СимпсонаDelphi , Синтаксис , МатематикаВзятие интеграла методом Симпсона
Автор: Mystic { **** UBPFD *********** by delphibase.endimus.com **** >> Взятие интеграла методом Симпсона Интеграл методом Симпсона A, B - интервал интегрирования N - число точек на интервале Func - функция, от которой берется интеграл. Возвращаемое значение - значение интеграла Зависимости: System Автор: Mystic, mystic2000@newmail.ru, ICQ:125905046, Харьков Copyright: Mystic Дата: 25 апреля 2002 г. ***************************************************** } type TFunction = function(X: Extended; Arg: Pointer): Extended; function Simpson(A, B: Extended; N: Cardinal; Func: TFunction; Arg: Pointer): Extended; var h: Extended; X: Extended; K: Extended; I: Integer; begin Assert(N > 0); h := 0.5 * (B - A) / N; Result := Func(A, Arg); X := A + h; for I := 1 to 2 * N - 1 do begin if I mod 2 = 0 then K := 2 else K := 4; Result := Result + K * Func(X, Arg); X := X + h; end; Result := Result + Func(B, Arg); Result := h * Result / 3; end; Статья Взятие интеграла методом Симпсона раздела Синтаксис Математика может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Математика ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |