source: MML/trunk/machine/SOLEIL/common/toolbox/chebfun_v2_0501/chebfun/chebtests/normtests.m

Last change on this file was 17, checked in by zhangj, 10 years ago

To have a stable version on the server.
  • Property svn:executable set to *
File size: 483 bytes
Line 
1function pass = normtests
2
3% Nick Trefethen  22 March 2009
4tol = chebfunpref('eps');
5x = chebfun('x');
6absx = abs(x);
7pass1 = (norm(absx,1)==1);
8
9dabsx = diff(abs(x));
10pass2 = (norm(dabsx,1)==2);
11pass3 = (norm(dabsx,inf)==1);
12pass4 = (norm(-dabsx,inf)==1);
13
14ddabsx = diff(dabsx);
15pass5 = (norm(ddabsx,1)==2);
16pass6 = (norm(-ddabsx,1)==2);
17pass7 = (norm(ddabsx,inf)==inf);
18pass8 = (norm(-ddabsx,inf)==inf);
19pass = pass1 && pass2 && pass3 && pass4 && pass5 && pass6 && pass7 && pass8;
Note: See TracBrowser for help on using the repository browser.