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

■No102868 (みか さん) に返信
> Dim result As Double
> 
> 　 result = SGFilter(y(), N, M) 'resultに「エラーBC30188宣言が必要です。」が出ます。
> 
> Private Function SGFilter(ByVal y() As Double, ByVal N As Integer, ByVal M As Integer) As Double()

落ち着いて見てみましょう。
resultでエラーになっているので、関数「SGFilter」の戻り値の問題ですよね？
関数「SGFilter」の戻り値は「Double()」配列指定ですね。
受け取る側の変数resultは「Double」単一指定ですね。
どちらかに揃えてあげましょう。

参考までに
http://hachisue.blog65.fc2.com/blog-entry-170.html

■No102869 (くま さん) に返信
■No102870 (魔界の仮面弁士 さん) に返信

あちこちから引っ張って来てつくりました。
何も分かっていません。
身の程知らずですみません。

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim y() As Double     　　　　　  'データが入る配列
        Dim N As Integer = 5
        Dim M As Integer = 2
        Dim result As Double
        result = SGFilter(y(), N, M)
    End Sub

    Private Function SGFilter(ByVal y() As Double, ByVal N As Integer, ByVal M As Integer) As Double()
        Dim i As Integer, j As Integer, k As Integer
        Dim w(0 To N, 0 To M) As Double
        Dim sum As Double
        Dim y2() As Double

        ReDim y2(0 To UBound(y))

        For i = 0 To UBound(y)
            sum = 0
            For j = -N To N
                For k = 0 To M
                    w(N + j, k) = ((j + k) ^ (2 * M))
                Next k
                sum = sum + w(N + j, 0)
            Next j
            For j = -N To N
                For k = 0 To M
                    w(N + j, k) = w(N + j, k) / sum
                Next k
            Next j
            For j = -N To N
                sum = 0
                For k = 0 To M
                    sum = sum + w(N + j, k) * y(i + j)
                Next k
                y2(i) = y2(i) + sum
            Next j
        Next i
        SGFilter = y2
    End Function

皆さん、ありがとうございます。
どこへ書いていいのか分かりませんのでここにさせて頂きます。

Next k の部分で「インデックスが配列の境界外です。」が出るのは、どこかに矛盾があるのですよね？

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim y8(0 To 100) As Double
        For i = 0 To 100
            y8(i) = i
        Next

        Dim N As Integer = 5
        Dim M As Integer = 2
        Dim result() As Double
        result = SGFilter(y8, N, M)
    End Sub

    Private Function SGFilter(ByVal y() As Double, ByVal N As Integer, ByVal M As Integer) As Double()
        Dim i As Integer, j As Integer, k As Integer
        Dim w(0 To N, 0 To M) As Double
        Dim sum As Double
        Dim y2() As Double

        ReDim y2(0 To UBound(y))

        For i = 0 To UBound(y)
            sum = 0
            For j = -N To N
                For k = 0 To M
                    w(N + j, k) = ((j + k) ^ (2 * M))
                Next k                       ' ※ インデックスが配列の境界外です。
                sum = sum + w(N + j, 0)
            Next j
        Next i
        SGFilter = y2
    End Function

「Next k」で出ますか？
「w(N + j, k) = ((j + k) ^ (2 * M))」で出るのであればわかるのですが

Dim w(0 To N,[後略]
For j = -N To N
  w(N + j, [後略]

明らかにインデックスが範囲外ですね

■No102920 (kiku さん) に返信

> エラーを解消するだけでしたら、
> 下記に変更すれば良いと思います。
> Dim w(0 To 2 * N, 0 To M) As Double

小出しですみません。
Copilotで聞いても中々解消しないとこもあります。
SGFilter関数でSavitzky-Golayフィルターを適用し、入力配列 y8 を平滑化し結果を返すものでした。

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim y8(0 To 100) As Double
        For i = 0 To 100
            y8(i) = i
        Next

        Dim N As Integer = 5
        Dim M As Integer = 2
        Dim result() As Double
        result = SGFilter(y8, N, M)
    End Sub

    Private Function SGFilter(ByVal y() As Double, ByVal N As Integer, ByVal M As Integer) As Double()
        Dim i As Integer, j As Integer, k As Integer
        Dim w(0 To 2 * N, 0 To M) As Double 　　　  'Dim w(0 To N, 0 To M) As Double
        Dim sum As Double
        Dim y2() As Double

        ReDim y2(0 To UBound(y))

        For i = 0 To UBound(y)
            sum = 0
            For j = -N To N
                For k = 0 To M
                    w(N + j, k) = ((j + k) ^ (2 * M))
                Next k　　　　　' ※ ここので「インデックスが配列の境界外です。」は解消しました。
                sum = sum + w(N + j, 0)
            Next j

            For j = -N To N
                For k = 0 To M
                    w(N + j, k) = w(N + j, k) / sum
                Next k
            Next j
            For j = -N To N
                sum = 0
                For k = 0 To M
                    sum = sum + w(N + j, k) * y(i + j)     ' ※ 今度はここに「インデックスが配列の境界外です。」
                Next k
                y2(i) = y2(i) + sum
            Next j
        Next i
        SGFilter = y2
    End Function

※用語が間違っていたかもしれないので修正

> sum = sum + w(N + j, k) * y(i + j)     ' ※ 今度はここに「インデックスが配列の境界外です。」

でしょうね
「For i = 0 To UBound(y)」としているのですから、yのインデックスに「i + j」を指定したら範囲外になるはずです

みかさんは、yのインデックスには何を指定したらいいと思いますか？

■No102934 (kiku さん) に返信

> Savitzky-Golayフィルターでなくても良いので
> 別の平均化の方法を使っても良いと思います。
> 
> 目的を明確にすることをお勧めします。

性能の良いのが欲しいので、Savitzky-Golayフィルターに拘ってるとこがあります。
すみません。
一旦解決済みにして出直します。