MathGroup Archive 2011

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

Search the Archive

getting data written to notebook to look nice


With the command:

NotebookWrite[nbQuiz,
 ToBoxes[Row[{probNum, OutputForm[".  "],
    HoldForm @@ {expr} /. List -> Plus}]]]

I am getting the following to appear in the nbQuiz notebook:

1.  x - 5y + 5x + 2y + 6x

which is actually the text I want. What's actually there, apparently,
is:

Row[{1, OutputForm[".  "], \!\(\*
TagBox[
RowBox[{"x", "-",
RowBox[{"5", " ", "y"}], "-",
RowBox[{"5", " ", "x"}], "+",
RowBox[{"2", " ", "y"}], "+",
RowBox[{"6", " ", "x"}]}],
HoldForm]\)}]

But it looks crummy. Question: how do I make it look like math a la
TraditionalForm?

A broader question: I've been making my high school math tests &
quizzes (up through Calculus) for years using LaTeX and am trying to
convert to Mathematica where I think I can generate multiple versions
with solutions, plots, and so on. However this is going very slowly; a
few hours just to get the next tiny step. Is there a Mathematica
reference that is oriented rather specifically toward what I'm trying
to do? Any advice would be greatly appreciated.

P Hammond




  • Prev by Date: Re: CDF files now on Gyre&Gimble (math blog)
  • Next by Date: Re: Problem loading 3d models
  • Previous by thread: Re: Texture in version 8, fine, but don't export...?
  • Next by thread: NonlinearModelFit and "ANOVATable" and "ParameterConfidenceIntervalTable"