Jizo
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
Public Sub stringi()
Range("t1") = time()
'For j = 2 To 7002
'For i = 4 To 30
'ActiveSheet.Cells(j, i).Clear
'Next
'Next
kolvo = 20
Dim h() As Boolean
ReDim h(1 To kolvo)
Dim E() As Boolean
ReDim E(1 To kolvo)
Dim D() As Boolean
ReDim D(1 To kolvo)
Dim Ass() As Boolean
ReDim Ass(1 To kolvo - 1)
Dim Eks() As Boolean
ReDim Eks(1 To kolvo - 1)
Dim w() As Boolean
ReDim w(1 To kolvo)
Dim x() As Boolean
ReDim x(1 To kolvo)
Dim corr1() As Boolean
ReDim corr1(1 To kolvo - 1)
'Dim corr2() As Boolean
'ReDim corr2(1 To kolvo - 1)
'Dim corr3() As Boolean
'ReDim corr3(1 To kolvo - 1)
'Dim corr4() As Boolean
'ReDim corr4(1 To kolvo - 1)
'Dim corr5() As Boolean
'ReDim corr5(1 To kolvo - 1)
'Dim corr6() As Boolean
'ReDim corr6(1 To kolvo - 1)
'Dim corr7() As Boolean
'ReDim corr7(1 To kolvo - 1)
'Dim corr8() As Boolean
'ReDim corr8(1 To kolvo - 1)
'Dim corr9() As Boolean
'ReDim corr9(1 To kolvo - 1)
'Dim corr10() As Boolean
'ReDim corr10(1 To kolvo - 1)
j = 0
' s4itaem h
For j = 1 To kolvo
h(j) = Cells(j + 2, 3).Value
Next j
' s4itaem E
For j = 1 To kolvo
k = 0
For i = 1 To j
k = k + h(i)
Next i
E(j) = k / j
Next j
' s4itaem D
For j = 1 To kolvo
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) ^ 2
Next i
D(j) = c / j
Next j
' s4itaem Ass
For j = 2 To kolvo
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) ^ 3
Next i
Ass(j) = c / (j * D(j) ^ (3 / 2))
Next j
' s4itaem Eks
For j = 2 To kolvo
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) ^ 4
Next i
Eks(j) = c / (j * D(j) ^ (2)) - 3
Next j
's4itaem Corr
c = 0
i = 0
j = 0
k = 0
t = 1
For j = 1 To kolvo
k = 0
For i = 1 To j
k = k + h(t + i)
Next i
w(j) = k / j
Next j
i = 0
j = 0
For j = 1 To kolvo
c = 0
For i = 1 To j
c = c + (h(t + i) - w(j)) ^ 2
Next i
x(j) = c / j
Next j
For j = 2 To kolvo - t
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) * (h(i + t) - w(j))
Next i
corr1(j) = c / (j * Sqr(D(j)) * x(j))
Next j
t = 2
For j = 1 To kolvo
k = 0
For i = 1 To j
k = k + h(t + i)
Next i
w(j) = k / j
Next j
i = 0
j = 0
For j = 1 To kolvo
c = 0
For i = 1 To j
c = c + (h(t + i) - w(j)) ^ 2
Next i
x(j) = c / j
Next j
For j = 2 To kolvo - t
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) * (h(i + t) - w(j))
Next i
corr2(j) = c / (j * Sqr(D(j)) * x(j))
Next j
t = 3
For j = 1 To kolvo
k = 0
For i = 1 To j
k = k + h(t + i)
Next i
w(j) = k / j
Next j
i = 0
j = 0
For j = 1 To kolvo
c = 0
For i = 1 To j
c = c + (h(t + i) - w(j)) ^ 2
Next i
x(j) = c / j
Next j
For j = 2 To kolvo - t
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) * (h(i + t) - w(j))
Next i
corr3(j) = c / (j * Sqr(D(j)) * x(j))
Next j
t = 4
For j = 1 To kolvo
k = 0
For i = 1 To j
k = k + h(t + i)
Next i
w(j) = k / j
Next j
i = 0
j = 0
For j = 1 To kolvo
c = 0
For i = 1 To j
c = c + (h(t + i) - w(j)) ^ 2
Next i
x(j) = c / j
Next j
For j = 2 To kolvo - t
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) * (h(i + t) - w(j))
Next i
corr4(j) = c / (j * Sqr(D(j)) * x(j))
Next j
t = 5
For j = 1 To kolvo
k = 0
For i = 1 To j
k = k + h(t + i)
Next i
w(j) = k / j
Next j
i = 0
j = 0
For j = 1 To kolvo
c = 0
For i = 1 To j
c = c + (h(t + i) - w(j)) ^ 2
Next i
x(j) = c / j
Next j
For j = 2 To kolvo - t
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) * (h(i + t) - w(j))
Next i
corr5(j) = c / (j * Sqr(D(j)) * x(j))
Next j
t = 6
For j = 1 To kolvo
k = 0
For i = 1 To j
k = k + h(t + i)
Next i
w(j) = k / j
Next j
i = 0
j = 0
For j = 1 To kolvo
c = 0
For i = 1 To j
c = c + (h(t + i) - w(j)) ^ 2
Next i
x(j) = c / j
Next j
For j = 2 To kolvo - t
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) * (h(i + t) - w(j))
Next i
corr6(j) = c / (j * Sqr(D(j)) * x(j))
Next j
t = 7
For j = 1 To kolvo
k = 0
For i = 1 To j
k = k + h(t + i)
Next i
w(j) = k / j
Next j
i = 0
j = 0
For j = 1 To kolvo
c = 0
For i = 1 To j
c = c + (h(t + i) - w(j)) ^ 2
Next i
x(j) = c / j
Next j
For j = 2 To kolvo - t
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) * (h(i + t) - w(j))
Next i
corr7(j) = c / (j * Sqr(D(j)) * x(j))
Next j
t = 8
For j = 1 To kolvo
k = 0
For i = 1 To j
k = k + h(t + i)
Next i
w(j) = k / j
Next j
i = 0
j = 0
For j = 1 To kolvo
c = 0
For i = 1 To j
c = c + (h(t + i) - w(j)) ^ 2
Next i
x(j) = c / j
Next j
For j = 2 To kolvo - t
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) * (h(i + t) - w(j))
Next i
corr8(j) = c / (j * Sqr(D(j)) * x(j))
Next j
t = 9
For j = 1 To kolvo
k = 0
For i = 1 To j
k = k + h(t + i)
Next i
w(j) = k / j
Next j
i = 0
j = 0
For j = 1 To kolvo
c = 0
For i = 1 To j
c = c + (h(t + i) - w(j)) ^ 2
Next i
x(j) = c / j
Next j
For j = 2 To kolvo - t
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) * (h(i + t) - w(j))
Next i
corr9(j) = c / (j * Sqr(D(j)) * x(j))
Next j
t = 10
For j = 1 To kolvo
k = 0
For i = 1 To j
k = k + h(t + i)
Next i
w(j) = k / j
Next j
i = 0
j = 0
For j = 1 To kolvo
c = 0
For i = 1 To j
c = c + (h(t + i) - w(j)) ^ 2
Next i
x(j) = c / j
Next j
For j = 2 To kolvo - t
c = 0
For i = 1 To j
c = c + (h(i) - E(j)) * (h(i + t) - w(j))
Next i
corr10(j) = c / (j * Sqr(D(j)) * x(j))
Next j
' âûâîä
i = 20
For j = 1 To kolvo
Cells(j + 1, i + 1).Value = E(j)
Next j
For j = 1 To kolvo
Cells(j + 1, i + 2).Value = D(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 3).Value = Ass(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 4).Value = Eks(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 5).Value = corr1(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 6).Value = corr2(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 7).Value = corr3(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 8).Value = corr4(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 9).Value = corr5(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 10).Value = corr6(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 11).Value = corr7(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 12).Value = corr8(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 13).Value = corr9(j)
Next j
For j = 1 To kolvo - 1
Cells(j + 1, i + 14).Value = corr10(j)
Next j
Range("t2") = time()
End Sub |
|
Всего записей: 9 | Зарегистр. 31-05-2011 | Отправлено: 19:55 04-01-2012 | Исправлено: Jizo, 19:57 04-01-2012 |
|
