X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=construct.m;fp=construct.m;h=61f0caa5ad7b4de0c9824980f2839f10153c7056;hp=0000000000000000000000000000000000000000;hb=b619f0c2d08f80974d7a63b8d7fb742799949c4b;hpb=6bf809f3f4b7f59339ee2b945b8cd9f8aafb0bf9

diff --git a/construct.m b/construct.m
new file mode 100644
index 0000000..61f0caa
--- /dev/null
+++ b/construct.m
@@ -0,0 +1,20 @@
+function A = construct(m, n, f)
+  %
+  % Construct an m-by-n matrix with entries a_ij = f(i,j).
+  %
+  if ((m < 0) || (n < 0))
+    A = NA;
+    return;
+  elseif ((m == 0) || (n == 0))
+    A = NA;
+    return;
+  end
+
+  A = zeros(m,n);
+
+  for i = [ 1 : m ]
+    for j = [ 1 : n ]
+      A(i,j) = f(i,j);
+    end
+  end
+end