diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-05-13 09:58:48 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-05-13 09:58:48 +0000 |
commit | 37f71ca5188ba487d4e1c274873b187ddcb30576 (patch) | |
tree | c752b450f8d5829d2eacbe94222aeab358ceb255 /examples/experiments/speed.m | |
parent | 6809103cf34a9345f8cb60a0ec3a8f55dd18d5ef (diff) |
removed old examples
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) | ||