From 2a3b3af4a3394e9735e0f9aed1e5bb7fa16f1ac1 Mon Sep 17 00:00:00 2001
From: Elias Pipping <elias.pipping@fu-berlin.de>
Date: Thu, 13 Oct 2011 13:46:30 +0200
Subject: [PATCH] octave: vectorise code (speed gain: 20x)
---
src/foo.m | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/src/foo.m b/src/foo.m
index c1c6e859..b7d12755 100644
--- a/src/foo.m
+++ b/src/foo.m
@@ -13,11 +13,8 @@ ylabel('y')
tic
for i=1:length(y)
- a = zeros(2,length(x));
- for j=1:length(x)
- a(:,j) = [ X(i,j); Y(i,j) ];
- end
- f(i,:) = duneevaluate(a);
+ in = [ X(i,:); Y(i,:) ];
+ f(i,:) = duneevaluate(in);
end
clear X Y;
toc
--
GitLab