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:
464 bytes
|
Line | |
---|
1 | function pass = airy_extrema |
---|
2 | |
---|
3 | % Rodrigo Platte |
---|
4 | |
---|
5 | f = chebfun('exp(real(airy(x)))',[-15,0]); |
---|
6 | r = roots(diff(f)); |
---|
7 | R =[-14.935937196720515 |
---|
8 | -14.111501970462992 |
---|
9 | -13.262218961665209 |
---|
10 | -12.384788371845742 |
---|
11 | -11.475056633480252 |
---|
12 | -10.527660396957428 |
---|
13 | -9.535449052433554 |
---|
14 | -8.488486734019695 |
---|
15 | -7.372177255047834 |
---|
16 | -6.163307355639518 |
---|
17 | -4.820099211178722 |
---|
18 | -3.248197582179822 |
---|
19 | -1.018792971647486]; |
---|
20 | pass = norm(r-R,inf) < 500*chebfunpref('eps'); |
---|
Note: See
TracBrowser
for help on using the repository browser.