MathGroup Archive 2002

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

Search the Archive

Re: Pasting tables into Excel

  • To: mathgroup at smc.vnet.net
  • Subject: [mg38554] Re: Pasting tables into Excel
  • From: "Diana Mecum" <diana53 at earthlink.net>
  • Date: Thu, 26 Dec 2002 04:34:41 -0500 (EST)
  • References: <ateplc$90p$1@smc.vnet.net>
  • Reply-to: "Diana Mecum" <diana53 at earthlink.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Matthias,

I am not able to reproduce your results for the table generated with the
following code:

<< DiscreteMath`Combinatorica`

A5 = AlternatingGroup[5]

mult[x_?PermutationQ, y_?PermutationQ] := Permute[x, y]

MultiplicationTable[A5, mult] // TableForm

I am wanting to get this table to print out in Excel without formatting.

Thanks,

Diana

<Matthias.Bode at oppenheim.de> wrote in message
news:ateplc$90p$1 at smc.vnet.net...
> Hello Diana,
>
> my method using WINDOWS NT 4.1; Mathematica 4.1; EXCEL 97:
>
> 1. Blacken the contents of the Mathematica cell you wish to copy.
> 2. Use right key of mouse.
> 3. Select "Copy" - not: "Copy As"!
> 4. Jump into an EXCEL cell.
> 5. Paste.
>
> On my system I get the same output as it appears in Mathematica which
shows
> my output in StandardForm. I do not get FullForm when copying.
>
> It does, however, happen from time to time that - using my standard
prcedure
> - I paste Mathematica cell contents into an e-mail where it miraculously
and
> inexplicably appears in FullForm.
>
> Good luck!
>
> Matthias Bode
> Sal. Oppenheim jr. & Cie. KGaA
> Koenigsberger Strasse 29
> D-60487 Frankfurt am Main
> GERMANY
> Tel.: +49(0)69 71 34 53 80
> Mobile: +49(0)172 6 74 95 77
> Fax: +49(0)69 71 34 95 380
> E-mail: matthias.bode at oppenheim.de
> Internet: http://www.oppenheim.de
>
>
>
>
> -----Ursprüngliche Nachricht-----
> Von: Diana [mailto:diana53xiii at earthlink.remove13.net]
> Gesendet: Donnerstag, 12. Dezember 2002 07:36
> An: mathgroup at smc.vnet.net
> Betreff:  Pasting tables into Excel
>
>
> Math friends,
>
> If I program Mathematica to calculate a Cayley Table for A_5, for example,
> and it displays on the screen in the notebook, I have not been able to
> figure out how to paste the values into Excel without all the extra
> formatting, such as quote marks. Has someone worked this out?
>
> For example, the Cayley Table for A_5 copies as follows into Excel...
>
> \!\(\*
>   TagBox[GridBox[{
>         {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12",
> "13",
>           "14", "15", "16", "17", "18", "19", "20", "21", "22", "23",
"24",
>           "25", "26", "27", "28", "29", "30", "31", "32", "33", "34",
"35",
>           "36", "37", "38", "39", "40", "41", "42", "43", "44", "45",
"46",
>           "47", "48", "49", "50", "51", "52", "53", "54", "55", "56",
"57",
>           "58", "59", "60"},
>         {"2", "3", "1", "7", "9", "8", "10", "12", "11", "4", "5", "6",
> "14",
>           "15", "13", "19", "21", "20", "22", "24", "23", "16", "17",
"18",
>           "37", "39", "38", "40", "42", "41", "46", "47", "48", "43",
"44",
>           "45", "49", "51", "50", "52", "54", "53", "58", "59", "60",
"55",
>           "56", "57", "25", "26", "27", "28", "29", "30", "31", "32",
"33",
>           "34", "35", "36"},
>         {"3", "1", "2", "10", "11", "12", "4", "6", "5", "7", "9", "8",
> "15",
>           "13", "14", "22", "23", "24", "16", "18", "17", "19", "21",
"20",
>           "49", "50", "51", "52", "53", "54", "55", "56", "57", "58",
"59",
>           "60", "25", "27", "26", "28", "30", "29", "34", "35", "36",
"31",
>           "32", "33", "37", "39", "38", "40", "42", "41", "46", "47",
"48",
>           "43", "44", "45"},
>         {"4", "6", "5", "1", "3", "2", "11", "10", "12", "8", "7", "9",
> "25",
>           "27", "26", "28", "30", "29", "34", "35", "36", "31", "32",
"33",
>           "13", "15", "14", "16", "18", "17", "22", "23", "24", "19",
"20",
>           "21", "50", "49", "51", "55", "56", "57", "52", "53", "54",
"58",
>           "60", "59", "38", "37", "39", "43", "44", "45", "40", "41",
"42",
>           "46", "48", "47"},
>         {"5", "4", "6", "8", "7", "9", "1", "2", "3", "11", "12", "10",
> "26",
>           "25", "27", "31", "32", "33", "28", "29", "30", "34", "36",
"35",
>           "38", "37", "39", "43", "44", "45", "40", "41", "42", "46",
"48",
>           "47", "13", "14", "15", "16", "17", "18", "19", "20", "21",
"22",
>           "23", "24", "50", "51", "49", "55", "57", "56", "58", "60",
"59",
>           "52", "53", "54"},
>     and so on...
>
> Thanks, Diana
>
>
>
>
>
>
>



  • Prev by Date: Re: Pasting tables into Excel
  • Next by Date: Re: Pasting tables into Excel
  • Previous by thread: Re: Pasting tables into Excel
  • Next by thread: Re: Pasting tables into Excel