C# と VB.NET の質問掲示板

初歩的なことですみません。
下のはN = 5としての、dat(ii)に対してのdatX(i)を求める計算です。
これと同じことをN = 15、N = 65としても行いたいのですが、どのように書けば簡単なのでしょうか？
同じことを3っつ書けば良いのですが、データ数が多いと時には、とてつもなく時間が掛かってしまいます。

　　　　'N = 5としての場合
        Dim N As Integer = 5 : Dim A As Integer = 6 : Dim B As Single = 0.85 
        Dim σ As Single = N / A : Dim offset As Single = Int(B * (N - 1))
        For i = 0 To 100000
            If i >= N - 1 Then
                Dim ΣXi As Single = 0
                Dim ip As Integer = 0
                Dim X1(1500000) As Single 
                For ii = i - (N - 1) To i
                    ip = ip + 1
                    X1(ii) = Math.Exp(-((ip - offset) ^ 2) / (σ ^ 2)) 
                    ΣXi = ΣXi + X1(ii)
                Next
                '
                Dim ΣCiXi As Single = 0
                For ii = i - (N - 1) To i
                    ΣCiXi = ΣCiXi + dat(ii) * X1(ii)
                Next
                datX(i) = (ΣCiXi) / (ΣXi)
            End If
        Next

■No101054 (ゆい さん) に返信

x1の配列を作る必要がないです。
以下の処理でどうでしょうか？

        Dim N As Integer = 5 : Dim A As Integer = 6 : Dim B As Single = 0.85
        Dim σ As Single = N / A : Dim offset As Single = Int(B * (N - 1))
        If N < 100000 Then
            For i = N - 1 To 100000
                Dim ΣXi As Single = 0
                Dim ip As Integer = 0
                Dim ΣCiXi As Single = 0

                For ii = i - (N - 1) To i
                    ip = ip + 1
                    Dim x1 = Math.Exp(-((ip - offset) ^ 2) / (σ ^ 2))
                    ΣXi += x1
                    ΣCiXi += dat(ii) * x1
                Next
                datX(i) = (ΣCiXi) / (ΣXi)
            Next
        End If