---

Sub GenerateRegressionTable()
    Dim x1 As Double, x2 As Double, x3 As Double
    Dim b0 As Double, b11 As Double, b22 As Double, b33 As Double
    Dim row As Integer, col As Integer
    Dim step As Double
    
    ' Коэффициенты из файла 141b2f7c-c59c-4412-af1a-f83fa30127d2
    b0 = 91.0495
    b11 = -24.4401
    b22 = -15.5062
    b33 = -12.5194
    
    ' Фиксируем третий фактор (например, на среднем уровне 0)
    x3 = 0
    
    ' Настройка таблицы на новом листе
    Cells.Clear
    Cells(1, 1).Value = "Таблица регрессии (X3 = " & x3 & ")"
    Cells(2, 1).Value = "X1 \ X2"
    
    step = 0.4 ' Шаг изменения факторов от -1.682 до 1.682
    
    ' Создаем заголовки столбцов (X2)
    col = 2
    For x2 = -1.6 To 1.6 Step step
        Cells(2, col).Value = Round(x2, 2)
        col = col + 1
    Next x2
    
    ' Заполняем строки (X1) и считаем Y
    row = 3
    For x1 = -1.6 To 1.6 Step step
        Cells(row, 1).Value = Round(x1, 2) ' Заголовок строки
        
        col = 2
        For x2 = -1.6 To 1.6 Step step
            ' Формула на основе файла 141b2f7c-c59c-4412-af1a-f83fa30127d2
            ' y = b0 + b11*x1^2 + b22*x2^2 + b33*x3^2
            Cells(row, col).Value = b0 + b11 * (x1 ^ 2) + b22 * (x2 ^ 2) + b33 * (x3 ^ 2)
            col = col + 1
        Next x2
        row = row + 1
    Next x1
    
    MsgBox "Таблица успешно сгенерирована!"
End Sub