44691184879, тоді домножимо дисперсії параметрів a і b на коефіцієнт Стьюдента знайдемо абсолютні помилки для a і b.
a=a ±? a · t=b ±? b · t
. I0=eb, T1/2=0,693/а (17)
4..
Слід зазначити, що похибка методу найменших квадратів в півтора рази менше, ніж у методу парних точок.
2. ПРАКТИЧНА ЧАСТИНА
.1 Блок-схема програмного комплексу
Для програми Microsoft Visual Studio:
Рис. 2.1
Для програми Microsoft Excel:
Рис. 2.2
2.2 Інструкція користувача програмного комплексу
Для програми Microsoft Visual Studio:
Вводимо кількість експериментальних даних n.
Вводимо експериментальні дані? і I.
Натискаємо кнопку побудувати графік.
Отримуємо таблицю розрахункових даних, шукані a, b, і, а також побудовані графіки функцій I (?) і Iрi (?).
Для програми Microsoft Excel:
Записуємо експериментальні? і I дані в таблицю
Будуємо графік функції I (?) і лінію тренда
Рис. 2.3
Створюємо розрахункові осередки щодо експериментальних даних, а саме, присвоюємо xi =? i, yi=Ln (Ii)
Робимо допоміжні розрахунки: xi · xi; xi · yi і yi · yi
Обчислюємо суми всіх розрахункових даних:
,,,
Отримуємо наступну таблицю:
№?, ЧI, імп./мін.х, чyх*хх*yy*y15237057,772538,8560,382101810107,5010075,0156,273151390157,24225108,5652,384201060206,97400139,3248,53525809256,70625167,3944,83635475356,161225215,7237,99745276455,622025252,9231,59сумма15547,954625997,77331,96
Знаходимо за формулами (13) a і b
Знаходимо дисперсії? 2,, за формулами (14), (15), (16)
Знаходимо абсолютні помилки для a і b
Знаходимо значення коефіцієнтів регресії і за формулами (17)
Будуємо графік функції Iрi (?)
Рис. 2.4
2.3 Скріншоти робочої програми
Скріншоти з програми Microsoft Visual Studio
Рис. 2.5
Рис. 2.6
Рис. 2.7
Рис. 2.8
Скріншоти з програми Microsoft Excel
Рис. 2.9
Рис. 2.10
Рис. 2.11
Рис. 2.12
2.4 Програмний код
Class Form1
Dim x () As SingleI () As DoubleY () As Doublen As Integerf () As Doublej As IntegerS1 As DoubleS2 As DoubleS3 As DoubleS4 As DoubleS5 As Doublea As Doubleb As DoubleRowI As IntegerColI As Integersigma As DoublesigmaA As DoublesigmaB As DoubleabsalutA As DoubleabsalutB As DoubleI0 As DoubleT1_2 As DoubleSub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
n=CSng (InputBox ( Введіть число n=))=CSng (TextBox6.Text) x (n) I (n) Y (n) .Col=1 raquo ; перший стіл?? ец.Row=0 'шапка
AxMSFlexGrid1.Text= годину ??raquo; 'заголовок в табл
'введення? j As Integer=1 To n (j)=CSng (InputBox ( Введіть число t ( amp; j amp; ) ))
laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo; TextBox1.Text=TextBox1.Text + CStr (x (j)) + vbCrLf.Col=1.Row=j - 1.Text=CStr (x (j))
номери рядків -----------------------. Row=j.Col=0.Text=CStr (j).Col=2 2й столбец.Row=0 шапка.Text= імп./хв заголовок табл
'введення Ij As Integer=1 To n (j)=CSng (InputBox ( Введіть число I ( amp; j amp; ) ))
laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo;laquo;raquo; TextBox2.Text=TextBox2.Text + CStr (I (j)) + vbCrLf
AxMSFlexGrid1.Col=2.Row=j - 1.Text=CStr (I (j)) (j)=Math.Log (I (j)) () SubSub myFunction ()=0=0=0=0=0.Row=0.Col=3. Text= x S1.Col=4.Text= y S2.Col=5.Text= x * y S3.Col=6.Text= x ^ 2 S4.Col=7.Text= y ^ 2 S5j As Integer=1 To n.Row=j.Col=3=x (j) + S1.Text=CStr (Math.Round (x (j), 2)). Col=4=S2 + Y ( j) .Text=CStr (Math.Round (Y (j), 2)). Col=5=S3 + x (j) * Y (j) .Text=CStr (Math.Round (x (j) * Y (j), 2)). Col=6=S4 + x (j) ^ 2.Text=CStr (Math.Round (x (j) ^ 2, 2)). Col=7=S5 + Y (j) ^ 2.Text=CStr (Math.Round (Y (j) ^ 2, 2)). Row=n + 1.Col=0.Text= сума .Col=3.Text=CStr (Math.Round ((S1), 2)) округляємо до дру...
