разобраться с кодом программы, а именно с интегральным исчислением функций методами трапеций

Всем привет!!!! Помогите разобраться с кодом программы, а именно с интегральным исчислением функций методами трапеций, прямоугольника и симсона, коды есть, не могу их разобрать, зачёт не могу сдать))) мне задают кучу вопросов по программе!!!!!!! Заранее спасибо)))

0

как должна выглядеть помощь
посмотрите в Вике, - там очень подробно описаны эти методы

0

я хотела сюда скинуть коды кнопок, чтобы мне объяснил кто - нибудь каждую строчечку=))) не могу разобрать реализацию этих методов, что есть что!!!!!!!!!!!!!!

0

Сообщение от Nas123 я хотела сюда скинуть коды кнопок

скиньте.

0

Код к заданию "Нахождение определённого интеграла методом прямоугольника"

Кнопка "Функция"

Private Sub CommandButton2_Click()
a = -0.5
b = 0.5
For i = 1 To 11
a = a + 0.1
x = a
'y = Sin(x) ^ 2 - (1 / 30 * Sin(x)) - (1 / 30)
y = Sin(x) ^ 2 - 2 / 5 * Sin(x) + (1 / 25)
Cells(i, 1).Value = x
Cells(i, 2).Value = y
Next i
End Sub



Кнопка "График"

Private Sub CommandButton3_Click()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.ChartStyle = 1
ActiveChart.ClearToMatchStyle
Range("O9").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""s"""
ActiveChart.SeriesCollection(1).XValues = "=прямоугольников!$A$1:$A$11"
ActiveChart.SeriesCollection(1).Values = "=прямоугольников!$B$1:$B$11"
End Sub


Кнопка "Решение"

Private Sub CommandButton1_Click()
a = -0.5
b = 0.5
x = 0
M = 200

s = (b - a) / M

For i = a To (M - 1) * s Step s
x = x + ((Sin(i) ^ 2 - 2 / 5 * Sin(i) + (1 / 25)) * s)
Cells(2, 10).Value = x
Cells(3, 10).Value = i
Next i


Cells(3, 10).Value = M

End Sub

Нахождение определённого интеграла методом Симпсона

Кнопка"Функция"
Private Sub CommandButton2_Click()
a = -0.5
b = 0.5
For i = 1 To 11
a = a + 0.1
x = a
y = Sin(x) ^ 2 - 2 / 5 * Sin(x) + (1 / 25)
Cells(i, 1).Value = x
Cells(i, 2).Value = y
Next i
End Sub

Кнопка"Решение"

Private Sub CommandButton1_Click()
a = -0.5
b = 0.5
x = 0

x = ((b - a) / 3)
x = x * ((Sin(a) ^ 2 - 2 / 5 * Sin(a) + (1 / 25)) + 4 * (Sin((a + b) / 2) ^ 2 - 2 / 5 * Sin((a + b) / 2) + (1 / 25)) + (Sin(b) ^ 2 - 2 / 5 * Sin(b) + (1 / 25)))

Cells(2, 10).Value = x

End Sub

Дифференциал методом Эйлера
Кнопка "Рассчитать"

Private Sub CommandButton1_Click()
f = Cells(2, 2).Value
x0 = Cells(2, 3).Value
a = Cells(4, 2).Value
b = Cells(4, 3).Value
p = Cells(4, 4).Value
h = (b - a) / p
For i = 0 To p
x = a + i * h
f = Fp(f) * h + f


Cells(i + 10, 2).Value = x
Cells(i + 10, 3).Value = Fp(x)
Cells(i + 10, 4).Value = f

Next i



End Sub

Кнопка "Очистить"
Private Sub CommandButton3_Click()
' Удаление с рабочего листа всех данных
ActiveSheet.ChartObjects.Add(165, 220, 400, 220).Select Application.CutCopyMode = False
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = Range(Cells(10, 2), Cells(30, 2))
ActiveChart.SeriesCollection(1).Values = Range(Cells(10, 4), Cells(30, 4))
ActiveSheet.ChartObjects.Delete

Range("B11:F51").Select
Selection.ClearContents
Range("G10").Select
Selection.ClearContents
Range("L08:R08").Select
Selection.ClearContents
Range("L10:R10").Select
Selection.ClearContents

Range("B7").Select
End Sub

0