--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/main/comm/vec2mat.m	Wed Oct 10 19:54:49 2001 +0000
@@ -0,0 +1,58 @@
+## Copyright (C) 2001 Laurent Mazet
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2 of the License, or
+## (at your option) any later version.
+##
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with this program; if not, write to the Free Software
+## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+## usage: M = vec2mat (V, c [, d])
+##
+## Converts the vector V into a c column matrix with row priority
+## arrangement and with the final column padded with the value d
+## to the correct length.
+##
+## V: vector
+## c: number of colunms
+## d: value of padded elements (default 0)
+##
+## M: matrix.
+
+## 2001-02-02
+##   initial release
+
+function M = vec2mat (V, c, val)
+
+  switch (nargin)
+    case 1,
+      M = V;
+      return;
+    case 2,
+      val = 0;
+    case 3,
+      val = val;
+    otherwise
+      error ("usage: M = vec2mat (V, c [, d])");
+  endswitch
+
+  V = V.';
+  V = V(:);
+
+  r = ceil (length (V) / c);
+
+  d = r * c - length (V);
+  if (d != 0)
+    V = [ V ; val*ones(d, 1) ];
+  endif
+
+  M = reshape (V, c, r).';
+
+endfunction
\ No newline at end of file