このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1269438098/574
#  [1] 授業単元: C言語入門 
#  [2] 問題文(含コード&リンク):  
#  ニュートン法を用いてf(x)=e^(-x)-x^2=0の根を求めよ。 
#  但し、x(0)=1とし、反復回数を4とする 
#   
#  

'ニュートン法を用いてf(x)=e^(-x)-x^2=0の根を求める'(X) :-
      '高次代数方程式の解法(ニュートン法)'(0,4,1.0,X).

f(X,Y) :-
    Y is exp(-X)-X*X.
df(X,Y) :-
    Y is -exp(-X)-2*X.

'高次代数方程式の解法(ニュートン法)'(Max,Max,X,X) :- !.
'高次代数方程式の解法(ニュートン法)'(N,Max,X1,X) :-
      f(X1,Y),
      df(X1,Y2),
      X2 is X1 - Y / Y2,
      N2 is N + 1,
      '高次代数方程式の解法(ニュートン法)'(N2,Max,X2,X).