X MSFlexGrid1.TextMtrix0 1
Работа добавлена на сайт samzan.net:
Dim x() As Single, y() As Single, k() As Single, z() As Single, p() As Single
Private y(0) As Single
Private x0 As Single
Private xk As Single
Private C As Single
Function f(t As Single, q As Single) As Single
f = (q+1)/t
End Function
Private Sub Command1_Click()
x0 = Val(Text1.Text)
xk = Val(Text2.Text)
y(0) = Val(Text4.Text)
h = Val(Text3.Text)
p(0) = y(0)
z(0) = y(0)
n = Round((xk - x0) / h)
C = (y(0) +1)/x0
MSFlexGrid1.Rows = n + 2
MSFlexGrid1.TextMatrix(0, 0) = "X"
MSFlexGrid1.TextMatrix(0, 1) = "P"
MSFlexGrid1.TextMatrix(0, 2) = "Yэ"
MSFlexGrid1.TextMatrix(0, 3) = "Yэм"
Max = y(0)
Min = y(0)
For i = 0 To n
x(i) = x0 + i * h
p(i) = Round(C * (x(i)-1), 3)
y(i + 1) = Round(y(i) + f(x(i), y(i)) * h, 3)
z(i + 1) = Round(z(i) + f(x(i) + h / 2, z(i) + h / 2 * f(x(i), z(i))) * h, 3)
If y(i) > Max Then Max = y(i)
If y(i) < Min Then Min = y(i)
MSFlexGrid1.TextMatrix(i + 1, 0) = Str(x(i))
MSFlexGrid1.TextMatrix(i + 1, 1) = Str(p(i))
MSFlexGrid1.TextMatrix(i + 1, 2) = Str(y(i))
MSFlexGrid1.TextMatrix(i + 1, 3) = Str(z(i))
Next i
Picture1.Cls
kx = (Picture1.Width - d) / (xk - x0)
ky = (Picture1.Height - e) / (Max - Min)
Label4.Caption = Str(Min)
Label5.Caption = Str(Max)
Label6.Caption = Str(x0)
Label7.Caption = Str(xk)
For i = 0 To n - 1
z1 = Round(a + (x(i) - x0) * kx)
z2 = Round(b - (y(i) - Min) * ky)
z3 = Round(a + (x(i + 1) - x0) * kx)
z4 = Round(b - (y(i + 1) - Min) * ky)
z5 = Round(b - (p(i) - Min) * ky)
z6 = Round(b - (p(i + 1) - Min) * ky)
z7 = Round(b - (z(i) - Min) * ky)
z8 = Round(b - (z(i + 1) - Min) * ky)
Picture1.Line (z1, z7)-(z3, z8)
Picture1.Line (z1, z5)-(z3, z6)
Picture1.Line (z1, z2)-(z3, z4)
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Конец
Line (z1, z2)-(z3, z4)
z5 = (b - (p(i) - Min) * ky)
4 = (b - (y(i + 1) - Min) * ky)
Line (z1, z5)-(z3, z6)
ky)
Line (z1, z7)-(z3, z8)
ky)
z8 = (b - (z(i + 1) - Min) * ky)
z7 = (b - (z(i) - Min) * ky)
z6 = (b - (p(i + 1) - Min) * ky)
z3 = (a + (x(i + 1) - x0) * kx)
z2 = (b - (y(i) - Min) * ky)
z1 = a + (x(i) - x0) * kx
i = 0 to n-1
ky = (Picture1.Height - e) / (Max - Min)
kx = (Picture1.Width - d) / (xk - x0)
Шаблон графика
Min = Y(i)
Y(i)<min
Max = Y(i)
Y(i)>max
min, max, x0, xk
3
2
1
3
2
1
z(0)=y(0)
p(0)=y(0)
c=(y(0)+1)/x0
n = (xk – x0)/h
x0, xk, y(0), h
Начало
i = 0 to n
Min = F(x0,y0)
Max = F(x0,y0)
z(i + 1) =(z(i) + F(x(i) + h / 2, z(i) + h / 2 * F(x(i), z(i))) * h)
y(i + 1)=(y(i) + F(x(i), y(i)) * h)
p(i) =(C * (x(i)-1))
x(i) = x0 + i*h
2. на тему- Анализ проблематики экономической мысли Древнего Востока
3. Социальное партнерство в организации
4. президента СССР Геннадия Янаева ряда руководителей ЦК КПСС правительства СССР армии и КГБ СССР и провозгла
5. Принципи дипломатичного протоколу та етикет
6. реферат дисертації на здобуття наукового ступеня доктора технічних наук Харків 2001 Дисертаці
7. Охрана труда и защита окружающей среды
8. Теоретичні відомості Спектральна ефективність різних видів кодування Перетворення повідом
9. DCS ЧЕМПИОНАТ ЮЖНОГО ФЕДЕРАЛЬНОГО ОКРУГА ПО СЦЕНИЧЕСКИМ ТАНЦАМ Танцевальное шоу Джаз Модерн Народны
10. К концу VI в на территории Британии образовалось семь раннефеодальных королевств Уэссекс Сассекс Кент М
11. качественники пытаются ввести какуюто классификацию описывающую сходства и различия подходов
12. Северный Арктический федеральный университет имени М.1
13. Ни для кого не секрет что ведущие производители автомобилей не производят сами основную массу запчастей
14. Разработка комплекса маркетинга по товар
15. реферат дисертації на здобуття наукового ступеня кандидата технічних наук Лу
16. наилучшим образом обеспечивающую оказание медицинских услуг лечебного реабилитационного и профилактиче.
17. Операційна діяльність підприємства
18. Цели и задачи 1
19. Эффективность применения технических средств в делопроизводстве
20. Социология 1Современные взгляды на предмет социологии и ее место в системе обществознания