このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1337692704/676
#  【 課題 】カンマ区切られているtest.txtのx列のみを取り出し移動平均で値を出しなさい。平均をとる範囲は10とする。 
#  【 形態 】Javaアプリケーション(main()で開始) 
#  【 GUI  】制限なし  
#  【 期限 】提出期限なし 
#  【 Ver  】java version "1.7.0_21"  
#  【 補足 】txtははこちらです。よろしくお願いします。 
#  www.dotup.org/uploda/www.dotup.org4425870.txt.html 
# 
# 

'カンマ区切られているtest.txtのx列のみを取り出し移動平均で値を出しなさい。平均をとる範囲は10とする。'(_x列,_x列の移動平均ならび) :-
        'カンマ区切られているtest.txtのx列のみを取り出し'(_x列,_x列ならび),
        '移動平均で値を出しなさい。平均をとる範囲は10とする。'(_x列ならび,_x列の移動平均ならび).


'カンマ区切られているtest.txtのx列のみを取り出し'(_x列,_x列ならび) :-
        get_split_lines('test.txt',[','],LL),
        findall(S,(
                    member(L,LL),
                    nth1(_x列,L,S)),
                _x列ならび).

'移動平均で値を出しなさい。平均をとる範囲は10とする。'(_x列ならび,_x列の移動平均ならび) :-
        findall(_単純移動平均,(
                    単純移動平均(_x列ならび,10,_単純移動平均)),
                _x列の移動平均ならび).

単純移動平均(_データならび,_サンプル数,_単純移動平均) :-
        length(L1,_サンプル数),
        append(L0,L1,_データならび),
        相加平均(L1,_単純移動平均).