autotests/input/test.octave

0001 # This is test comment
0002 % this is another comment
0003 a = 3; b = 34;
0004
0005 function retval = avg (v)
0006   retval = 0;
0007   if (isvector (v))
0008     retval = sum (v) / length (v);
0009   else
0010     error ("avg: expecting vector argument");
0011   endif
0012 endfunction
0013
0014 if (rem (x, 2) == 0)
0015   printf ("x is even\n");
0016 else
0017   printf ("x is odd\n");
0018 endif
0019
0020 if (rem (x, 2) == 0)
0021   printf ("x is even\n");
0022 elseif (rem (x, 3) == 0)
0023   printf ("x is odd and divisible by 3\n");
0024 else
0025   printf ("x is odd\n");
0026 end
0027
0028 if (rem(x,2) == 0) x = 5; elseif (rem (x,3) == 0) x = 3; else x = 0; end
0029
0030 cd ..
0031
0032 while (i <= 10)
0033   fib (i) = fib (i-1) + fib (i-2);
0034   i++;
0035 endwhile
0036
0037 classdef polynomial2
0038   properties
0039     poly = 0;
0040   endproperties
0041
0042   methods
0043     function p = polynomial2 (a)
0044       if (nargin > 1)
0045         print_usage ();
0046       endif
0047
0048       if (nargin == 1)
0049         if (isa (a, "polynomial2"))
0050           p.poly = a.poly;
0051         elseif (isreal (a) && isvector (a))
0052           p.poly = a(:).';  # force row vector
0053         else
0054           error ("polynomial2: A must be a real vector");
0055         endif
0056       endif
0057     endfunction
0058
0059     function disp (p)
0060       a = p.poly;
0061       first = true;
0062       for i = 1 : length (a);
0063         if (a(i) != 0)
0064           if (first)
0065             first = false;
0066           elseif (a(i) > 0 || isnan (a(i)))
0067             printf (" +");
0068           endif
0069           if (a(i) < 0)
0070             printf (" -");
0071           endif
0072           if (i == 1)
0073             printf (" %.5g", abs (a(i)));
0074           elseif (abs (a(i)) != 1)
0075             printf (" %.5g *", abs (a(i)));
0076           endif
0077           if (i > 1)
0078             printf (" X");
0079           endif
0080           if (i > 2)
0081             printf (" ^ %d", i - 1);
0082           endif
0083         endif
0084       endfor
0085
0086       if (first)
0087         printf (" 0");
0088       endif
0089       printf ("\n");
0090     endfunction
0091   endmethods
0092 endclassdef