Re: Pasting tables into Excel
- To: mathgroup at smc.vnet.net
- Subject: [mg39112] Re: Pasting tables into Excel
- From: diana53 at earthlink.net (Diana)
- Date: Wed, 29 Jan 2003 03:39:18 -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>
- Sender: owner-wri-mathgroup at wolfram.com
Todd,
I have a further question on a different type of table.
I have written a program to generate a multiplication table for
Z_5[i], or the multiplication table of the additive integer group of
five letters for complex numbers.
The program is as follows:
Z5[x_,y_,z_,w_] = (x + yi)(z + wi)
Mod[Array[Z5,{5,5,5,5},{0,0,0,0}]//TableForm
(The "i" in the command above is actually the symbol for the imaginary
number i.)
When I go to try to export the file to a csv file with the following
command,
Export["C:\\Z5-i-notAField.csv",Mod[Array[Z5,{5,5,5,5},{0,0,0,0}],
I get a bunch of formating characters in the CSV file, and can't use
it.
Can you tell me how I should change the program or restate the export
command?
Thanks,
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
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > >
> > >
> > >
> > >
> >
> >
> >