source:
MML/trunk/machine/SOLEIL/common/toolbox/chebfun_v2_0501/chebfun/chebtests/sumcos20x.m
@
4
Last change on this file since 4 was 4, checked in by , 10 years ago | |
---|---|
File size: 208 bytes |
Line | |
---|---|
1 | function pass = sumcos20x |
2 | |
3 | % TAD |
4 | |
5 | tol = chebfunpref('eps'); |
6 | |
7 | f = chebfun('cos(20*x)'); |
8 | pass = abs(sum(f)-sin(20)/10) < 1e-15*(tol/eps); |
9 | |
10 | % RodP |
11 | pass = pass && abs(sum(f*1i)-1i*sin(20)/10) < 1e-15*(tol/eps); |
12 |
Note: See TracBrowser
for help on using the repository browser.