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")