Numerical Analysis Programs Using Fortran 90 - University of ...

Problem: Write a program to solve the following system of equations,
by using Newton-Raphson Method
2
2
x − y − 0.2 = 0 ; y − x − 0.3 = 0
Initiate the computation with guesses of x = 1. 2 and y = 1. 2 .
f(x,y)=x**2-y-.2
g(x,y)=y**2-x-.3
fx(x,y)=2*x
fy(x,y)=-1
gx(x,y)=-1
gy(x,y)=2*y
xo=1.2
yo=1.2
tol=0.0001
5 xj=fx(xo,yo)*gy(xo,yo)-fy(xo,yo)*gx(xo,yo)
hh=(g(xo,yo)*fy(xo,yo)-f(xo,yo)*gy(xo,yo))/xj
hk=(f(xo,yo)*gx(xo,yo)-g(xo,yo)*fx(xo,yo))/xj
x=xo+hh
y=yo+hk
print*,x,y
if((abs(x-xo)