У вас вопросы?
У нас ответы:) SamZan.net

X MSFlexGrid1.TextMtrix0 1

Работа добавлена на сайт samzan.net: 2016-03-05

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

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




1. Т4 812 6404698 www
2. Тема Государство как субъект права курс 2 Фамилия студента Трегубо.html
3. Анаксагор
4. Реферат- Основные принципы и понятия гидробиологи
5. Писатель с которым я бы хотел встретиться
6. Предмет и метод гражданскоправового регулирования- понятие элементы характеристика
7. Простые вещества
8. Домострой один из первых в истории экономической мысли обращается к всестороннему изучению проблеме р
9. О различных типах людей
10. Первый спутник