The R Project SVN – R – Diff – /trunk/src/library/graphics/demo/plotmath.R



draw.plotmath.cell(expression(lim(f(x), x %->% 0)), i, nr); i <- i + 1
draw.plotmath.cell(expression(min(g(x), x >= 0)), i, nr); i <- i + 1
draw.plotmath.cell(expression(inf(S)), i, nr); i <- i + 1
draw.plotmath.cell(expression(sup(S)), i, nr); i <- i + 1
 
nr <- 12
nc <- 1
make.table(nr, nc)
i <- 0
draw.title.cell("Grouping", i, nr); i <- i + 1
# Those involving '{ . }' have to be done "by hand"
draw.plotmath.cell(expression({}(x , y)), i, nr, string="{}(x, y)"); i <- i + 1

draw.plotmath.cell(expression(x^{y + z}), i, nr, string="x^{y + z}"); i <- i + 1
draw.plotmath.cell(expression(group("(", list(a, b), "]")), i, nr); i <- i + 1
draw.plotmath.cell(expression(bgroup("(", atop(x, y), ")")), i, nr); i <- i + 1
draw.plotmath.cell(expression(group(lceil, x, rceil)), i, nr); i <- i + 1
draw.plotmath.cell(expression(group(lfloor, x, rfloor)), i, nr); i <- i + 1
draw.plotmath.cell(expression(group(langle, list(x, y), rangle)), i, nr); i <- i + 1
draw.plotmath.cell(expression(group("|", x, "|")), i, nr); i <- i + 1
 
par(oldpar)

The R Project SVN R

(root)/trunk/src/library/graphics/demo/plotmath.R – Rev 70958 → 78742

Rev 70958		Rev 78742
Line 174...		Line 174...
174	`draw.plotmath.cell(expression(lim(f(x), x %->% 0)), i, nr); i <- i + 1`	174	`draw.plotmath.cell(expression(lim(f(x), x %->% 0)), i, nr); i <- i + 1`
175	`draw.plotmath.cell(expression(min(g(x), x >= 0)), i, nr); i <- i + 1`	175	`draw.plotmath.cell(expression(min(g(x), x >= 0)), i, nr); i <- i + 1`
176	`draw.plotmath.cell(expression(inf(S)), i, nr); i <- i + 1`	176	`draw.plotmath.cell(expression(inf(S)), i, nr); i <- i + 1`
177	`draw.plotmath.cell(expression(sup(S)), i, nr); i <- i + 1`	177	`draw.plotmath.cell(expression(sup(S)), i, nr); i <- i + 1`
178		178
179	`nr <- 11`	179	`nr <- 12`
-		180	`nc <- 1`
180	`make.table(nr, nc)`	181	`make.table(nr, nc)`
181	`i <- 0`	182	`i <- 0`
182	`draw.title.cell("Grouping", i, nr); i <- i + 1`	183	`draw.title.cell("Grouping", i, nr); i <- i + 1`
183	`# Those involving '{ . }' have to be done "by hand"`	184	`# Those involving '{ . }' have to be done "by hand"`
184	`draw.plotmath.cell(expression({}(x , y)), i, nr, string="{}(x, y)"); i <- i + 1`	185	`draw.plotmath.cell(expression({}(x , y)), i, nr, string="{}(x, y)"); i <- i + 1`
Line 188...		Line 189...
188	`draw.plotmath.cell(expression(x^{y + z}), i, nr, string="x^{y + z}"); i <- i + 1`	189	`draw.plotmath.cell(expression(x^{y + z}), i, nr, string="x^{y + z}"); i <- i + 1`
189	`draw.plotmath.cell(expression(group("(", list(a, b), "]")), i, nr); i <- i + 1`	190	`draw.plotmath.cell(expression(group("(", list(a, b), "]")), i, nr); i <- i + 1`
190	`draw.plotmath.cell(expression(bgroup("(", atop(x, y), ")")), i, nr); i <- i + 1`	191	`draw.plotmath.cell(expression(bgroup("(", atop(x, y), ")")), i, nr); i <- i + 1`
191	`draw.plotmath.cell(expression(group(lceil, x, rceil)), i, nr); i <- i + 1`	192	`draw.plotmath.cell(expression(group(lceil, x, rceil)), i, nr); i <- i + 1`
192	`draw.plotmath.cell(expression(group(lfloor, x, rfloor)), i, nr); i <- i + 1`	193	`draw.plotmath.cell(expression(group(lfloor, x, rfloor)), i, nr); i <- i + 1`
-		194	`draw.plotmath.cell(expression(group(langle, list(x, y), rangle)), i, nr); i <- i + 1`
193	`draw.plotmath.cell(expression(group("\|", x, "\|")), i, nr); i <- i + 1`	195	`draw.plotmath.cell(expression(group("\|", x, "\|")), i, nr); i <- i + 1`
194		196
195	`par(oldpar)`	197	`par(oldpar)`