Mercurial > hg > jgplsrc

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