Создать блок-схему по VBA коду: Sub буббимбамбум() Dim n As Integer, i As Integer Dim x() As Double, y() As Double Dim mLin() As Double, mQ() As Double, mExp() As Double Dim lastRow As Long lastRow = Cells(Rows.Count, "A").End(xlUp).Row n = lastRow - 1 If

Создать блок-схему по VBA коду: Sub буббимбамбум() Dim n As Integer, i As Integer Dim x() As Double, y() As Double Dim mLin() As Double, mQ() As Double, mExp() As Double Dim lastRow As Long lastRow = Cells(Rows.Count, "A").End(xlUp).Row n = lastRow - 1 If n < 2 Then MsgBox "Недостаточно точек", vbExclamation: Exit Sub ReDim x(1 To n), y(1 To n) ReDim mLin(1 To n), mQ(1 To n), mExp(1 To n) For i = 1 To n x(i) = Cells(i + 1, "A").Value y(i) = Cells(i + 1, "B").Value Next i Dim sumX As Double, sumY As Double, sumX2 As Double, sumXY As Double Dim sumX3 As Double, sumX4 As Double, sumX2Y As Double, sumLnY As Double Dim sumXLnY As Double For i = 1 To n sumX = sumX + x(i) sumY = sumY + y(i) sumX2 = sumX2 + (x(i) ^ 2) sumXY = sumXY + (x(i) y(i)) sumX3 = sumX3 + (x(i) ^ 3) sumX4 = sumX4 + (x(i) ^ 4) sumX2Y = sumX2Y + (x(i) ^ 2 y(i)) sumLnY = sumLnY + Log(y(i)) sumXLnY = sumXLnY + x(i) Log(y(i)) Next i Dim meanX As Double, meanY As Double meanX = sumX / n meanY = sumY / n Dim a1Lin As Double, a2Lin As Double a1Lin = (n sumXY - sumX sumY) / (n sumX2 - (sumX ^ 2)) a2Lin = (sumY - a1Lin sumX) / n Dim R2Lin As Double, sumLin As Double, sumTotal As Double Dim corrLin As Double For i = 1 To n mLin(i) = a2Lin + a1Lin x(i) K27 = K27 + (x(i) - meanX) (y(i) - meanY) L27 = L27 + (x(i) - meanX) ^ 2 M27 = M27 + (y(i) - meanY) ^ 2 sumTotal = sumTotal + (y(i) - meanY) ^ 2 sumLin = sumLin + (y(i) - mLin(i)) ^ 2 Next i corrLin = K27 / (Sqr(L27) Sqr(M27)) R2Lin = Abs(1 - sumLin / sumTotal) Dim AQ(1 To 3, 1 To 3), BQ(1 To 3, 1 To 1), KQ(1 To 3, 1 To 1) As Double Dim AInvQ() As Variant AQ(1, 1) = n: AQ(1, 2) = sumX: AQ(1, 3) = sumX2 AQ(2, 1) = sumX: AQ(2, 2) = sumX2: AQ(2, 3) = sumX3 A