имо підписи на кінцях відрізка інтегрування.
Рис. 8
Програмний код форми Form1:
down_predel As Singleup_predel As Singleznach_integrala As Doublechislo_razb As Longi As Single
'Public Io As Singley_max As Singley_min As Single
'Функція обчислення істинного значення інтеграла за формулою Ньютона-Лейбніца.Function istinnoe_znach_integrala (a As Single, b As Single) As Double
=0.15: b0=0.1: po=+8600: faradey=96500: M=64.5 * 10 ^ (- 3) _znach_integrala=Io * M/(2 * 2 * faradey * po * a0 * b0) * (b ^ 3/3 - 3/2 * b ^ 2 + 9 * b - 27 * Log ((b + 3)/3)) Function
'Функція обчислення інтеграла методом трапецій.
Function metod_trapec (a As Single, b As Single, n As Long) As Doubleh As Singles As Doublei As Long=(b - a)/n=(F (a, Io) + F ( b, Io)) * h/2i=1 To n - 1=s + F (a + i * h, Io) * hi_trapec=sFunction
'Функція обчислення інтеграла методом Сімпсона.
Function metod_Simpson (a As Single, b As Single, n As Long) As Doubleh As Singles As Doublei As Longx As Single=(b - a)/n=F (a, Io) + F (b, Io) + 4 * F (a + h, Io) i=1 To Int (n/2) - 1=a + 2 * h * i=s + 2 * F (x, Io) + 4 * F (x + h, Io) i_Simpson=s * h/3FunctionSub Command1_Click () i=0 To 9.Line (down_predel + i * (up_predel - down_predel)/10, 0) - (down_predel + i * (up_predel - down_predel )/10, F (down_predel + i * (up_predel - down_predel)/10, Io)). Line (down_predel + i * (up_predel - down_predel)/10, F (down_predel + i * (up_predel - down_predel)/10, Io)) - (down_predel + (i + 1) * (up_predel - down_predel)/10, F (down_predel + (i + 1) * (up_predel - down_predel)/10, Io)). Line (down_predel + (i + 1) * (up_predel - down_predel)/10, F (down_predel + (i + 1) * (up_predel - down_predel)/10, Io)) - (down_predel + (i + 1) * (up_predel - down_predel)/10, 0) iSub
'Функція виходу з програми
Sub MnuFileExit_Click () SubSub MnuFileOpen_rez_Click (). Show 1, Form1Sub
'Збереження результату в файл log.txtSub MnuFileSave_rez_Click () metod As StringOption1.Value Then= Метод трапецій = Метод Сімпсона If log.txt For Output As # 1 # 1, ЗВІТ ПО виконання обчислень # 1, Використовуваний метод: raquo ;, metod # 1, Час спостереження: raquo ;, up_predel # 1, Кількість розбиття відрізка інтегрування: raquo ;, chislo_razb # 1, Обчислення значення товщини шару: raquo ;, znach_integrala # 1, Істинне значення товщини шару: raquo ;, istinnoe_znach_integrala (down_predel, up_predel) # 1, Похибка обчислення: raquo ;, Abs (istinnoe_znach_integrala (down_predel, up_predel) - znach_integrala) # 1=MsgBox ( Звіт збережений успішно! amp; Chr (10) amp; Chr (13) amp; для перегляду звіту: Файл gt; gt; Перегляд звіту ,, Звіт ) SubSub MnuHelpAbout_Click (). Show 1, Form1SubSub MnuMatemGrafik_Pogreshn_click (). Show 1, Form1SubSub cmd_chet_Click () _ predel=0_predel=Val (Text1.Text)=Val (Text2.Text) _razb=Val (Text3.Text).Cls.Clschislo_razb lt;=0 Then Число розбиття відрізка інтегрування повинно бути більше нуля. raquo ;, vbCritical, Увага! SubIfup_predel lt; 0 Then Час випробувань не може бути негативним raquo ;, vbCritical, Увага! Raquo; SubIfOption1.Value Then_integrala=metod_trapec (down_predel, up_predel, chislo_razb) _integrala=metod_Simpson (down_predel, up_predel, chislo_razb) chislo_razb Mod 2=1 Then Число розбиття відрізка інтегрування при даному методі повинне бути парним. raquo ;, vbCritical, Увага! SubIfIf.Caption= Графік залежності сили струму на [ amp; down_predel amp; laquo ;; amp; up_predel amp; ] .Print znach_integrala.Print istinnoe_znach_integrala (down_predel, up_predel) _max=F (down_predel, Io) _min=F (down_predel, Io) i=down_predel To up_predel Step 0.001F (i, Io) lt; y_min Then_min=F (i, Io) IfF (i, Io) gt; y_max Then_max=F (i, Io) Ifi.Cls.DrawWidth=1.Scale (down_predel - (up_predel - down_predel)/3, y_max + (y_max - y_min)/3) - (up_predel + (up_predel - down_predel)/3 , y_min - (y_max - y_min)/3)
'Малювання осей
. Line (down_predel - (up_predel - down_predel)/3, 0) - (up_predel + (up_predel - down_predel)/3, 0) .Line (0, y_max + (y_max - y_min)/ 3) - (0, y_min - (y_max - y_min)/3)
'Стрілка на осі OX
. Line (up_predel + (up_predel - down_predel)/3, 0) - (up_predel + (up_predel - down_predel)/3 - (up_predel - down_predel)/24, (y_max - y_min)/50 ) .Line (up_predel + (up_predel - down_predel)/3, 0) - (up_predel + (up_predel - down_predel)/3 - (up_predel - down_predel)/24, - (y_max - y_min)/50)
'Стрілка на осі OY
. Line (0, y_max + (y_max - y_min)/3) - (- (up_...
