blob: 2f41665e58561ba6ab37c9a1c2c4541ed1411d40 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#! /usr/bin/octave -qf
1; % measuring Octave computing times
function r = rot(a)
c = cos(a);
s = sin(a);
r = [ c , 0, s;
0, 1, 0;
-s, 0, c];
end
t0=time();
x = linspace(0,1,1E5);
ac = eye(3);
for a = x
ac = ac*rot(a);
end
format long
disp(ac);
printf("%.2f seconds\n",time()-t0)
|
