VBA Sub jikosoukan Dim f1000 Dim t1000 N
VBA Sub jikosoukan() Dim f(1000) Dim t(1000) 'Nはでデータ数 N = Cells(2, 1). End(xl. Down). Row - 1 Cells(1, 4) = "データ数" Cells(2, 4) = N 'データ読み込み For i = 1 To N t(i) = Cells(i + 1, 1) f(i) = Cells(i + 1, 2) Next i Cells(1, 5) = "τ" Cells(1, 6) = "自己相関係数" For j = 0 To N - 1 Sub sougosoukan() Dim f(1000) Dim g(1000) Dim t(1000) 'Nはでデータ数 N = Cells(2, 1). End(xl. Down). Row - 1 Cells(1, 5) = "データ数" Cells(2, 5) = N 'データ読み込み For i = 1 To N t(i) = Cells(i + 1, 1) f(i) = Cells(i + 1, 2) g(i) = Cells(i + 1, 3) Next i Cells(1, 6) = "τ" Cells(1, 7) = "相互相関係数" For j = 0 To N - 1 Cells(2 + j, 5) = t(j + 1) - t(1) s=0 For k = 1 To N - j y = f(k) * f(k + j) s=s+y Next k soukan = s / (N - j) Cells(2 + j, 6) = soukan Next j End Sub Cells(2 + j, 6) = t(j + 1) - t(1) s=0 For k = 1 To N - j y = f(k) * g(k + j) s=s+y Next k soukan = s / (N - j) Cells(2 + j, 7) = soukan Next j End Sub
- Slides: 25