Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

getting data written to notebook to look nice

  • To: mathgroup at smc.vnet.net
  • Subject: [mg121286] getting data written to notebook to look nice
  • From: Phil Hammond <phil at hammondo.org>
  • Date: Wed, 7 Sep 2011 05:41:08 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

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"