Artifact e67943378746653396c8fe9a1c3ddcb5e21cfad4a0c05ebad02ad917f665a343:

• File gino/go_list.m — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 540) [annotate] [blame] [check-ins using] [more...]
• File mttroot/gino/go_list.m — part of check-in [51b26b2720] at 2002-12-19 16:48:21 on branch origin/master — Initial files for gino - see README (user: gawthrop@users.sourceforge.net, size: 540) [annotate] [blame] [check-ins using]

function list = go_list (exp0,exp1,exp2,exp3,exp4,exp5,exp6,exp7,exp8,exp9)

  ## usage:  list = go_list
  ## (exp0[,exp1,exp2,exp3,exp4,exp5,exp6,exp7,exp8,exp9])
  ## Creates a list containing the expressions in the argument list
  ## 

  ## Copyright (C) 2002 by Peter J. Gawthrop
  if nargin>10
    error("Only 10  expressions allowed in argument list");
  endif

  N = nargin;

  list=exp0;
  for i=1:N-1
    exp = eval(sprintf("exp%i;",i));
    list=sprintf("%s, %s", list, exp);
  endfor

  list = sprintf("{%s}", list);

endfunction