John wrote:
> Mathematica 6, windows XP
>
> Style[Binomial[n, j] == (n!/(j! (n - j)!) // HoldForm),
> FontFamily -> "Tahoma", FontSize -> 24, Bold] // TraditionalForm
>
> The above typesets the combinatorial symbol perfectly. Is there a way
> to put a frame around the printed symbol? Attempts to put it in a grid
> failed.
>
> John
>
It isn't clear where you want to put the frame - maybe one of these does
what you want:
Framed[Style[Binomial[n, j] == (n!/(j! (n - j)!) // HoldForm),
FontFamily -> "Tahoma", FontSize -> 24, Bold]] // TraditionalForm
Style[Framed[Binomial[n, j]] == (n!/(j! (n - j)!) // HoldForm),
FontFamily -> "Tahoma", FontSize -> 24, Bold] // TraditionalForm
Style[Binomial[n, j] == (n!/(j! (n - j)!) // HoldForm),
FontFamily -> "Tahoma", FontSize -> 24, Bold] /.
a_ == b_ -> Grid[{{a, b}}, Frame -> All] // TraditionalForm
More generally, you will find you get far more help here if you post
some actual non-working code. Someone will almost certainly fix it for
you, and explain what you were doing wrong.
From your description, I can't even tell what items you want to put in
a grid, but obviously you can put anything you like in a grid if you use
the right syntax :) One way might be to start with a trivial grid and
then replace the items with whatever you need, extending the 2D array as
required:
Grid[{{a, b, c}, {d, e, f}}, Frame -> All]
If in doubt, the trick in Mathematica, is to start with something
trivial or supplied in the help system, and progressively modify it to
whatever you want.
David Bailey
http://www.dbaileyconsultancy.co.uk