このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1311089619/548
#  [1] 授業単元:計算機プログラミング 
#  [2] 問題文:http://ime.nu/www.uproda.net/down/uproda333628.pdf 
#  
#  [問題6-1] 関数f(X) = |sin(2x)|を1周期積分するプログラムを作成せよ。このとき、
#  分割数をN = 2^k (k = 1,2,3, ... ) として、シンプソン則、台形則、および中点則で
#  計算したときの結果の収束状況を比較せよ。なお、積分結果は1である。
#  

'関数f(X) = |sin(2x)|を1周期積分する'(中間点則,_分割単位,_積分値) :-
        '中間点則で関数f(X) = |sin(2x)|を1周期積分する'(_分割単位,_積分値).

'中間点則で関数f(X) = |sin(2x)|を1周期積分する'(_分割単位,_積分値) :-
        _分割数 is truncate(2 ^ _分割単位),
        _h is pi / _分割数,
        findsum(Y,(
                    for(1,N,_分割数),
                    X is (N-1) * _h + _h / 2,
                    Y is abs(sin(X))),
                Sum),
        _積分値 is Sum * _h.