Mercurial > forge

changeset 5638:3a6d9bf21657 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Minor demo improvements
author hauberg
date Thu, 14 May 2009 17:19:06 +0000
parents af666d48119b
children 6a17dd36096d
files main/image/inst/applylut.m main/image/inst/bestblk.m
diffstat 2 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/main/image/inst/applylut.m	Thu May 14 17:09:06 2009 +0000
+++ b/main/image/inst/applylut.m	Thu May 14 17:19:06 2009 +0000
@@ -45,10 +45,11 @@
 endfunction
 
 %!demo
-%! lut=makelut(inline('sum(x(:))>=3','x'), 3);
-%! applylut(eye(5),lut)
-%! % everything should be 0 despite a diagonal which
-%! % doesn't reach borders.
+%! lut = makelut (inline ('sum (x (:)) >= 3', 'x'), 3);
+%! S = applylut (eye (5), lut);
+%! disp (S)
+%! ## Everything should be 0 despite a diagonal which
+%! ## doesn't reach borders.
 
 
 %!assert(prod(applylut(eye(3),makelut(inline('x(1,1)==1','x'),2))==eye(3))==1); % 2-by-2 test
--- a/main/image/inst/bestblk.m	Thu May 14 17:09:06 2009 +0000
+++ b/main/image/inst/bestblk.m	Thu May 14 17:19:06 2009 +0000
@@ -95,8 +95,8 @@
 endfunction
 
 %!demo
-%! siz=bestblk([200;10],50)
-%! # Best block is [20,10]
+%! siz = bestblk ([200; 10], 50);
+%! disp (siz)
 
 %!assert(bestblk([300;100],150),[30;100]);
 %!assert(bestblk([256,128],17),[16;16]);