y0 <- c(0, p0)
x0 <- c(0, n0)
y1 <- c(0, p1, p0)
x1 <- c(0, n1, n0)
y3 <- c(0, 290, p1, 450, p0)
x3 <- c(0, 100, n1, 380, n0)
y4 <- c(0, 150, 440, 490, p0)
x4 <- c(0, 30, 130, 750, n0)
axis(2,y0,labels=c('0','50'))
axis(1,x0,labels=c('0','100'))
gx <- grid.step
while (gx <= w) {
abline(v = gx, col="gray", lty="dotted")
gx <- gx + grid.step
}
gy <- grid.step
while (gy <= h) {
abline(h = gy, col="gray", lty="dotted")
gy <- gy + grid.step
}
lines( c(0,100), c(0,290), lty=1, type='o', col=rgb( 16,32,240,maxColorValue=255))
lines( c(100,750), c(290,490), lty=1, type='o', col=rgb(144,32,144,maxColorValue=255))
lines( c(750,1000), c(490,500), lty=1, type='o', col=rgb( 16,32,240,maxColorValue=255))
lines( c(0,30), c(0,150), lty=3, type='o', col=rgb( 16,32,240,maxColorValue=255))
lines( c(30,130), c(150,440), lty=1, type='o', col=rgb(16,32,240,maxColorValue=255))
lines( c(130,750), c(440,490), lty=3, type='o', col=rgb(16,32,240,maxColorValue=255))