f = function(x) sin(x); g <- function(x) sin(sqrt(2)*x)
h = function(x) f(x)+g(x)
source("http://macosa.dima.unige.it/r.R")
BF = 6; HF=2  # puoi poi spostare i 3 grafici agendo sul bordo alto
Plane(-40,40, -1.5,1.5); graph2(f,-40,40,"blue")
Plane(-40,40, -1.5,1.5); graph2(g,-40,40,"brown")
Plane(-40,40, -2.1,2.1); graph2(h,-40,0,"red"); graph2(h,0,40,"black")

# Per un'immagine con scala orizzontale diversamente scandita:
TICKx=pi; TICKy=1/2; Plane2(-40,40, -1.5,1.5); graph2(f,-40,40,"blue")
t=c(2,4,6,8,10,12,-2,-4,-6,-8,-10,-12)
underX(0,0); for(i in t) { x=i*pi; underX( bquote(.(i)*pi), x) }
underY(0,0); underY(1,1); underY(-1,-1)