Определенный интеграл - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! Помогите, пожалуйста, с курсачем. Мысль в чем. Нужно посчитать значение интеграла методом Монте-Карло. Сам метод я понимаю, но реализовать не получается. А именно, как ограничить попадание точек под график и посчитать количество оных. Сама функция долбанутая:
это уже функция, т.е.
Искал по форуму, нашел реализацию метода, но применить к данной ситуации - никак. Заранее благодарю.

Решение задачи: «Определенный интеграл»

textual
Листинг программы
Private Sub Command1_Click()
Dim s!, x!, f1!, f2!, f3!, f4!,i!
s = 0
'f3 = InputBox("Ввведите верхний предел")
'f4 = InputBox("Ввведите нижний предел")
f4 = InputBox("Ввведите количество точек")
For i = 1 To f4 
x=rnd(1) ' от 0 до 1 - 
 f1 = 2 * Exp(x ^ ((x - 4) / 8)) - 2 * x + (4 * Sin((x / 4) ^ 2 + x)) ^ 2
 s = s + f1
Next i
MsgBox "Ploshad opredelennogo integrala = " & s
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.267 из 5
Похожие ответы