plot(c(0,2),c(0,2), type="n",xlab="x", ylab="f(x)", axes=F)
lines(c(0,0), c(0,1))
lines (c(0,1), c(0,0))
lines(c(0,1), c(1,1))
lines (c(1,1), c(1,0))
lines(c(0,0), c(1,2))
lines (c(1,2), c(0,0))
lines(c(0.7,0.7),c(1,0))
text (0,1,"1",pos=2)
text (1,0,"1", pos=1)
text (0.7,0,"x", pos=1)
polygon(c(0,0.7,0.7,0),c(0,0,1,1),col='skyblue')