← Back to branch summary

~ubuntu-branches/ubuntu/hardy/texmacs/hardy

« back to all changes in this revision

Viewing changes to plugins/r/r/TeXmacs/demo/T.plotmath.R

  • Committer: Bazaar Package Importer
  • Author(s): Ralf Treinen
  • Date: 2004-04-19 20:34:00 UTC
  • Revision ID: james.westby@ubuntu.com-20040419203400-g4e34ih0315wcn8v
Tags: upstream-1.0.3-R2
Import upstream version 1.0.3-R2

Show diffs side-by-side

added added

removed removed

Lines of Context:
plugins/r/r/TeXmacs/demo/T.plotmath.R
 
1
if(dev.cur() <= 1) get(getOption("device"))()
 
2
 
 
3
#opar <- par(ask = interactive() &&
 
4
#            (.Device %in% c("X11", "GTK", "gnome", "windows", "Macintosh")))
 
5
 
 
6
## --- "math annotation" in plots :
 
7
 
 
8
######
 
9
# create tables of mathematical annotation functionality
 
10
######
 
11
make.table <- function(nr, nc) {
 
12
    savepar <- par(mar=rep(0, 4), pty="s")
 
13
    plot(c(0, nc*2 + 1), c(0, -(nr + 1)),
 
14
         type="n", xlab="", ylab="", axes=FALSE)
 
15
    savepar
 
16
}
 
17
 
 
18
get.r <- function(i, nr) {
 
19
    i %% nr + 1
 
20
}
 
21
 
 
22
get.c <- function(i, nr) {
 
23
    i %/% nr + 1
 
24
}
 
25
 
 
26
draw.title.cell <- function(title, i, nr) {
 
27
    r <- get.r(i, nr)
 
28
    c <- get.c(i, nr)
 
29
    text(2*c - .5, -r, title)
 
30
    rect((2*(c - 1) + .5), -(r - .5), (2*c + .5), -(r + .5))
 
31
}
 
32
 
 
33
draw.plotmath.cell <- function(expr, i, nr, string = NULL) {
 
34
    r <- get.r(i, nr)
 
35
    c <- get.c(i, nr)
 
36
    if (is.null(string)) {
 
37
        string <- deparse(expr)
 
38
        string <- substr(string, 12, nchar(string) - 1)
 
39
    }
 
40
    text((2*(c - 1) + 1), -r, string, col="grey")
 
41
    text((2*c), -r, expr, adj=c(.5,.5))
 
42
    rect((2*(c - 1) + .5), -(r - .5), (2*c + .5), -(r + .5), border="grey")
 
43
}
 
44
 
 
45
nr <- 20
 
46
nc <- 2
 
47
oldpar <- make.table(nr, nc)
 
48
i <- 0
 
49
draw.title.cell("Arithmetic Operators", i, nr); i <- i + 1
 
50
draw.plotmath.cell(expression(x + y), i, nr); i <- i + 1
 
51
draw.plotmath.cell(expression(x - y), i, nr); i <- i + 1
 
52
draw.plotmath.cell(expression(x * y), i, nr); i <- i + 1
 
53
draw.plotmath.cell(expression(x / y), i, nr); i <- i + 1
 
54
draw.plotmath.cell(expression(x %+-% y), i, nr); i <- i + 1
 
55
draw.plotmath.cell(expression(x %/% y), i, nr); i <- i + 1
 
56
draw.plotmath.cell(expression(x %*% y), i, nr); i <- i + 1
 
57
draw.plotmath.cell(expression(-x), i, nr); i <- i + 1
 
58
draw.plotmath.cell(expression(+x), i, nr); i <- i + 1
 
59
draw.title.cell("Sub/Superscripts", i, nr); i <- i + 1
 
60
draw.plotmath.cell(expression(x[i]), i, nr); i <- i + 1
 
61
draw.plotmath.cell(expression(x^2), i, nr); i <- i + 1
 
62
draw.title.cell("Juxtaposition", i, nr); i <- i + 1
 
63
draw.plotmath.cell(expression(x * y), i, nr); i <- i + 1
 
64
draw.plotmath.cell(expression(paste(x, y, z)), i, nr); i <- i + 1
 
65
draw.title.cell("Lists", i, nr); i <- i + 1
 
66
draw.plotmath.cell(expression(list(x, y, z)), i, nr); i <- i + 1
 
67
# even columns up
 
68
i <- 20
 
69
draw.title.cell("Radicals", i, nr); i <- i + 1
 
70
draw.plotmath.cell(expression(sqrt(x)), i, nr); i <- i + 1
 
71
draw.plotmath.cell(expression(sqrt(x, y)), i, nr); i <- i + 1
 
72
draw.title.cell("Relations", i, nr); i <- i + 1
 
