Re: Pasting tables into Excel
- To: mathgroup at smc.vnet.net
- Subject: [mg38669] Re: Pasting tables into Excel
- From: "Diana" <diana53xiii at earthlink.remove13.net>
- Date: Sat, 4 Jan 2003 07:25:57 -0500 (EST)
- References: <at9cmq$q22$1@smc.vnet.net> <atcaaf$3ko$1@smc.vnet.net> <auqnn9$6tj$1@smc.vnet.net> <av36jo$fv6$1@smc.vnet.net>
- Reply-to: "Diana" <diana53xiii at earthlink.remove13.net>
- Sender: owner-wri-mathgroup at wolfram.com
Todd, Thanks for the clarification. I didn't type the input by hand, but I copied and pasted it, which takes longer than the instruction you provided. Thanks again, Diana "Todd Rose" <todd.rose at comcast.net> wrote in message news:av36jo$fv6$1 at smc.vnet.net... > Diana, > > Did you do this? > > << DiscreteMath`Combinatorica` > A5 = AlternatingGroup[5] > mult[x_?PermutationQ, y_?PermutationQ] := Permute[x, y] > MultiplicationTable[A5, mult] // TableForm > Export["C:\\tableDELETETHISLATER.csv", MultiplicationTable[A5, mult], "CSV"] > > It works fine for me. I hope you didn't type all that other stuff with the > quotes in by hand, as it appears from your posting. > > Do you know that > > dummy = MultiplicationTable[A5, mult] // TableForm > Export["C:\\tableDELETETHISLATER.csv", dummy], "CSV"] > > won't work, but > > (dummy = MultiplicationTable[A5, mult] )// TableForm > Export["C:\\tableDELETETHISLATER.csv", dummy], "CSV"] > > will? > > Regards, > Todd Rose > > "Diana Mecum" <diana53 at earthlink.net> wrote in message > news:auqnn9$6tj$1 at smc.vnet.net... > > Steve, > > > > Well, it took me a few days to catch on to how to extrapolate list data > from > > the table output. I was finally able to take your program, and apply it to > > the Cayley Table for A_5. > > > > To keep the size to a minimum for the newsgroup post, I have pasted my > > notebook file to export the Cayley Table for A_4. > > > > The notebook command looks like: > > > > Export["C:\\cayley4table.csv", {{"1", "2", "3", "4", "5", "6", > > "7", "8", "9", "10", "11", "12"}, {"2", "3", "1", "7", "9", "8", "10", > " > > 12", "11", "4", "5", "6"}, {"3", "1", "2", "10", "11", "12 > > ", "4", "6", "5", "7", "9", "8"}, {"4", "6", "5", "1", "3", "2", "11", > > "10 > > ", "12", "8", "7", "9"}, {"5", "4", "6", "8", "7", "9", " > > 1", "2", "3", "11", "12", "10"}, {"6", "5", "4", "11", "12", "10", " > > 8", "9", "7", "1", "3", "2"}, {"7", "8", "9", "2", "1", "3", " > > 5", "4", "6", "12", "10", "11"}, {"8", "9", "7", "5", "6", "4", "12", > > "11 > > ", "10", "2", "1", "3"}, {"9", "7", "8", "12", "10", "11 > > ", "2", "3", "1", "5", "6", "4"}, {"10", "12", "11", "3", "2", "1", > "9", > > "7", "8", "6", "4", "5"}, {"11", "10", "12", "6", "4", "5 > > ", "3", "1", "2", "9", "8", "7"}, {"12", "11", "10", "9", "8", "7", " > > 6", "5", "4", "3", "2", "1"}}, "CSV"] > > > > Thanks for your help. > > > > Diana > > > > "News Admin" <news at news.demon.net> wrote in message > > news:atcaaf$3ko$1 at smc.vnet.net... > > > Here is a little example of how to export in a format that Excel can > read: > > > > > > Export["C:\\table.csv", {{1, 2}, {3, 4}}, "CSV"] > > > > > > > > > Steve Luttrell > > > > > > "Diana" <diana53xiii at earthlink.remove13.net> wrote in message > > > news:at9cmq$q22$1 at smc.vnet.net... > > > > 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 > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >