removed -O for 6.8.1

1 files changed, 21 insertions, 0 deletions

diff --git a/examples/experiments/speed.m b/examples/experiments/speed.m
new file mode 100644
index 0000000..2f41665
--- /dev/null
+++ b/examples/experiments/speed.m
@@ -0,0 +1,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)