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