source:
MML/trunk/machine/SOLEIL/common/toolbox/chebfun_v2_0501/chebfun/chebtests/convspline.m
@
4
Last change on this file since 4 was 4, checked in by , 10 years ago | |
---|---|
File size: 275 bytes |
Line | |
---|---|
1 | function pass = convspline |
2 | |
3 | B = (1/6)*chebfun( {'(2+x).^3','1+3*(1+x)+3*(1+x).^2-3*(1+x).^3',... |
4 | '1+3*(1-x)+3*(1-x).^2-3*(1-x).^3','(2-x).^3'}, -2:2 ); |
5 | |
6 | s = chebfun(1,[-.5 .5]); |
7 | f = s; |
8 | for k = 1:3, f = conv(f,s); end |
9 | |
10 | pass = norm( f-B ) < 1e-14*chebfunpref('eps')/eps; |
11 | |
12 | end |
Note: See TracBrowser
for help on using the repository browser.