Определенный интеграл - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д