MathGroup Archive 2005

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

Search the Archive

Re: a bad demonstration of Mathematica's MathML capabilities

  • To: mathgroup at smc.vnet.net
  • Subject: [mg58885] Re: [mg58871] a bad demonstration of Mathematica's MathML capabilities
  • From: Chris Chiasson <chris.chiasson at gmail.com>
  • Date: Fri, 22 Jul 2005 01:58:34 -0400 (EDT)
  • References: <200507211946.PAA29466@smc.vnet.net>
  • Reply-to: Chris Chiasson <chris.chiasson at gmail.com>
  • Sender: owner-wri-mathgroup at wolfram.com

It appears Mathematica is wrapping text in <ms></ms> when it should be
wrapping them in <mtext></mtext>.

On 7/21/05, Chris Chiasson <chris.chiasson at gmail.com> wrote:
> 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
> 
> 


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


  • Prev by Date: Re: New to Mathematica- How to write functions????????
  • Next by Date: Re: New to Mathematica- How to write functions????????
  • Previous by thread: a bad demonstration of Mathematica's MathML capabilities
  • Next by thread: New to Mathematica- How to write functions????????