例

        Sです>x <- (1:500)*pi/16
        Sです>y <- sin(x)/x
        Sです>ps()
        Sです>plot(c(0.1, 50), c(-1, 1), log="x", type="n", xlab="x", ylab="y", 
         続き> main="sin(x)/x and sin(x)")
        Sです>points(x, y, type="o")
        Sです>points(x, sin(x), type="l")
        Sです>ps()