Разработка в Visual Basic приложения "Исследование методов вычисления определённых интегралов"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
1)= Val(Text2)= Val(Text3)Option1.Value Then
h = (b - a) / n= 0= ai = 0 To n - 1
y = f(x)= s + y= x + h
D = s * hIfOption2.Value Then
h = (b - a) / n= 0= ai = 1 To n - 1= x + h= f(x)
s = s + y
D = (2 * s + f(a) + f(b)) / (2 * n)If.Print DSubSub Command2_Click().Show.HideSubSub Command3_Click().Show.HideSubSub Command5_Click()
Form4.ShowSub
Код программы построения графика
Private Sub Command1_Click()
MaxThenMax=f(i)f(i) Max Then Max = f(i)f(i) < Min Then Min = f(i)
Picture1.Scale (a, Max)-(b, Min).Line (a, Min)-(b, Min).Line (a, Min)-(a, Max)i = a To b Step 0.001.PSet (i, f(i))
h = (b - a) / nk = a To b Step h.Line (k, f(k + h))-(k + h, 0), RGB(255, 0, 0), BSubSub Command2_Click().HideSubSub Command3_Click().ClsSub
Код программы исследования на погрешность
Dim Et(200) As Doublees(200) As DoubleSub Check2_Click()SubSub Command1_Click().Hide.ShowSubFunction f(x)
f = (x ^ 3) / (3 + x)Function
Public Function f1(x)= x ^ 3 / 3 - 1.5 * x ^ 2 + 9 * x - 27 * Log(Abs(x + 3))FunctionSub Command2_Click()= Text1= Text2= 10= 200n = 1 To 200 Step 10.Cls= (b - a) / n= f1(b) - f1(a).Print "S= "; s.Cls.Scale (0, 40)-(215, -2).Line (0, 0)-(215, 0).Line (10, 0)-(10, 200)= 0= 1= 0n = 10 To 200 Step 10
h = (b - a) / n= 0= 0i = 1 To n
X1 = X1 + h= s + f(X1)
Pr = h * s= (b - a) / n= 0= 0i = 1 To n - 1= X1 + h= s + f(X1)= ((b - a) / (2 * n)) * (a + b + 2 * s)_L = f1(b) - f1(a)(j) = Abs(Pr - N_L) * 100(j) = Abs(Tr - N_L) * 100= j + 1n= 10i = 0 To j.Line (n, 0)-(n, -0.5).Print nn = 200 Then Exit For.Line (n, Et(i))-(n + 10, Et(i + 1)), vbRed.Line (n, es(i))-(n + 10, es(i + 1)), vbBlue= n + 10i = 2 To 40 Step 2.Line (8, i)-(10, i).Print i= Text4Check1.Value = vbChecked Then
Open save For Output As 1
Print #1, "корень уравнения"; Format(X1, "0.000")
Close #1IfSubSub Text3_Change()Sub
25.