73
draw.plotmath.cell(expression(x == y), i, nr); i <- i + 1
 
74
draw.plotmath.cell(expression(x != y), i, nr); i <- i + 1
 
75
draw.plotmath.cell(expression(x < y), i, nr); i <- i + 1
 
76
draw.plotmath.cell(expression(x <= y), i, nr); i <- i + 1
 
77
draw.plotmath.cell(expression(x > y), i, nr); i <- i + 1
 
78
draw.plotmath.cell(expression(x >= y), i, nr); i <- i + 1
 
79
draw.plotmath.cell(expression(x %~~% y), i, nr); i <- i + 1
 
80
draw.plotmath.cell(expression(x %=~% y), i, nr); i <- i + 1
 
81
draw.plotmath.cell(expression(x %==% y), i, nr); i <- i + 1
 
82
draw.plotmath.cell(expression(x %prop% y), i, nr); i <- i + 1
 
83
draw.title.cell("Typeface", i, nr); i <- i + 1
 
84
draw.plotmath.cell(expression(plain(x)), i, nr); i <- i + 1
 
85
draw.plotmath.cell(expression(italic(x)), i, nr); i <- i + 1
 
86
draw.plotmath.cell(expression(bold(x)), i, nr); i <- i + 1
 
87
draw.plotmath.cell(expression(bolditalic(x)), i, nr); i <- i + 1
 
88
v()
 
89
 
 
90
# Need fewer, wider columns for ellipsis ...
 
91
nr <- 20
 
92
nc <- 2
 
93
make.table(nr, nc)
 
94
i <- 0
 
95
draw.title.cell("Ellipsis", i, nr); i <- i + 1
 
96
draw.plotmath.cell(expression(list(x[1], ..., x[n])), i, nr); i <- i + 1
 
97
draw.plotmath.cell(expression(x[1] + ... + x[n]), i, nr); i <- i + 1
 
98
draw.plotmath.cell(expression(list(x[1], cdots, x[n])), i, nr); i <- i + 1
 
99
draw.plotmath.cell(expression(x[1] + ldots + x[n]), i, nr); i <- i + 1
 
100
draw.title.cell("Set Relations", i, nr); i <- i + 1
 
101
draw.plotmath.cell(expression(x %subset% y), i, nr); i <- i + 1
 
102
draw.plotmath.cell(expression(x %subseteq% y), i, nr); i <- i + 1
 
103
draw.plotmath.cell(expression(x %supset% y), i, nr); i <- i + 1
 
104
draw.plotmath.cell(expression(x %supseteq% y), i, nr); i <- i + 1
 
105
draw.plotmath.cell(expression(x %notsubset% y), i, nr); i <- i + 1
 
106
draw.plotmath.cell(expression(x %in% y), i, nr); i <- i + 1
 
107
draw.plotmath.cell(expression(x %notin% y), i, nr); i <- i + 1
 
108
draw.title.cell("Accents", i, nr); i <- i + 1
 
109
draw.plotmath.cell(expression(hat(x)), i, nr); i <- i + 1
 
110
draw.plotmath.cell(expression(tilde(x)), i, nr); i <- i + 1
 
111
draw.plotmath.cell(expression(ring(x)), i, nr); i <- i + 1
 
112
draw.plotmath.cell(expression(bar(xy)), i, nr); i <- i + 1
 
113
draw.plotmath.cell(expression(widehat(xy)), i, nr); i <- i + 1
 
114
draw.plotmath.cell(expression(widetilde(xy)), i, nr); i <- i + 1
 
115
draw.title.cell("Arrows", i, nr); i <- i + 1
 
116
draw.plotmath.cell(expression(x %<->% y), i, nr); i <- i + 1
 
117
draw.plotmath.cell(expression(x %->% y), i, nr); i <- i + 1
 
118
draw.plotmath.cell(expression(x %<-% y), i, nr); i <- i + 1
 
119
draw.plotmath.cell(expression(x %up% y), i, nr); i <- i + 1
 
120
draw.plotmath.cell(expression(x %down% y), i, nr); i <- i + 1
 
121
draw.plotmath.cell(expression(x %<=>% y), i, nr); i <- i + 1
 
122
draw.plotmath.cell(expression(x %=>% y), i, nr); i <- i + 1
 
123
draw.plotmath.cell(expression(x %<=% y), i, nr); i <- i + 1
 
124
draw.plotmath.cell(expression(x %dblup% y), i, nr); i <- i + 1
 
125
draw.plotmath.cell(expression(x %dbldown% y), i, nr); i <- i + 1
 
126
draw.title.cell("Symbolic Names", i, nr); i <- i + 1
 
127
draw.plotmath.cell(expression(Alpha - Omega), i, nr); i <- i + 1
 
