diff options
Diffstat (limited to 'examples/experiments/speed.m')
-rw-r--r-- | examples/experiments/speed.m | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/examples/experiments/speed.m b/examples/experiments/speed.m deleted file mode 100644 index 2f41665..0000000 --- a/examples/experiments/speed.m +++ /dev/null | |||
@@ -1,21 +0,0 @@ | |||
1 | #! /usr/bin/octave -qf | ||
2 | 1; % measuring Octave computing times | ||
3 | |||
4 | function r = rot(a) | ||
5 | c = cos(a); | ||
6 | s = sin(a); | ||
7 | r = [ c , 0, s; | ||
8 | 0, 1, 0; | ||
9 | -s, 0, c]; | ||
10 | end | ||
11 | |||
12 | t0=time(); | ||
13 | x = linspace(0,1,1E5); | ||
14 | ac = eye(3); | ||
15 | for a = x | ||
16 | ac = ac*rot(a); | ||
17 | end | ||
18 | |||
19 | format long | ||
20 | disp(ac); | ||
21 | printf("%.2f seconds\n",time()-t0) | ||