このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1289913298/622
#  [1] 授業単元:情報 
#  [2] 移動平均  ファイルにある数字のデータを読み込んで配列の移動平均を求めるプログラム。 
#          ファイル名は適当で。平均値を関数で求めて、その関数を使い、移動平均を求める関数を 
#          作る。 
#  

'ファイルにある数字のデータを読み込んで配列の移動平均を求めるプログラム。ファイル名は適当で。平均値を関数で求めて、その関数を使い、移動平均を求める関数を作る。'(_ファイル名,_サンプル数,_指数移動平均)  :-
        get_integers(_ファイル名,_データならび),
        指数移動平均(_データならび,_サンプル数,_指数移動平均).

指数移動平均(_データならび,_サンプル数,_指数移動平均) :-
        reverse(_データならび,_反転したデータならび),
        findavg(_サンプルの移動平均,(
                    length(L1,_サンプル数),
                    append(L0,L1,R,_反転したデータならび),
                    指数移動平均分子の計算(L1,_サンプルの移動平均)),
                _指数移動平均).

指数移動平均分子の計算(L,_サンプルの移動平均) :-
        findavg(V,(
                    append(L0,[U|_],L),
                    length(L0,N),
                    V is U * / (N + 1)),
                _サンプルの移動平均),!.