comparison extra/integration/test/test_ncrule.m @ 0:6b33357c7561 octave-forge

Initial revision
author pkienzle
date Wed, 10 Oct 2001 19:54:49 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:6b33357c7561
1 [b1,w1]=ncrule(1);
2 [b2,w2]=ncrule(2);
3 [b3,w3]=ncrule(3);
4 [b4,w4]=ncrule(4);
5 [b5,w5]=ncrule(5);
6 [b6,w6]=ncrule(6);
7 [b7,w7]=ncrule(7);
8 [b8,w8]=ncrule(8);
9
10 f=gquad('sin',0,pi,1,b1,w1), correct_ans=2
11 f=gquad('sin',0,pi,1,b2,w2), correct_ans=2
12 f=gquad('sin',0,pi,1,b3,w3), correct_ans=2
13 f=gquad('sin',0,pi,1,b4,w4), correct_ans=2
14 f=gquad('sin',0,pi,1,b5,w5), correct_ans=2
15 f=gquad('sin',0,pi,1,b6,w6), correct_ans=2
16 f=gquad('sin',0,pi,1,b7,w7), correct_ans=2
17 f=gquad('sin',0,pi,1,b8,w8), correct_ans=2
18
19 f=gquad('fxpow',0,2,1,b1,w1,1), correct_ans=2
20 f=gquad('fxpow',0,2,1,b1,w1,2), correct_ans=8/3
21 f=gquad('fxpow',0,2,1,b1,w1,3), correct_ans=4
22
23 f=gquad('fxpow',0,2,1,b2,w2,2), correct_ans=8/3
24 f=gquad('fxpow',0,2,1,b2,w2,3), correct_ans=4
25 f=gquad('fxpow',0,2,1,b2,w2,4), correct_ans=32/5
26
27 f=gquad('fxpow',0,2,1,b3,w3,3), correct_ans=4
28 f=gquad('fxpow',0,2,1,b3,w3,4), correct_ans=32/5
29 f=gquad('fxpow',0,2,1,b3,w3,5), correct_ans=32/3
30
31 f=gquad('fxpow',0,2,1,b4,w4,4), correct_ans=32/5
32 f=gquad('fxpow',0,2,1,b4,w4,5), correct_ans=32/3
33 f=gquad('fxpow',0,2,1,b4,w4,6), correct_ans=128/7
34
35 f=gquad('fxpow',0,2,1,b5,w5,5),correct_ans=32/3
36 f=gquad('fxpow',0,2,1,b5,w5,6),correct_ans=128/7
37
38 f=gquad('fxpow',0,2,1,b6,w6,6),correct_ans=128/7
39 f=gquad('fxpow',0,2,1,b6,w6,7),correct_ans=32
40 f=gquad('fxpow',0,2,1,b6,w6,8),correct_ans=512/9
41
42 f=gquad('fxpow',0,2,1,b7,w7,7),correct_ans=32
43 f=gquad('fxpow',0,2,1,b7,w7,8),correct_ans=512/9
44
45 f=gquad('fxpow',0,2,1,b8,w8,8),correct_ans=512/9
46 f=gquad('fxpow',0,2,1,b8,w8,9),correct_ans=512/5
47 f=gquad('fxpow',0,2,1,b8,w8,10),correct_ans=2048/11