MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

Map

  • To: mathgroup at smc.vnet.net
  • Subject: [mg29684] Map
  • From: bbongiorno at attglobal.net
  • Date: Tue, 3 Jul 2001 04:40:39 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

I have not been successful in converting the following If Do routine,  
to a routine using the If Map function.

Matrix
a={{1,5,10},{25,0,2000},{55,5,2001}}

If Do Routine that works
y=0;
Do[y=y+1;x=0;
  Do[x=x+1;
   a[[x,y]]=
     If[a[[x,y]]<10,(StringJoin[ToString[0],ToString[a[[x,y]]]]),a[[x,y]]],
   {Length[a]}],
  {Length[Transpose[a]]}]

If Map Routine that does not work

If[# < 10, (StringJoin[ToString[0], ToString[#]]), # ] & /@ a

Please help.
Thanks,

Benedetto Bongiorno



  • Prev by Date: Derivative of multiargument function
  • Next by Date: Notebook formatting
  • Previous by thread: RE: Derivative of multiargument function
  • Next by thread: Re: Map