Mercurial > hg > octave-lyh
diff scripts/general/interp1.m @ 6702:b2391d403ed2
[project @ 2007-06-12 21:39:26 by dbateman]
| author | dbateman |
|---|---|
| date | Tue, 12 Jun 2007 21:39:27 +0000 |
| parents | 419017274c1e |
| children | 01036667884a |
line wrap: on
line diff
--- a/scripts/general/interp1.m +++ b/scripts/general/interp1.m @@ -70,8 +70,9 @@ ## spl=interp1(xp,yp,xf,'spline'); ## cub=interp1(xp,yp,xf,'cubic'); ## near=interp1(xp,yp,xf,'nearest'); -## plot(xf,yf,';original;',xf,lin,';linear;',xf,spl,';spline;',... -## xf,cub,';cubic;',xf,near,';nearest;',xp,yp,'*;;'); +## plot(xf,yf,"r",xf,lin,"g",xf,spl,"b", ... +## xf,cub,"c",xf,near,"m",xp,yp,"r*"); +## legend ("original","linear","spline","cubic","nearest") ## @end group ## @end example ## @@ -327,8 +328,8 @@ %! spl=interp1(xp,yp,xf,"spline"); %! cub=interp1(xp,yp,xf,"pchip"); %! near=interp1(xp,yp,xf,"nearest"); -%! plot(xf,yf,";original;",xf,near,";nearest;",xf,lin,";linear;",... -%! xf,cub,";pchip;",xf,spl,";spline;",xp,yp,"*;;"); +%! plot(xf,yf,"r",xf,near,"g",xf,lin,"b",xf,cub,"c",xf,spl,"m",xp,yp,"r*"); +%! legend ("original","nearest","linear","pchip","spline") %! %-------------------------------------------------------- %! % confirm that interpolated function matches the original @@ -339,8 +340,8 @@ %! spl=interp1(xp,yp,xf,"*spline"); %! cub=interp1(xp,yp,xf,"*cubic"); %! near=interp1(xp,yp,xf,"*nearest"); -%! plot(xf,yf,";*original;",xf,near,";*nearest;",xf,lin,";*linear;",... -%! xf,cub,";*cubic;",xf,spl,";*spline;",xp,yp,"*;;"); +%! plot(xf,yf,"r",xf,near,"g",xf,lin,"b",xf,cub,"c",xf,spl,"m",xp,yp,"r*"); +%! legend ("*original","*nearest","*linear","*cubic","*spline") %! %-------------------------------------------------------- %! % confirm that interpolated function matches the original