このディレクトリの索引

加重移動平均(_データならび,_サンプル数,_加重移動平均) :-
        reverse(_データならび,_反転したデータならび),
        length(L0,_サンプル数),
        append(L0,L1,_反転したデータならび),
        _分母 is _サンプル数 * (_サンプル数 + 1) / 2,
        加重移動平均分子の計算(_サンプル数,L0,_分子),
        _加重移動平均 is _分子 / _分母,!.

加重移動平均分子の計算(_,[],0) :- !.
加重移動平均分子の計算(N,[A|R],S) :-
        N1 is N - 1,
        V is A * N,
        加重移動平均分子の計算(N1,R,S1),
        S is S1 + V.