🚀 go-pugleaf

Michael Maurer <maurer@nova.stanford.edu> writes:
>Hoping to start a trend, here is an unsolicited matlab m-file.

Good trend.  We need a comp.sources.matlab newsgroup.

  -- moderated or not moderated ?

Also, it would be nice if it could be archived somewhere.

Brian

In article <=vl3m8d@rpi.edu>, fitzgb@mml0.meche.rpi.edu (Brian Fitzgerald) writes...
>Michael Maurer <maurer@nova.stanford.edu> writes:
>>Hoping to start a trend, here is an unsolicited matlab m-file.

>Also, it would be nice if it could be archived somewhere.

The Matlab User Group files are archived at research.att.com,
in /netlib/matlab ( I think). There are several megabytes worth of .m
files stored there, and I have found several very useful programs there.

V. Phaniraj          phaniraj@plains.nodak.edu
EE, North Dakota State University

In article <maurer.727751047@nova.Stanford.EDU>, Michael Maurer <maurer@nova.stanford.edu> writes:
>
>Hoping to start a trend, here is an unsolicited matlab m-file.
>MAT2STR is like NUM2STR, but operates on matrix input.
>Suggested improvements are welcome.

Okay, here's an improvement, at least it should be since 1) it doesn't use
for loops in matlab, and 2) has far fewer function calls.  But I didn't
benchmark it.  Whenever I see those for loops I like to find ways to get
rid of them with matrix operations.

function T=mat2str(X,nc)
%MAT2STR
%     T=mat2str(X) converts matrix X into string format T, using sprintf
%     to convert each element of X.
%     T=mat2str(X,nc) uses nc characters for each column, instead of
%     default 12.

%     originally by Michael Maurer, 10 Jan 1992
%     modified by Ed Ellert, 25 Jan, 1993

if nargin<2,
   nc=12;
end

[mx,nx]=size(X);
T = reshape([setstr(X+'0'); ' '*ones((nc-1)*mx, nx)], mx, nx*nc);

Ed Ellert
ellert@nu1.uh.cwru.edu

I wrote:
>
>In article <maurer.727751047@nova.Stanford.EDU>, Michael Maurer <maurer@nova.stanford.edu> writes:
>>
>>Hoping to start a trend, here is an unsolicited matlab m-file.
>>MAT2STR is like NUM2STR, but operates on matrix input.
>>Suggested improvements are welcome.
>
>Okay, here's an improvement, at least it should be since 1) it doesn't use
>for loops in matlab, and 2) has far fewer function calls.  But I didn't
>benchmark it.  Whenever I see those for loops I like to find ways to get
>rid of them with matrix operations.
>
>function T=mat2str(X,nc)
>%MAT2STR
>%     T=mat2str(X) converts matrix X into string format T, using sprintf
>%     to convert each element of X.
>%     T=mat2str(X,nc) uses nc characters for each column, instead of
>%     default 12.
>
>%     originally by Michael Maurer, 10 Jan 1992
>%     modified by Ed Ellert, 25 Jan, 1993
>
>if nargin<2,
>   nc=12;
>end
>
>[mx,nx]=size(X);
>T = reshape([setstr(X+'0'); ' '*ones((nc-1)*mx, nx)], mx, nx*nc);

Oops!  Walking to work this morning it occurred to me that this will only
work for single digits.  It was fun though :^)

Ed Ellert
ellert@nu1.uh.cwru.edu

Seems to be a bug here. Here's what I got out of Michael's original 
version:
>> x=rand(3,3) 
 
x =

    0.3653    0.7227    0.0727
    0.2470    0.7534    0.6316
    0.9826    0.6515    0.8847

>> mat2str(x,9)

ans =

0.3653   0.7227   0.07269  
0.247    0.7534   0.6316   
0.9826   0.6515   0.8847 

Seems fine.  Here's what Ed's one gave:
>> mat2str(x,9)

ans =
 
0        0        0        
0        0        0        
0        0        0        


A bit inaccurate?

Andrew Knight                                
Maritime Operations Division		     
Defence Science and Technology Organisation  
PO Box 1750
Salisbury, SA 5108
Australia
----------------------------------------------------------------------------
            ,-_|\                                e-mail: ajk@mod.dsto.gov.au
  DSTO     /     \                                phone:       61 8 259 5487
AUSTRALIA  \_,-*_/                                  fax:       61 8 259 5139
	        v                            
----------------------------------------------------------------------------