21 Февраль 2010

Вычисление определенного интеграла методом прямоугольников

Арифметика |  Таги: , , , ,

Вычисление определенного интеграла методом прямоугольников

Public b As Single
Public a As Single
Public Function f(d)
f = 1 / (1 + d ^ 4)
End Function
Private Sub Command1_Click()
a = 0 'нижний предел
b = 4 'верхний предел
h = 0.001 ' шаг
integral = 0
For d = a To b - h Step h
integral = integral + h * f(d)
Next d
Text1.Text = Round(Abs(integral), 3)
End Sub

Запись опубликована on 21.02.2010 at 15:41 и размещена в рубрике: Арифметика. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.