MathGroup Archive 2005

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

Search the Archive

a bad demonstration of Mathematica's MathML capabilities

  • To: mathgroup at smc.vnet.net
  • Subject: [mg58871] a bad demonstration of Mathematica's MathML capabilities
  • From: Chris Chiasson <chris.chiasson at gmail.com>
  • Date: Thu, 21 Jul 2005 15:46:02 -0400 (EDT)
  • Reply-to: Chris Chiasson <chris.chiasson at gmail.com>
  • Sender: owner-wri-mathgroup at wolfram.com

Dear Mathgroup,

I made the following cell with a gridbox table, displayed it in
TableForm, exported and reimported in MathML format (via ExportString
and ImportString), then finally displayed the imported result with
TableForm.

How does Wolfram expect me to be able to reproduce the table outside
of Mathematica if it can't even import it's own table correctly?

Please let me know if you think I did something incorrectly...

Remember to paste after Ctrl+Shift+E...

Cell[BoxData[{
    RowBox[{
      RowBox[{"rawdata", "=", GridBox[{
            {"\[Placeholder]", "\"\<0.10\>\"", "\"\<0.10\>\"",
"\"\<0.10\>\"", "\"\<55.4\>\"", "\[Placeholder]"},
            {"\[Placeholder]", 
              RowBox[{" ", "\"\<mM\>\""}], "\"\<mM\>\"", "\"\<mM\>\"",
"\"\<M\>\"", "\[Placeholder]"},
            {"\[Placeholder]", 
              RowBox[{" ", "\"\<NaCl\>\""}], "\"\<\!\(CaCl\_2\)\>\"",
"\"\<\!\(C\_6\)\!\(H\_4\)-1,2-\!\(\((COOH)\)\_2\)\>\"",
              "\"\<\!\(H\_2\)O\>\"", "\"\<\[CapitalLambda]\>\""},
            {"\"\<Soln\>\"", "\"\<(mL)\>\"", "\"\<(mL)\>\"",
"\"\<(mL)\>\"", "\"\<(mL)\>\"", "\"\<(mS)\>\""},
            {"1", "0", "0", "25", "25", "0.16"},
            {"2", "25", "0", "25", "0", "0.20"},
            {"3", "50", "0", "25", "0", "0.20"},
            {"4", "75", "0", "25", "0", "0.18"},
            {"5", "0", "25", "25", "0", "0.21"},
            {"6", "0", "50", "25", "0", "0.24"},
            {"7", "0", "75", "25", "0", "0.24"},
            {"8", "25", "0", "50", "0", "0.23"},
            {"9", "0", "25", "50", "0", "0.26"}
            }]}], ";"}], "\[IndentingNewLine]", 
    RowBox[{"rawdata", "//", "TableForm"}], "\[IndentingNewLine]", 
    RowBox[{
      RowBox[{"ToExpression", "@", 
        RowBox[{"ImportString", "[", 
          RowBox[{
            RowBox[{"ExportString", "[", 
              RowBox[{"rawdata", ",", "\"\<MathML\>\""}], "]"}], ",",
"\"\<MathML\>\""}], "]"}]}], "//", "TableForm"}]}], "Input",
  CellLabel->"In[31]:="]

Regards,
-- 
Chris Chiasson
http://chrischiasson.com/
1 (810) 265-3161


  • Prev by Date: Return[] in pure function
  • Next by Date: Re: Mathematica 5.2: The 64-bit and multicore release
  • Previous by thread: Re: Return[] in pure function
  • Next by thread: Re: a bad demonstration of Mathematica's MathML capabilities