!Tabulate the function
!f(x,y)=(x**2+y**2+2*x*y)/(x**2+y**2+8*x*y)
!for the following set of values of (x,y)
!(x,y)=(0,-10);(2,-8);(4,-6);(6,-4);(8,-2);(10,0) and (12,2).
program two_diomonsional_function_tabulation
implicit none
real ::f_x,x,y
integer ::i
print*," x"," "," y"," "," f(x)"
do i=0,12,2
x=i
y=i-10
f_x=(x**2+y**2+2*x*y)/(x**2+y**2+8*x*y)
print*,x,y,f_x
enddo
end program two_diomonsional_function_tabulation
!f(x,y)=(x**2+y**2+2*x*y)/(x**2+y**2+8*x*y)
!for the following set of values of (x,y)
!(x,y)=(0,-10);(2,-8);(4,-6);(6,-4);(8,-2);(10,0) and (12,2).
program two_diomonsional_function_tabulation
implicit none
real ::f_x,x,y
integer ::i
print*," x"," "," y"," "," f(x)"
do i=0,12,2
x=i
y=i-10
f_x=(x**2+y**2+2*x*y)/(x**2+y**2+8*x*y)
print*,x,y,f_x
enddo
end program two_diomonsional_function_tabulation
