RE: newbie question - printing Pi
- To: mathgroup at smc.vnet.net
- Subject: [mg33376] RE: [mg33369] newbie question - printing Pi
- From: "David Park" <djmp at earthlink.net>
- Date: Mon, 18 Mar 2002 23:38:46 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Jim,
digitblk =
Partition[
StringJoin /@
Partition[Characters[StringDrop[ToString[N[Pi, 300]], 2]], 5], 4];
digitblk // TableForm
Or if you want to try something more fancy with GridBox...
Needs["Graphics`Colors`"]
StyleBox[GridBox[{
{GridBox[{{"Decimal Digits of Pi"}}]},
{StyleBox[
FrameBox[
GridBox[digitblk]],
Background -> CyanWhite,
FontFamily -> "Times"]}}],
Background -> Cornsilk,
FontSize -> 16,
FontWeight -> "Bold",
FontFamily -> "Helvetica"] // DisplayForm
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> From: Jim Grieve [mailto:jgrieve at mindspring.com]
To: mathgroup at smc.vnet.net
>
> How can I print Pi into a table (starting after the decimal point) of 4
> columns of 5 digits each - for the first say 300 digits?
>
> Jim
>
>