このディレクトリの索引

http://hibari.2ch.net/test/read.cgi/tech/1284632294/527
#  [1] 授業単元: プログラミング 
#  [2] 問題文(含コード&リンク):ルートについて、ニュートンラプソン方で解き、 
#  何回演算を繰り返せば値が収束するか確認する。複数の値を入れて、組み込み関数である 
#  sqrt関数との比較をする。  
#  

'ルートについて、ニュートンラプソン方で解く'(_値,_収束するまでの繰り返し回数,_平方根) :-
        _s is (_値 + 1) / 2,
        'ルートについて、ニュートンラプソン方で解く'(_値,_s,1,1,_収束するまでの繰り返し回数,_平方根).

'ルートについて、ニュートンラプソン方で解く'(X,_s,_s2,N,N,_s) :-
        _s = _s2,!.
'ルートについて、ニュートンラプソン方で解く'(X,_s,_s1,M,N,Root) :-
        _s2 is (X / _s + _s) / 2,
        M2 is M + 1,
        'ルートについて、ニュートンラプソン方で解く'(X,_s2,_s,M2,N2,Root).