# This is test comment
% this is another comment
a = 3; b = 34;

function retval = avg (v)
retval = 0;
if (isvector (v))
retval = sum (v) / length (v);
else
error ("avg: expecting vector argument");
endif
endfunction

if (rem (x, 2) == 0)
printf ("x is even\n");
else
printf ("x is odd\n");
endif

if (rem (x, 2) == 0)
printf ("x is even\n");
elseif (rem (x, 3) == 0)
printf ("x is odd and divisible by 3\n");
else
printf ("x is odd\n");
end

if (rem(x,2) == 0) x = 5; elseif (rem (x,3) == 0) x = 3; else x = 0; end

cd ..

while (i <= 10)
fib (i) = fib (i-1) + fib (i-2);
i++;
endwhile

classdef polynomial2
properties
poly = 0;
endproperties

methods
function p = polynomial2 (a)
if (nargin > 1)
print_usage ();
endif

if (nargin == 1)
if (isa (a, "polynomial2"))
p.poly = a.poly;
elseif (isreal (a) && isvector (a))
p.poly = a(:).'; # force row vector
else
error ("polynomial2: A must be a real vector");
endif
endif
endfunction

function disp (p)
a = p.poly;
first = true;
for i = 1 : length (a);
if (a(i) != 0)
if (first)
first = false;
elseif (a(i) > 0 || isnan (a(i)))
printf (" +");
endif
if (a(i) < 0)
printf (" -");
endif
if (i == 1)
printf (" %.5g", abs (a(i)));
elseif (abs (a(i)) != 1)
printf (" %.5g *", abs (a(i)));
endif
if (i > 1)
printf (" X");
endif
if (i > 2)
printf (" ^ %d", i - 1);
endif
endif
endfor

if (first)
printf (" 0");
endif
printf ("\n");
endfunction
endmethods
endclassdef