source:
MML/trunk/machine/SOLEIL/common/toolbox/chebfun_v2_0501/chebfun/chebtests/eigsho.m
@
4
Last change on this file since 4 was 4, checked in by , 11 years ago | |
---|---|
File size: 180 bytes |
Line | |
---|---|
1 | function pass = eigsho |
2 | |
3 | tol = chebfunpref('eps'); |
4 | d = domain(0,pi); |
5 | A = diff(d,2) & 'dirichlet'; |
6 | lam = eigs(A,10); |
7 | k = sqrt(-lam); |
8 | |
9 | pass = norm( k - (1:10)', Inf ) < 1000*tol; |
10 | |
11 | |
12 |
Note: See TracBrowser
for help on using the repository browser.