このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1370255305/767
#  どなたか助けてください。困ってます。 
#  [1] 授業単元： 課題 
#  [2] 問題文： テキストファイル test.txtを呼び出し、平滑化したデータを 
#               違うファイルtest1.txtに出力しなさい。 
#  

'テキストファイル test.txtを呼び出し、平滑化したデータを違うファイルtest1.txtに出力しなさい。' :-
        'テキストファイル test.txtを呼び出し、平滑化したデータを'(_平滑化したデータならび),
        '違うファイルtest1.txtに出力しなさい。'(_平滑化したデータならび).

'テキストファイル test.txtを呼び出し、平滑化したデータを'(_平滑化したデータならび) :-
        'テキストファイル test.txtを呼び出し、'(_データならび),
        平滑化したデータを'(_データならび,_平滑化したデータならび).

'テキストファイル test.txtを呼び出し、'(_データならび) :-
        get_chars('test.txt',Chars),
        atom_chars(Atom,Chars),
        split(Atom,[' ','\n','\t'],_データならび).
        平滑化したデータを(_データならび,_平滑化したデータならび).

'テキストファイル test.txtを呼び出し、'(_データならび) :-
        get_chars('test.txt',Chars),
        atom_chars(Atom,Chars),
        split(Atom,[' ','\n','\t'],_データならび).

平滑化したデータを(_データならび,_平滑化したデータならび) :-
        単純移動平均(_データならび,_平滑化したデータならび).

単純移動平均(_データならび,_平滑化したデータならび) :-
        length(L2,25),
        findall(_相加平均,(
                    append(L1,L2,L3,_データならび),
                    相加平均(L2,_相加平均)),
                _平滑化したデータならび).

'違うファイルtest1.txtに出力しなさい。'(_平滑化したデータならび) :-
        open('test1.txt',write,Outstream),
        '違うファイルtest1.txtに出力しなさい。'(Outstream,_平滑化したデータならび),
        close(Outstream).

'違うファイルtest1.txtに出力しなさい。'(Outstream,[]).
'違うファイルtest1.txtに出力しなさい。'(Outstream,[V|R]) :-
        writef('%t ',[V]),
        '違うファイルtest1.txtに出力しなさい。'(Outstream,R).