Mercurial > hg > jgplsrc

annotate test/g222a.ijs @ 0:e0bbaa717f41 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lol J
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Mon, 25 Nov 2013 11:56:30 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
1 NB. B ~: B --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 x=. ?100$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 y=. ?100$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 (x~:y) -: (#.x,.y){0 1 1 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 (z~:y) -: (($y)$z)~:y [ z=.?2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 (x~:z) -: x~:($x)$z [ z=.?2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 (x~:y) -: (40$"0 x)~:y [ x=. ?10$2 [ y=. ?10 40$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 (x~:y) -: x~:40$"0 y [ x=. ?10 40$2 [ y=. ?10$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 0 1 1 0 -: 0 0 1 1 ~: 0 1 0 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 NB. B ~: I --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 x=. ?100$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 y=. _1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23 (z~:y) -: (($y)$z)~:y [ z=.?2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 (x~:z) -: x~:($x)$z [ z=._1e2+?2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 (x~:y) -: (40$"0 x)~:y [ x=. ?10$2 [ y=. _1e2+?10 40$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 (x~:y) -: x~:40$"0 y [ x=. ?10 40$2 [ y=. _1e2+?10$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 0 1 1 0 1 1 1 1 -: 0 0 1 1 0 0 1 1 ~: 0 1 0 1 _4 3 4 _3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 NB. B ~: D --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34 x=. ?100$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 y=. o._1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 (z~:y) -: (($y)$z)~:y [ z=.?2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 (x~:z) -: x~:($x)$z [ z=.o._1e2+?2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41 (x~:y) -: (40$"0 x)~:y [ x=. ?10$2 [ y=. o._1e2+?10 40$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42 (x~:y) -: x~:40$"0 y [ x=. ?10 40$2 [ y=. o._1e2+?10$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44 0 1 1 0 1 1 1 1 -: 0 0 1 1 0 0 1 1 ~: 0 1 0 1 _2.5 1.2 _2.5 1.2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45 0 1 1 0 1 1 1 1 -: 0 0 1 1 0 0 1 1 ~: 0 1 0 1 __ _ __ _
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46 (14 6#1 0) -: 1~:1+10^-i.20
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49 NB. I ~: B --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51 x=. _1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 y=. ?100$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55 (z~:y) -: (($y)$z)~:y [ z=._1e2+?2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56 (x~:z) -: x~:($x)$z [ z=.?2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58 (x~:y) -: (40$"0 x)~:y [ x=. _1e2+?10$2e2 [ y=. ?10 40$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59 (x~:y) -: x~:40$"0 y [ x=. _1e2+?10 40$2e2 [ y=. ?10$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61 0 1 1 0 1 1 1 1 -: 0 0 1 1 _3 _3 4 4 ~: 0 1 0 1 0 1 0 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62 1 1 1 1 -: 2147483647 2147483647 _2147483648 _2147483648 ~: 0 1 0 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65 NB. I ~: I --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67 x=. _1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68 y=. _1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
69 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
70 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
71 (z~:y) -: (($y)$z)~:y [ z=.?2e6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
72 (x~:z) -: x~:($x)$z [ z=._1e2+?2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
73
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
74 (x~:y) -: (40$"0 x)~:y [ x=. _1e2+?10$2e2 [ y=. _1e2+?10 40$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
75 (x~:y) -: x~:40$"0 y [ x=. _1e2+?10 40$2e2 [ y=. _1e2+?10$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
76
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
77 (9 1#1 0) -: 9~:i.10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
78
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
79
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
80 NB. I ~: D --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
81
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
82 x=. _1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
83 y=. o._1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
84 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
85 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
86 (z~:y) -: (($y)$z)~:y [ z=.?2e6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
87 (x~:z) -: x~:($x)$z [ z=.o._1e2+?2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
88
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
89 (x~:y) -: (40$"0 x)~:y [ x=. _1e2+?10$2e2 [ y=. o._1e2+?10 40$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
90 (x~:y) -: x~:40$"0 y [ x=. _1e2+?10 40$2e2 [ y=. o._1e2+?10$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
91
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
92 (14 6#1 0) -: 17~:17*1+10^-i.20
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
93
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
94
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
95 NB. D ~: B --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
96
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
97 x=. o._1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
98 y=. ?100$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
99 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
100 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
101 (z~:y) -: (($y)$z)~:y [ z=.o._1e2+?2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
102 (x~:z) -: x~:($x)$z [ z=.?2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
103
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
104 (x~:y) -: (40$"0 x)~:y [ x=. o._1e2+?10$2e2 [ y=. ?10 40$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
105 (x~:y) -: x~:40$"0 y [ x=. o._1e2+?10 40$2e2 [ y=. ?10$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
106
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
107 (14 6#1 0) -: (1+10^-i.20)~:1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
108
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
109
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
110 NB. D ~: I --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
111
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
112 x=. o._1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
113 y=. _1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
114 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
115 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
116 (z~:y) -: (($y)$z)~:y [ z=.o._1e2+?2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
117 (x~:z) -: x~:($x)$z [ z=._1e2+?2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
118
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
119 (x~:y) -: (40$"0 x)~:y [ x=. o._1e2+?10$2e2 [ y=. _1e2+?10 40$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
120 (x~:y) -: x~:40$"0 y [ x=. o._1e2+?10 40$2e2 [ y=. _1e2+?10$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
121
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
122 (14 6#1 0) -: (17*1+10^-i.20)~:17
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
123
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
124
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
125 NB. D ~: D --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
126
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
127 x=. o._1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
128 y=. o._1e2+?100$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
129 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
130 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
131 (z~:y) -: (($y)$z)~:y [ z=.o._1e2+?2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
132 (x~:z) -: x~:($x)$z [ z=.o._1e2+?2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
133
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
134 (x~:y) -: (40$"0 x)~:y [ x=. o._1e2+?10$2e2 [ y=. o._1e2+?10 40$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
135 (x~:y) -: x~:40$"0 y [ x=. o._1e2+?10 40$2e2 [ y=. o._1e2+?10$2e2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
136
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
137 (14 6#1 0) -: _17.4~:_17.4*1+10^-i.20
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
138
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
139 4!:55 ;:'x y z'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
140
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
141