Rappresenta graficamente gli insiemi A = {(x,y) : x < y + 1} e B = {(x,y) : x − 1 < y < x + 1}.

Volendo, come sono state rappresentate le figure con gli script uno e due.

Come sono rappresentabili con WoframAlpha (vedi):

plot x < y + 1 & x*y=0, -3 < x < 3, -3 < y < 3
plot x − 1 < y < x + 1 & x*y=0, -3 < x < 3, -3 < y < 3

Come sono rappresentabili con R:

source("http://macosa.dima.unige.it/r.R")
HF=2; BF=2; PIANO(-3,3, -3,3)
P = function(x,y) x < y+1        # vale 1 se V, 0 se F
diseq2(P,0, "red")               # segno i punti in cui P > 0
# ricopio la riga precedente se voglio infittire la figura,
# o uso:   for(i in 1:10) diseq2(P,0, "red")
PIANO(-3,3, -3,3)
Q = function(x,y) y < x+1 & x-1 < y
diseq2(Q,0, "blue")
A   B