このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/253
#  [1] 授業単元:応用情報処理I 
#  [2] 問題文: 正規分布を計算して結果をグラフとして出力するプログラムを作成しなさい 
#  

f(_x,_y) :-
        _x_1 is 2 * pi * (_x / 100.0) - pi, 
        _y is truncate(1.0 / ( (2.0 * pi) ^ 2 * exp(-1 * (_x_1 * _x_1 / 2.0))) * 100.0).  

'正規分布を計算して結果をグラフとして出力するプログラムを作成しなさい' :-
        表にグラフを描く(LL1),
        転置(LL1,LL2),
        グラフ表示(LL2).
                    
表にグラフを描く(LL1) :-
        findall(L,(
                    for(0,_x,100),
                    length(L,101),
                    f(_x,_y),
                    append(L0,[*|R],L),
                    length(L0,_y)),
                LL1).

グラフ表示([]).
グラフ表示([L|R]) :-
        変数要素を空白に変換(L),
        atom_chars(A,L),
        writef('%t\n',[A]),
        グラフ表示(R).

変数要素を空白に変換([]).
変数要素を空白に変換([' '|R]) :-
        変数要素を空白に変換(R).
変数要素を空白に変換([_|R]) :-
        変数要素を空白に変換(R).