Решить определеный интеграл разными методами (прямоугольников, трапеций и Симпсона) - VB
Формулировка задачи:
здрасти!
у меня проблемка, в понедельник зачет по Visual Basic в Excel, а мне нужно разобраться или хотябы посмотреть как это выглядит!?я просто не бум бум в этом...
нужно решить определеный интеграл разными методами (прямоугольников, трапеций и Симпсона)
и корни уравнения найти тоже несколькими методами Ньютона и делением отрезка пополам
кто может помогите
мне хотябы посмотреть как в общем прогараммы выглядят...
неужели никто не знает(((
Решение задачи: «Решить определеный интеграл разными методами (прямоугольников, трапеций и Симпсона)»
textual
Листинг программы
Private Sub niuton() Dim x1 As Double Dim x2 As Double Dim x3 As Double Dim y1 As Double Dim y2 As Double Dim y3 As Double s = Sin(3 * x ^ 2 - 4 * x - 5) n = Val(InputBox("ÏðèáëèæåГ*ГЁГҐ")) x1 = 1.7 Do Until Abs((x3 - x1)) <= n x2 = x1 - Sin(3 * x1 ^ 2 - 4 * x1 - 5) / (6 * x1 - 4) / Cos(3 * x1 ^ 2 - 4 * x1 - 5) x3 = x1 x1 = x2 DoEvents Loop MsgBox "Måòîä ГЌГјГѕГІГ®Г*Г* Гµ = " & x2 MsgBox "Г‡Г*Г*Г·ГҐГ*ГЁГҐ ГіГ°Г*ГўГ*ГҐГ*ГЁГї " & s End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д