source: MML/trunk/machine/SOLEIL/common/toolbox/chebfun_v2_0501/chebfun/chebtests/cumsumcos100x.m @ 4

Last change on this file since 4 was 4, checked in by zhangj, 11 years ago

Initial import--MML version from SOLEIL@2013
File size: 319 bytes
Line 
1function pass = cumsumcos100x
2
3% Rodrigo Platte
4
5f = chebfun('cos(100*x)',[10 13]);
6fint = chebfun('sin(100*x)/100',[10 13])-sin(1000)/100;
7
8% real
9pass = norm(cumsum(f)-fint) < 1e-13*f.scl*chebfunpref('eps')/eps;
10
11%imaginary
12pass = pass && norm(cumsum(f*1i)-1i*fint,inf) < ...
13    1e-13*f.scl*chebfunpref('eps')/eps;
14
Note: See TracBrowser for help on using the repository browser.