128
draw.plotmath.cell(expression(alpha - omega), i, nr); i <- i + 1
 
129
draw.plotmath.cell(expression(infinity), i, nr); i <- i + 1
 
130
draw.plotmath.cell(expression(32 * degree), i, nr); i <- i + 1
 
131
draw.plotmath.cell(expression(60 * minute), i, nr); i <- i + 1
 
132
draw.plotmath.cell(expression(30 * second), i, nr); i <- i + 1
 
133
v()
 
134
# Need even fewer, wider columns for typeface and style ...
 
135
nr <- 20
 
136
nc <- 1
 
137
make.table(nr, nc)
 
138
i <- 0
 
139
draw.title.cell("Style", i, nr); i <- i + 1
 
140
draw.plotmath.cell(expression(displaystyle(x)), i, nr); i <- i + 1
 
141
draw.plotmath.cell(expression(textstyle(x)), i, nr); i <- i + 1
 
142
draw.plotmath.cell(expression(scriptstyle(x)), i, nr); i <- i + 1
 
143
draw.plotmath.cell(expression(scriptscriptstyle(x)), i, nr); i <- i + 1
 
144
draw.title.cell("Spacing", i, nr); i <- i + 1
 
145
draw.plotmath.cell(expression(x ~~ y), i, nr); i <- i + 1
 
146
v()
 
147
# Need fewer, taller rows for fractions ...
 
148
# cheat a bit to save pages
 
149
par(new = TRUE)
 
150
nr <- 10
 
151
nc <- 1
 
152
make.table(nr, nc)
 
153
i <- 4
 
154
draw.plotmath.cell(expression(x + phantom(0) + y), i, nr); i <- i + 1
 
155
draw.plotmath.cell(expression(x + over(1, phantom(0))), i, nr); i <- i + 1
 
156
draw.title.cell("Fractions", i, nr); i <- i + 1
 
157
draw.plotmath.cell(expression(frac(x, y)), i, nr); i <- i + 1
 
158
draw.plotmath.cell(expression(over(x, y)), i, nr); i <- i + 1
 
159
draw.plotmath.cell(expression(atop(x, y)), i, nr); i <- i + 1
 
160
v()
 
161
# Need fewer, taller rows and fewer, wider columns for big operators ...
 
162
nr <- 10
 
163
nc <- 1
 
164
make.table(nr, nc)
 
165
i <- 0
 
166
draw.title.cell("Big Operators", i, nr); i <- i + 1
 
167
draw.plotmath.cell(expression(sum(x[i], i=1, n)), i, nr); i <- i + 1
 
168
draw.plotmath.cell(expression(prod(plain(P)(X == x), x)), i, nr); i <- i + 1
 
169
draw.plotmath.cell(expression(integral(f(x) * dx, a, b)), i, nr); i <- i + 1
 
170
draw.plotmath.cell(expression(union(A[i], i==1, n)), i, nr); i <- i + 1
 
171
draw.plotmath.cell(expression(intersect(A[i], i==1, n)), i, nr); i <- i + 1
 
172
draw.plotmath.cell(expression(lim(f(x), x %->% 0)), i, nr); i <- i + 1
 
173
draw.plotmath.cell(expression(min(g(x), x >= 0)), i, nr); i <- i + 1
 
174
draw.plotmath.cell(expression(inf(S)), i, nr); i <- i + 1
 
175
draw.plotmath.cell(expression(sup(S)), i, nr); i <- i + 1
 
176
v()
 
177
make.table(nr, nc)
 
178
i <- 0
 
179
draw.title.cell("Grouping", i, nr); i <- i + 1
 
180
draw.plotmath.cell(expression((x + y)*z), i, nr); i <- i + 1
 
181
draw.plotmath.cell(expression(x^y + z), i, nr); i <- i + 1
 
182
draw.plotmath.cell(expression(x^(y + z)), i, nr); i <- i + 1
 
183
# have to do this one by hand
 
184
draw.plotmath.cell(expression(x^{y + z}), i, nr, string="x^{y + z}"); i <- i + 1
 
185
draw.plotmath.cell(expression(group("(", list(a, b), "]")), i, nr); i <- i + 1
 
186
draw.plotmath.cell(expression(bgroup("(", atop(x, y), ")")), i, nr); i <- i + 1
 
187
draw.plotmath.cell(expression(group(lceil, x, rceil)), i, nr); i <- i + 1
 
188
draw.plotmath.cell(expression(group(lfloor, x, rfloor)), i, nr); i <- i + 1
 
189
draw.plotmath.cell(expression(group("|", x, "|")), i, nr); i <- i + 1
 
190
v()
 
191
 
 
192
par(oldpar)
 
193
#par(opar)