source: MML/trunk/machine/SOLEIL/common/toolbox/chebfun_v2_0501/chebfun/chebtests/orthosincos.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: 197 bytes
Line 
1function pass = orthosincos
2
3% TAD
4
5S = []; C = [];
6for n = 1:5
7  S = [S chebfun(@(x) sin(n*x),[0 2*pi])];
8  C = [C chebfun(@(x) cos(n*x),[0 2*pi])];
9end
10ip = S'*C;
11pass = norm(ip) < 100*eps;
12
13end
Note: See TracBrowser for help on using the repository browser.