Mercurial > hg > jgplsrc

comparison test/gintg.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. scalar function integrals -------------------------------------------
2
3 I =: 1 : 'x d. _1'
4 D =: 1 : 'x d. 1'
5
6 t =: 5e_11
7 z =: (% |) j./ 16384 %~ _5e5 + 2 4 5 ?@$ 1e6 NB. data for testing
8 test =: 1 : 'x I D -: x"0' NB. use as f test z
9
10 testlr =: 1 : '(u testl y) , (u testr y)'
11
12 testl=: 1 : 0
13 assert. t > | ( u - u I D) y
14 assert. t > | (<: @u - <: @u I D) y
15 assert. t > | (>: @u - >: @u I D) y
16 assert. t > | (+: @u - +: @u I D) y
17 assert. t > | (- @u - - @u I D) y
18 assert. t > | (-. @u - -. @u I D) y
19 assert. t > | (-: @u - -: @u I D) y
20 assert. t > | (j. @u - j. @u I D) y
21 assert. t > | (0.3&+@u - 0.3&+@u I D) y
22 assert. t > | (+&0.3@u - +&0.3@u I D) y
23 assert. t > | (0.3&-@u - 0.3&-@u I D) y
24 assert. t > | (-&0.3@u - -&0.3@u I D) y
25 assert. t > | (0.3&*@u - 0.3&*@u I D) y
26 assert. t > | (*&0.3@u - *&0.3@u I D) y
27 assert. t > | (%&0.3@u - %&0.3@u I D) y
28 assert. t > | (0.4 _0.3&p. @u - (0.4 _0.3&p.) @u I D) y
29 assert. t > | ((0.5"0 + 0.7"0 * ])@u - (0.5"0 + 0.7"0 * ])@u I D) y
30 1
31 )
32
33 testr=: 1 : 0
34 assert. t > | (u - u I D) y
35 assert. t > | (u@<: - u@<: I D) y
36 assert. t > | (u@>: - u@>: I D) y
37 assert. t > | (u@+: - u@+: I D) y
38 assert. t > | (u@- - u@- I D) y
39 assert. t > | (u@-. - u@-. I D) y
40 assert. t > | (u@-: - u@-: I D) y
41 assert. t > | (u@j. - u@j. I D) y
42 assert. t > | (u@(0.3&+) - u@(0.3&+) I D) y
43 assert. t > | (u@(+&0.3) - u@(+&0.3) I D) y
44 assert. t > | (u@(0.3&-) - u@(0.3&-) I D) y
45 assert. t > | (u@(-&0.3) - u@(-&0.3) I D) y
46 assert. t > | (u@(0.4&*) - u@(0.4&*) I D) y
47 assert. t > | (u@(*&0.5) - u@(*&0.5) I D) y
48 assert. t > | (u@(%&3) - u@(%&3) I D) y
49 assert. t > | (u@(0.4 _0.3&p.) - u@(0.4 _0.3&p.) I D) y
50 assert. t > | (u@(0.5"0 + 0.7"0 * ]) - u@(0.5"0 + 0.7"0 * ]) I D) y
51 1
52 )
53
54 <: testlr z
55 >: testlr z
56 +: testlr z
57 *: testlr z
58 - testlr z
59 -. testlr z
60 -: testlr z
61 %: testlr z
62 ^ testlr z
63 ^. testlr z
64 ] testlr z
65 [ testlr z
66 j. testlr z
67 o. testlr z
68 r. testlr z
69 _9: testlr z
70 _8: testlr z
71 _7: testlr z
72 _6: testlr z
73 _5: testlr z
74 _4: testlr z
75 _3: testlr z
76 _2: testlr z
77 _1: testlr z
78 0: testlr z
79 1: testlr z
80 2: testlr z
81 3: testlr z
82 4: testlr z
83 5: testlr z
84 6: testlr z
85 7: testlr z
86 8: testlr z
87 9: testlr z
88
89 + ~ testlr z
90 * ~ testlr z
91 - ~ testlr z
92 % ~ testlr z
93 ^.~ testlr z
94
95 3&! testlr z
96 1&o. testlr z
97 2&o. testlr z
98 3&o. testlr z
99 5&o. testlr z
100 6&o. testlr z
101 7&o. testlr z
102
103 *: @(1&o.) testlr z
104 ^&2@(1&o.) testlr z
105 ^&3@(1&o.) testlr z
106 ^&4@(1&o.) testlr z
107 ^&5@(1&o.) testlr z
108
109 *: @(2&o.) testlr z
110 ^&2@(2&o.) testlr z
111 ^&3@(2&o.) testlr z
112 ^&4@(2&o.) testlr z
113 ^&5@(2&o.) testlr z
114
115 *: @(3&o.) testlr z
116 ^&2@(3&o.) testlr z
117 ^&3@(3&o.) testlr z
118 ^&4@(3&o.) testlr z
119 ^&5@(3&o.) testlr z
120
121 *: @(7&o.) testlr z
122 ^&2@(7&o.) testlr z
123 ^&3@(7&o.) testlr z
124 ^&4@(7&o.) testlr z
125 ^&5@(7&o.) testlr z
126
127 *: @^. testlr z
128 ^&2@^. testlr z
129 ^&3@^. testlr z
130 ^&4@^. testlr z
131 ^&5@^. testlr z
132
133
134 4!:55 ;:'D I t test testl testlr testr z'