'surface' plot ((2 o.]),:2 o.|:)j./~i:0j99+o. 2
|index error: plot3d_surface
| clr=.j {BANDCOLOR
??
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Devon McCormick
Sent: Wednesday, May 16, 2007 11:32
To: Programming forum
Subject: Re: [Jprogramming] the most impressive & beautiful J phrase
The plots are eye-catching and they demonstrate the power of J graphically
which lends itself well to a t-shirt. However, if using a plot, I would use a
more colorful palette than the default RGCLR. I have a few that I've made that
I can provide to anyone who's interested.
In fact, here's one - the code to generate it is a bit involved, so I'll just
give the resulting palette. Use it with "plot" this way:
RGCLR_jzplot_=: ADJPAL
'surface' plot ((2 o.]),:2 o.|:)j./~i:0j99+o. 2
or you can do
viewmat 16 16$ADJPAL
to look at the palette on its own.
ADJPAL=: ".&><;._2 ] 0 : 0
0 0 0
0 0 10
0 0 20
0 0 31
0 0 41
0 0 51
0 0 61
0 0 71
0 0 82
0 0 92
0 0 102
0 0 112
0 0 122
0 0 133
0 0 143
0 0 153
0 0 163
0 0 173
0 0 184
0 0 194
0 0 204
0 0 214
0 0 224
0 0 235
0 0 255
0 7 248
0 14 241
0 21 234
0 28 227
0 34 221
0 41 214
0 48 207
0 55 200
0 62 193
0 69 186
0 76 179
0 83 172
0 90 165
0 96 159
0 103 152
0 110 145
0 117 138
0 124 131
0 131 124
0 138 117
0 145 110
0 152 103
0 159 96
0 165 90
0 172 83
0 179 76
0 186 69
0 193 62
0 200 55
0 207 48
0 214 41
0 221 34
0 227 28
0 234 21
0 241 14
0 255 0
0 255 5
0 255 11
0 255 16
0 255 22
0 255 27
0 255 33
0 255 38
0 255 43
0 255 49
0 255 54
0 255 60
0 255 65
0 255 71
0 255 76
0 255 81
0 255 87
0 255 92
0 255 98
0 255 103
120 254 96
121 251 99
122 247 102
124 244 105
125 241 107
126 237 110
127 234 113
128 231 116
129 227 119
131 224 122
132 221 125
133 217 127
134 214 130
135 211 133
137 207 136
138 204 139
139 200 142
140 197 145
141 194 147
142 190 150
144 187 153
145 184 156
146 180 159
147 177 162
148 174 165
150 170 167
151 167 170
152 164 173
153 160 176
154 157 179
155 154 182
157 150 184
158 147 187
159 144 190
160 140 193
161 137 196
163 134 199
164 130 202
165 127 204
166 124 207
167 120 210
168 117 213
170 113 216
171 110 219
172 107 222
173 103 224
174 100 227
176 97 230
177 93 233
178 90 236
179 87 239
180 83 242
181 80 244
183 77 247
184 73 250
185 70 253
187 68 255
193 62 255
199 56 255
205 50 255
211 44 255
218 37 255
224 31 255
230 25 255
236 19 255
243 12 255
255 0 255
255 0 249
255 0 243
255 0 236
255 0 230
255 0 224
255 0 218
255 0 211
255 0 205
255 0 199
255 0 193
255 0 187
255 0 180
255 0 174
255 0 168
255 0 162
255 0 155
255 0 149
255 0 143
255 0 137
255 0 131
255 0 124
255 0 118
255 0 112
255 0 106
255 0 100
255 0 93
255 0 87
255 0 81
255 0 75
255 0 68
255 0 62
255 0 56
255 0 50
255 0 44
255 0 37
255 0 31
255 0 25
255 0 19
255 0 12
255 0 0
255 5 0
255 10 0
255 15 0
255 20 0
255 25 0
255 30 0
255 35 0
255 40 0
255 45 0
255 50 0
255 55 0
255 60 0
255 65 0
255 70 0
255 75 0
255 80 0
255 85 0
255 90 0
255 95 0
255 100 0
255 105 0
255 110 0
255 115 0
255 120 0
255 125 0
255 130 0
255 135 0
255 140 0
255 145 0
255 150 0
255 155 0
255 160 0
255 165 0
255 170 0
255 175 0
255 180 0
255 185 0
255 190 0
255 195 0
255 200 0
255 205 0
255 210 0
255 215 0
255 220 0
255 225 0
255 230 0
255 235 0
255 240 0
255 245 0
255 255 0
255 255 8
255 255 16
255 255 25
255 255 33
255 255 41
255 255 49
255 255 58
255 255 66
255 255 74
255 255 82
255 255 90
255 255 99
255 255 107
255 255 115
255 255 123
255 255 132
255 255 140
255 255 148
255 255 156
)
On 5/16/07, R.A. MacDonald <[EMAIL PROTECTED]> wrote:
>
> Hi Anssi;
>
> That would be a mean t-shirt! It resonates with the expression for
> cofactors on the J coffee mug.
>
> All the plot sentences would merely demo plotting, not J itself.
>
> (!."1)@([,"1|) would make 'T' out of 'J' so would that do?
>
> Anssi Seppälä wrote:
> > mean =: +/ % #
> >
> > At 16:43 16.5.2007, you wrote:
> >> My original ideas was printing only the codes on the T-shirt.
> >>
> >> However, displaying the result of the code together might be a good
> >> idea, too.
> >>
> >> Thanks.
> >
> > --------------------------------------------------------------------
> > --
> > For information about J forums see http://www.jsoftware.com/forums.htm
> >
>
> --
> ----------------------------------------------------------------------
> --
> |\/| Randy A MacDonald | APL: If you can say it, it's done.. (ram)
> |/\| [EMAIL PROTECTED] |
> |\ | | The only real problem with APL is that
> BSc(Math) UNBF'83 | it is "still ahead of its time."
> Sapere Aude | - Morten Kromberg
> Natural Born APL'er | Demo website: http://156.34.65.44/
> -----------------------------------------------------(INTP)----{ gnat
> }-
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
--
Devon McCormick, CFA
^me^ at acm.
org is my
preferred e-mail
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
__________ NOD32 2271 (20070516) Information __________
This message was checked by NOD32 antivirus system. http://www.eset.com
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
