гого чісла.Col=4.Text=CStr (Math.Round ((S2), 2)). Col=5.Text=CStr (Math.Round ((S3) , 2)). Col=6.Text=CStr (Math.Round ((S4), 2)). Col=7.Text=CStr (Math.Round ((S5), 2))
'----------------------- формули ----------------------=0=0=(n * S3 - S1 * S2)/(n * S4 - S1 ^ 2)=(S4 * S2 - S1 * S3)/(n * S4 - S1 ^ 2)
--------------------------------------------------.Text=CStr (a) висновок a.Text=CStr (b) висновок bf (n) .Text= ОЧІСТІТЬj As Integer=1 To n (j)=a * x (j) + b.Text=TextBox3.Text + CStr (f (j)) + vbCrLf
розрахунок дисперсії=(1/(n * (n - 2))) * (n * S5 - S2 ^ 2 - ((n * S3 - S1 * S2) ^ 2)/ (n * S4 - S1 ^ 2)) Math.Sqrt корінь
'висновок сигма ^ 2.Text=CStr (sigma)
'--------------------------- дисперсія параметра a і b -----------------
sigmaA=(n * sigma)/(n * S4 - S1 ^ 2)=((1/n) * S4 * sigmaA) .Text=CStr (sigmaA) .Text=CStr (sigmaB )
---------------------------------------------------------=Math.Sqrt (sigmaA) * CSng (TextBox11.Text)=Math.Sqrt (sigmaB) * CSng (TextBox11.Text) .Text=CStr ( a) + +/- Raquo; + CStr (absalutA) .Text=CStr (b) + +/- Raquo; + CStr (absalutB)=Math.Exp (b) _2=0.693/a.Text=CStr (I0) .Text=CStr (T1_2) SubSub TextBox6_TextChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChangedTextBox6.Text lt; gt; Then.Rows=CInt (TextBox6.Text) + 2 + 1ТК верхній рядок сіра +1 для суммIfSubSub AxMSFlexGrid1_DblClick (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSFlexGrid1.DblClickSubSub TextBox7_TextChanged (ByVal sender As System. Object, ByVal e As System.EventArgs) Handles TextBox7.TextChangedSubSub AxMSFlexGrid1_ClickEvent (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSFlexGrid1.ClickEvent
TextBox7.Text=AxMSFlexGrid1.Text вікно для редагування даних табл=AxMSFlexGrid1.Row номер рядка=AxMSFlexGrid1.Col номер столбцаTextBox7.Text lt; gt; And (ColI=1 Or ColI=2) Then якщо перший або 2й стовпець то віконце редагування і кнопка активні
TextBox7.Enabled=True.Enabled=True: TextBox7.Enabled=False.Enabled=FalseIf
'рядок состоянія.Text= рядок= + CStr (RowI) + + Laquo; стовпець= + CStr (ColI) SubSub Button4_Click_1 (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
редагування табліциTextBox7.Text lt; gt; And (ColI=1 Or ColI=2) Then.Row=RowI.Col=ColIColI=1 Then 1й стовпець x (RowI)=CSng (TextBox7.Text) .Text=TextBox7.TextIfColI=2 Then другий стовпець I (RowI)=CSng (TextBox7.Text) .Text=TextBox7.TextIf () процедура розрахунку: TextBox7.Text= IfSubSub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles Button3.Click
'--------------------------------------------------------.Series.Clear().Series.Add(laquo;(Ipi; ? ) ). Series.Add ( Ipi (?) ). ChartAreas ( ChartArea1 ). AxisX.Title= ? , Ч. Raquo; .ChartAreas ( ChartArea1 ). AxisY.Title= Ipi, імп./Хв. Raquo; .Series ( Ipi (?) Raquo;). ChartType=DataVisualization.Charting.SeriesChartType. Spline.Series ( (Ipi;?) ). ChartType=DataVisualization.Charting.SeriesChartType.FastPoint.Series ( (Ipi;?) ). Color=Color.Red.Series ( Ipi ( ?) ). Color=Color.Blue.Series ( (Ipi;?) ). BorderWidth=3.Series ( Ipi (?) ). BorderWidth=2j As Integer=1 To n.Series ( (Ipi;?) ). Points.AddXY (x (j), Y (j)). Series ( Ipi (?) ). Points.AddXY (x (j), f (j))
Next
'----------------------------------------------------------------
'--------------------- експерементально ДАННИЕ.Series.Clear ()
Chart2.Series.Add ( (I;?) )
laquo;Chart2.Series.Add(laquo;f(x)raquo;).ChartAreas(laquo;ChartArea1raquo;).AxisX.Title = Laquo; ? , Ч. Raquo; .ChartAreas ( ChartArea1 ). AxisY.Title= I, імп./Хв. Raquo; raquo ;, f (x)"
'Chart2.Series ( f (x) ). ChartType=DataVisualization.Charting.SeriesChartType.Spline.Series ( (I;?) ). ChartType=DataVisualization. Charting.SeriesChartType.FastPoint.Series ( (I;?) ). Color=Color.Red
'Chart2.Series ( f (x) ). Color=Color.Blue.Series ( (I;?) ). BorderWidth=3
'Chart2.Series ( f (x) ). BorderWidth=2j As Integer=1 To n.Series ( (I;?) ). Points.AddXY ( x (j), I (j))
'Chart2.Series ( f (x) ). Points.AddXY (x (j), f (j)) SubClass
ВИСНОВКИ
У процесі роботи над курсовою роботою проведено аналіз методів статистичної обробки експериментальних даних. Розроблено програмне забезпечення для побудови статистичної моделі методом найменших квадратів в програмах Microsoft ...
