Mercurial > hg > jgplsrc

annotate test/gddot.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. d. scalar functions -------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 equ=: 2 : '''x'' -:&(5!:5)&< ''y'''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 eqt=: 2 : '(x t. i.20) -: (y t. i.20)'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 eqv=: 2 : '(x v) -: y v=. 0.01*_500+?2 3$1000'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 1: d. 1 eqt 0:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 2.5"0 d. 1 eqt 0:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 _14"0 d. 1 eqt 0:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10 -~ d. 1 eqt 0:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 %~ d. 1 eqt 0:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 6&p. d. 1 eqt 0:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 _6&p. d. 1 eqt 0:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 ''&p. d. 1 eqt 0:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16 >: d. 1 eqt 1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 <: d. 1 eqt 1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18 ] d. 1 eqt 1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 [ d. 1 eqt 1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 3&+ d. 1 eqt 1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 +&3 d. 1 eqt 1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 -&3 d. 1 eqt 1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23 2.5&+ d. 1 eqt 1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 +&2.5 d. 1 eqt 1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 - d. 1 eqt _1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 -. d. 1 eqt _1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28 2.5&- d. 1 eqt _1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 _1&* d. 1 eqt _1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 *&_1 d. 1 eqt _1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 +: d. 1 eqt 2:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33 +~ d. 1 eqt 2:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34 -: d. 1 eqt (0.5"0)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 o. d. 1 eqt (1p1"0)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 *: d. 1 equ +:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 ^. d. 1 equ %
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 ^ d. 1 equ ^
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40 %: d. 1 equ (-:@%@%:)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41 0&o. d. 1 equ (- % 0&o.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42 1&o. d. 1 equ (2&o.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43 2&o. d. 1 equ (-@(1&o.))
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44 2&! d. 1 eqt (_0.5 1&p.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45 2&! d. 1 eqt (-:@(] * <:) d. 1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47 (+: + *: ) d. 1 eqt (2: + +: )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48 (+: + 1: ) d. 1 eqt 2:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49 (^. + 1&o.) d. 1 equ (% + 2&o.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51 (+: - *: ) d. 1 eqt (2: - +: )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 (+: - 1: ) d. 1 eqt 2:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53 (1: - +: ) d. 1 eqt _2:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54 (17"0 - +: ) d. 1 eqt _2:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55 (^. - 1&o.) d. 1 equ (% - 2&o.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 (] * <: ) d. 1 eqt (+:@(2&!) d. 1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58 (] * >: ) d. 1 eqt (+:@(2&!)@>: d. 1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59 (1&o. * ^ ) d. 1 eqv ((2&o.*^) + (1&o.*^))
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60 (1&o. * ] ) d. 1 eqv ((2&o.*]) + 1&o.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62 (1&o. % ] ) d. 1 eqv (((2&o.*]) - 1&o.) % *:)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64 (] ^ 0: ) d. 1 eqt 0:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65 (] ^ 1: ) d. 1 eqt 1:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66 (] ^ 2: ) d. 1 eqt +:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67 (] ^ 3: ) d. 1 eqt (0 0 3&p.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68 (] ^ 4: ) d. 1 eqt (0 0 0 4&p.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
69 (] ^ 5: ) d. 1 eqt (0 0 0 0 5&p.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
70 (] ^ 2j5"0)d. 1 eqv (2j5&* @ (^&1j5))
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
71 (] ^ _1: ) d. 1 eqv (% d. 1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
72
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
73 ^@(]^2:) d. 1 eqv (^@*: d. 1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
74 *:@^ d. 1 eqt (+:@^ * ^)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
75 2&!@*: d. 1 eqt ((2&! d. 1)@*: * +:)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
76 (1&o.@+:) d. 1 eqt (+:@(2&o.)@+:)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
77 (+:@(1&o.)) d. 1 eqt (+:@(2&o.))
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
78 (*:@>:) d. 1 eqt (2 2&p.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
79 (>:@*:) d. 1 eqt (0 2&p.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
80
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
81 0&o. d. 1 equ (- % 0&o.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
82 0&o. d. 1 eqv (%:@-.@*: d. 1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
83
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
84 *:^:3 d. 1 eqt (8: * ^&7 )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
85 *:^:2 d. 1 eqt (*:@*: d. 1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
86 *:^:1 d. 1 eqt (*: d. 1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
87 *:@>:^:3 d. 1 eqt ((p.. *:@>:@*:@>:@*:@>: t. i.12)&p.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
88 >:@*:^:3 d. 1 eqt (>:@*:@>:@*:@>:@*: d. 1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
89 +:^:_1 d. 1 eqt (0.5"_ )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
90 +:^:_2 d. 1 eqt (0.25"_ )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
91
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
92 ^&3 d. _1 eqt ((^&2 * ]) d. _1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
93 ^&3 d. _1 eqt ((*: * ]) d. _1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
94
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
95 1 2 3&p. d. _1 eqt ((1: + +: + 3&*@*:) d. _1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
96 (1 2 3&p. + 4 5&p.) d. _1 eqt (5 7 3&p. d. _1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
97 (1 2 3&p. - 4 5&p.) d. _1 eqt (_3 _3 3&p. d. _1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
98 (1 2 3&p. * 4 5&p.) d. _1 eqt ((+//.1 2 3*/4 5)&p. d. _1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
99
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
100 ((1 % *:) d. 1) equ ((1: % *:) d. 1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
101 ((1 + *:) d. _1) equ ((1: + *:) d. _1)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
102
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
103
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
104 4!:55 ;:'eqt equ eqv'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
105
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
106