このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/956
#  【質問テンプレ】  
#  [1] 授業単元：画像処理学  
#  [2] 問題文(含コード&リンク)：  
#  　　指定されたエクセルファイルの中にあるデータを読み込み  
#  　　各列ごとにそれぞれのデータに対し[0,1]区間に正規化し 
#  　　別のエクセルファイルとして出力せよ.  
#  

'指定されたエクセルファイルの中にあるデータを読み込み各列ごとにそれぞれのデータに対し[0,1]区間に正規化し別のエクセルファイルとして出力せよ.'(_指定されたCSVファイル,_別のCSVファイル) :-
        get_split_lines(_指定されたCSVファイル,[' ',','],LL),
        転置(LL,LL1),
        行単位に正規化(LL1,LL2),
        転置(LL2,LL3),
        csvファイルとして出力する(_別のcsvファイル,LL3).

行単位に正規化([],[]) :- !.
行単位に正規化([L1|R1],[L2|R2]) :-
        相加平均(L1,_相加平均),
        標準偏差(L1,_標準偏差),
        正規化(L1,_相加平均,_標準偏差,L2),
        行単位に正規化(R1,R2).

正規化([],_,_,[]) :- !.
正規化([A|R1],_相加平均,_標準偏差,[B|R2]) :-
        B is (_相加平均 - A) / _標準偏差,
        正規化(R1,_相加平均,_標準偏差,R2).

csvファイルとして出力する(_別のcsvファイル,LL) :-
        open(_別のcsvファイル,write,Outstream),
        append(_,[L|R],LL),
        concat_atom(L,',',S),
        write_formatted(Outstream,'%t\n',[S]),
        R = [],
        close(Outstream).