source:
MML/trunk/machine/SOLEIL/common/toolbox/chebfun_v2_0501/chebfun/chebtests/operarith.m
@
4
Last change on this file since 4 was 4, checked in by , 10 years ago | |
---|---|
File size: 217 bytes |
Line | |
---|---|
1 | function pass = operarith |
2 | |
3 | d = domain(-1,4); |
4 | Q = cumsum(d); |
5 | D = diff(d); |
6 | f = chebfun(@(x) exp(sin(x).^2+2),d); |
7 | F = diag(f); |
8 | A = -(2*D^2 - F*Q + 3); |
9 | Af = A*f; |
10 | |
11 | pass = norm( Af - (f.*cumsum(f)-2*diff(f,2)-3*f) ) < eps; |
Note: See TracBrowser
for help on using the repository browser.