Re: Pasting tables into Excel
- To: mathgroup at smc.vnet.net
- Subject: [mg38647] Re: Pasting tables into Excel
- From: "Todd Rose" <todd.rose at comcast.net>
- Date: Fri, 3 Jan 2003 00:15:10 -0500 (EST)
- References: <at9cmq$q22$1@smc.vnet.net> <atcaaf$3ko$1@smc.vnet.net> <auqnn9$6tj$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
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 > > > > > > > > > > > > > > > > > > > > > > > > > > > > >