Mercurial > hg > jgplsrc

annotate test/g112a.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){1 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 1 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=. 2|?100$2e5
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=.2|?2e5
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=. 2|?10 40$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 (x*:y) -: x*:40$"0 y [ x=. ?10 40$2 [ y=. 2|?10$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 1 1 1 0 -: 0 0 1 1 *: 0 1 0 1+4-4
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.2|?100$2e5
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.2|?2e5
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.2|?10 40$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42 (x*:y) -: x*:40$"0 y [ x=. ?10 40$2 [ y=. [&.o.2|?10$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44 1 1 1 0 -: 0 0 1 1 *: 0 1 0 1+3.5-3.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47 NB. I *: B ---------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49 x=. 2|?100$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50 y=. ?100$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51 (x*:y) -: (z+x)*:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 (x*:y) -: (z*x)*:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53 (z*:y) -: (($y)$z)*:y [ z=.2|?2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54 (x*:z) -: x*:($x)$z [ z=.?2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56 (x*:y) -: (40$"0 x)*:y [ x=. 2|?10$2e5 [ y=. ?10 40$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 (x*:y) -: x*:40$"0 y [ x=. 2|?10 40$2e5 [ y=. ?10$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59 1 1 1 0 -: (0 0 1 1+3-3) *: 0 1 0 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62 NB. I *: I ---------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64 x=. 2|?100$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65 y=. 2|?100$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66 (x*:y) -: (z+x)*:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67 (x*:y) -: (z*x)*:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68 (z*:y) -: (($y)$z)*:y [ z=.2|?2e6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
69 (x*:z) -: x*:($x)$z [ z=.2|?2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
70
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
71 (x*:y) -: (40$"0 x)*:y [ x=. 2|?10$2e5 [ y=. 2|?10 40$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
72 (x*:y) -: x*:40$"0 y [ x=. 2|?10 40$2e5 [ y=. 2|?10$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
73
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
74 1 1 1 0 -: (0 0 1 1+3-3) *: 0 1 0 1+3-3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
75
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
76
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
77 NB. I *: D ---------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
78
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
79 x=. 2|?100$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
80 y=. [&.o.2|?100$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
81 (x*:y) -: (z+x)*:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
82 (x*:y) -: (z*x)*:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
83 (z*:y) -: (($y)$z)*:y [ z=.2|?2e6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
84 (x*:z) -: x*:($x)$z [ z=.[&.o.2|?2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
85
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
86 (x*:y) -: (40$"0 x)*:y [ x=. 2|?10$2e5 [ y=. [&.o.2|?10 40$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
87 (x*:y) -: x*:40$"0 y [ x=. 2|?10 40$2e5 [ y=. [&.o.2|?10$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
88
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
89 1 1 1 0 -: (0 0 1 1+3-3) *: 0 1 0 1+3.4-3.4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
90
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
91
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
92 NB. D *: B ---------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
93
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
94 x=. [&.o.2|?100$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
95 y=. ?100$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
96 (x*:y) -: (z+x)*:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
97 (x*:y) -: (z*x)*:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
98 (z*:y) -: (($y)$z)*:y [ z=.[&.o.2|?2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
99 (x*:z) -: x*:($x)$z [ z=.?2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
101 (x*:y) -: (40$"0 x)*:y [ x=. [&.o.2|?10$2e5 [ y=. ?10 40$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
102 (x*:y) -: x*:40$"0 y [ x=. [&.o.2|?10 40$2e5 [ y=. ?10$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
103
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
104 1 1 1 0 -: (0 0 1 1+3.4-3.4) *: 0 1 0 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
105
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
106
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
107 NB. D *: I ---------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
108
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
109 x=. [&.o.2|?100$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
110 y=. 2|?100$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
111 (x*:y) -: (z+x)*:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
112 (x*:y) -: (z*x)*:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
113 (z*:y) -: (($y)$z)*:y [ z=.[&.o.2|?2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
114 (x*:z) -: x*:($x)$z [ z=.2|?2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
115
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
116 (x*:y) -: (40$"0 x)*:y [ x=. [&.o.2|?10$2e5 [ y=. 2|?10 40$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
117 (x*:y) -: x*:40$"0 y [ x=. [&.o.2|?10 40$2e5 [ y=. 2|?10$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
118
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
119 1 1 1 0 -: (0 0 1 1+3.4-3.4) *: 0 1 0 1+34-34
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
120
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
121
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
122 NB. D *: D ---------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
123
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
124 x=. [&.o.2|?100$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
125 y=. [&.o.2|?100$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
126 (x*:y) -: (z+x)*:z+y [ z=.{.0 4.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
127 (x*:y) -: (z*x)*:z*y [ z=.{.1 4j5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
128 (z*:y) -: (($y)$z)*:y [ z=.[&.o.2|?2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
129 (x*:z) -: x*:($x)$z [ z=.[&.o.2|?2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
130
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
131 (x*:y) -: (40$"0 x)*:y [ x=. [&.o.2|?10$2e5 [ y=. [&.o.2|?10 40$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
132 (x*:y) -: x*:40$"0 y [ x=. [&.o.2|?10 40$2e5 [ y=. [&.o.2|?10$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
133
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
134 1 1 1 0 -: (0 0 1 1+3.4-3.4) *: 0 1 0 1+3.4-3.4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
135
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
136 4!:55 ;:'x y z'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
137
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
138