くだすれFORTRAN（超初心者用）その6

687 ：デフォルトの名無しさん：2014/11/18(火) 14:32:17.44 ID:EkFrl+1/X

次の非線形方程式f(x)=x**2-2sinx=0
ε=0.0001 x=0の解を除く
と、
(x1-xa)**2+(x2-ya)**2=ra**2
(x1-xb)**2+(x2-yb)**2=rb**2
ra=rb=2
xa=ya=yb=2
xb=5
ε=0.0001

この二つのニュートンラプソン法を使ったFORTRANプログラムを教えてください