MathGroup Archive 2008

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

Search the Archive

Debracketing array symbols

  • To: mathgroup at
  • Subject: [mg92079] Debracketing array symbols
  • From: carlos at Colorado.EDU
  • Date: Fri, 19 Sep 2008 05:17:39 -0400 (EDT)


For a class project I generate 1D and 2D arrays of arbitrary size with
entries <letters>[i] and <letters>[i,j] that I need then to convert
to <letter>i and <letter>ij for export to other languages that do not
allow brackets in symbol names. E.g.

1D:  {A[1],A[2],A[3],A[4]} -> {A1,A2,A3,A4}

2D:  {{W[1,1],W[1,2]},{W[2,1],W[2,2]}}  -> {{W11,W12},{W21,W22}}

Question: would this be the simplest way to do it?

    rep={"["->"","]"->"",","->""," "->""}; Wr=Wm;
    If [dim==1,n=Length[Wm]; Print["n=",n];
        For [i=1,i<=n,i++, s=ToString[Wm[[i]]];
             Wr=Wr/.Wm[[i]]->Symbol[StringReplace[s,rep]] ]];
    If [dim==2,{n,m}=Dimensions[Wm];
        For [i=1,i<=n,i++, For[j=1,j<=m,j++, s=ToString[Wm[[i,j]]];
             Wr=Wr/.Wm[[i,j]]->Symbol[StringReplace[s,rep]] ]]];

The procedural style is to simplify conversion to C++.

  • Prev by Date: WorldPlot and crosshatching countries
  • Next by Date: Re: Functional programming?
  • Previous by thread: Re: WorldPlot and crosshatching countries
  • Next by thread: Re: Debracketing array symbols