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:
302 bytes
|
Line | |
---|
1 | function pass = restrictscl |
---|
2 | |
---|
3 | % RodP Jan 09 |
---|
4 | % This function tests the retrict function (problem related to a bug report |
---|
5 | % by Justin Kao of MIT. |
---|
6 | |
---|
7 | tol = chebfunpref('eps'); |
---|
8 | |
---|
9 | f = chebfun(@(x)x,[0 1]); |
---|
10 | g = f{0.5,1}; |
---|
11 | pass = norm(g.^-2-(g.^-1./g),inf)<100*tol && g.scl == 1 && norm(g.imps - [0.5 1],inf)<tol; |
---|
Note: See
TracBrowser
for help on using the repository browser.