diff options
author | Alberto Ruiz <aruiz@um.es> | 2007-11-07 16:52:00 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2007-11-07 16:52:00 +0000 |
commit | 9e6500bf8e925b363e74e01834f81dde0810f808 (patch) | |
tree | a720c1e446944f649b2f21d619bf35b34411a072 /examples/testmnist.m | |
parent | 894344f9ef93a0ff5e2fb12f085b5c706b7aa9d9 (diff) |
removed -O for 6.8.1
Diffstat (limited to 'examples/testmnist.m')
-rw-r--r-- | examples/testmnist.m | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/examples/testmnist.m b/examples/testmnist.m deleted file mode 100644 index 38625a7..0000000 --- a/examples/testmnist.m +++ /dev/null | |||
@@ -1,29 +0,0 @@ | |||
1 | #! /usr/bin/octave -qf | ||
2 | % measuring Octave computing times | ||
3 | |||
4 | t0=time(); | ||
5 | load mnist.txt | ||
6 | disp("load"); | ||
7 | disp(time()-t0) | ||
8 | |||
9 | |||
10 | x = mnist(:,1:784); | ||
11 | d = mnist(:,785); | ||
12 | |||
13 | |||
14 | t0=time(); | ||
15 | xc = x - repmat(mean(x),rows(x),1); | ||
16 | disp("x - repmat(mean(x),rows(x),1)"); | ||
17 | disp(time()-t0) | ||
18 | |||
19 | t0=time(); | ||
20 | mc = (xc'*xc)/rows(x); | ||
21 | disp("(xc'*xc)/rows(x)"); | ||
22 | disp(time()-t0) | ||
23 | |||
24 | t0=time(); | ||
25 | [v,l]=eig(mc); | ||
26 | disp("eig"); | ||
27 | disp(time()-t0) | ||
28 | |||
29 | disp(flipud(diag(l))(1:10)); \ No newline at end of file | ||