Mercurial > hg > jgplsrc

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