Sotto come risolvere graficamente con R il sistema x·y=1 & x+1/y=1, che sarebbe facile affrontare anche "a mano". Risolvi analogamente i sistemi:   x+y = 5 & x*y = 6,   x^2+y^2 = 10 & x+y = 4,   1/x+1/y = 5/6 & x*y = 6.

source("http://macosa.dima.unige.it/r.R")
f <- function(x,y) x*y-1; g <- function(x,y) x+1/y-1
Piano(-5,5, -5,5); cur(f,"blue"); cur(g,"red")
Piano(0,1, 1,3); cur(f,"blue"); cur(g,"red")
Piano(0.4,0.6, 1.5,2.5); cur(f,"blue"); cur(g,"red")
f(1/2,2); g(1/2,2)  # ho:  0  0  come verifica che x=1/2,y=2 risolve entrambe le equazioni