source('http://macosa.dima.unige.it/R/diseq.txt')
# Dove  x*(x-2) < x/2  e dove  x*(x-2) > x/2
F <- function(x) x*(x-2); G <- function(x) x/2
plot(F,-1,3)
abline(v=axTicks(1), h=axTicks(2),lty=3,col="brown")
abline(v=0, h=0,lty=2,col="brown")
curve(G,add=TRUE)
diseq(F,G,-1,3,"red")
diseq(F,G,-1,3,"red")
diseq(G,F,-1,3,"blue")
diseq(G,F,-1,3,"blue")

#
# Nella striscia -4 < x < 4 la parte di piano compresa tra il grafico
# di sin (come limite inferiore) e quello di cos (come limite
# superiore) e la parte di piano che sta sopra al grafico di sin 
S <- function(x) sin(x); C <- function(x) cos(x)
plot(S,-5,5); curve(C,add=TRUE)
abline(v=axTicks(1), h=axTicks(2),lty=3,col="brown")
abline(v=0, h=0,lty=2,col="brown")
diseq(S,C,-4,4,"orange") 
diseq(S,C,-4,4,"orange")
# Per avere la parte sopra al grafico di sin scelgo una funz.
# costante uguale o superiore alla 'y' del bordo superiore
h <- function(x) 1
diseq(S,h,-4,4,"blue")
diseq(S,h,-4,4,"blue")