このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1289913298/468
#   [1] 授業単元:C/C++の宿題片付けます 143代目 
#   [2] 問題文(含コード&リンク): ニュートン法により実数の平方根を求める関数を作成せよ。(引数double, 戻り値double) 
#   

'ニュートン法を用いて実数の平方根を求める'(_実数,_平方根) :-
        'ニュートン法を用いて実数の平方根を求める'(_実数,0.0,1.0,_平方根),!.

'ニュートン法を用いて実数の平方根を求める'(_実数,X0,X,X) :- 0.00001 > abs(X0 - X),!.
'ニュートン法を用いて実数の平方根を求める'(_実数,X0,X1,X) :-
        Y is X1 * X1 - _実数,
        Y2 is 2 * X1,
        X2 is X1 - Y / Y2,
        'ニュートン法を用いて実数の平方根を求める'(_実数,X1,X2,X).