Last change
on this file was
17,
checked in by zhangj, 11 years ago
|
To have a stable version on the server.
|
-
Property svn:executable set to
*
|
File size:
369 bytes
|
Rev | Line | |
---|
[17] | 1 | function pass = pointevals |
---|
| 2 | |
---|
| 3 | % LNT 20 May 2008 |
---|
| 4 | % This code makes sure point evaluations are working |
---|
| 5 | |
---|
| 6 | splitting on |
---|
| 7 | |
---|
| 8 | f = chebfun(@(x) sign(x-1),[0 2]); |
---|
| 9 | pass1 = (f(1+eps) == 1); |
---|
| 10 | pass2 = (f(1-eps) == -1); |
---|
| 11 | pass3 = (f(1) == 0); |
---|
| 12 | f(1) = 3; |
---|
| 13 | f(1.5) = 4; |
---|
| 14 | pass4 = (f(1) == 3); |
---|
| 15 | pass5 = (f(1.5) == 4); |
---|
| 16 | pass6 = (sum(f) == 0); |
---|
| 17 | pass = pass1 && pass2 && pass3 && pass4 && pass5 && pass6; |
---|
Note: See
TracBrowser
for help on using the repository browser.