1function y = testfun_octave(x)
2%TESTFUN  Do something stupid that takes some time to compute.
3%   Y = TESTFUN(X) does some computations and returns Y=X.^2 as output.
4%
5%		Markus Buehren
6%		Last modified 13.11.2007
7
8for k=1:2000
9	a = cond   (rand(20)); %#ok
10%	a = condest(rand(20)); %#not available on Octave
11%	a = rcond  (rand(20)); %#not available on Octave
12	a = cond   (rand(20)); %#ok
13	a = cond   (rand(20)); %#ok
14end
15y = x.a*x.b;
16