1 %======================================================================

     2 %                    M K S T R U C T . M 

     3 %                    doc: Wed Apr 19 12:33:01 2006

     4 %                    dlm: Wed Apr 19 13:10:52 2006

     5 %                    (c) 2006 A.M. Thurnherr

     6 %                    uE-Info: 16 0 NIL 0 0 72 2 2 4 NIL ofnI

     7 %======================================================================

     8 %

     9 % structify workspace

    10 %

    11 

    12 varlist=who;

    13 

    14 for i=1:length(varlist)

    15 	eval(sprintf('struct.%s = %s; clear %s;',varlist{i},varlist{i},varlist{i}));

    16 end

    17 

    18 clear i;

    19 clear varlist;