Sub GDPModeling_6_26()
'Уравнение 6.26
Dim niter As Integer 'количество итераций
Dim disp As Double 'дисперсия
Dim f As Double 'капиталовооруженность
Dim delta As Double 'временной промежуток
Dim Y0 As Double 'начальное ВВП
Dim year_number As Integer 'Количество лет
Dim Capital() As Double 'Капитал


Dim Modeling() As Double
Dim AvGDP() As Double

'Сбор данных

year_number = Cells(1, 3).Value
f = Cells(2, 3).Value
delta = Cells(3, 3).Value
disp = Cells(4, 3).Value
niter = Cells(6, 3).Value
Y0 = Cells(10, 3).Value

ReDim Capital(1 To year_number / delta - 1)
For i = 1 To year_number / delta - 1
    Capital(i) = Cells(9 + i, 2).Value
Next i


ReDim Modeling(0 To year_number / delta - 1, 1 To niter)

'Расчет значений ВВП
For i = 1 To year_number / delta - 1
    For j = 1 To niter
    Modeling(0, j) = Y0
    Modeling(i, j) = Modeling(i - 1, j) + f * Capital(i) * delta + f * Capital(i) * Sqr(delta) * disp * gauss()
    Next j
Next i

'Расчет среднего ВВП
ReDim AvGDP(0 To year_number / delta - 1)
Call MyAverage(niter, year_number, delta, Modeling(), AvGDP())


'Вывод данных
For i = 0 To year_number / delta - 1
    For j = 1 To niter
        Cells(10 + i, 11 + j).Value = Modeling(i, j)
    Next j
    Cells(10 + i, 5).Value = AvGDP(i)
    Cells(10 + i, 6).Select
    ActiveCell.FormulaR1C1 = "=STDEV(RC[6]:RC[" & 5 + niter & "])"
    Cells(10 + i, 7).Select
    ActiveCell.FormulaR1C1 = "=MIN(RC[5]:RC[" & 4 + niter & "])"
    Cells(10 + i, 8).Select
    ActiveCell.FormulaR1C1 = "=MAX(RC[4]:RC[" & 3 + niter & "])"
    Cells(10 + i, 9).Select
    ActiveCell.FormulaR1C1 = "=RC[-4]-RC[-3]"
    Cells(10 + i, 10).Select
    ActiveCell.FormulaR1C1 = "=RC[-5]+RC[-4]"

Next i
Cells(9, 5).Value = "Mean"
Cells(9, 6).Value = "Stdev"
Cells(9, 7).Value = "Min"
Cells(9, 8).Value = "Max"
Cells(9, 9).Value = "Mean-Stdev"
Cells(9, 10).Value = "Mean+Stdev"


Cells(8, 1).Value = "Значения сгенерированны при помощи генератора псевдослучайных чисел"



End Sub