MathGroup Archive 2002

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

Search the Archive

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
> 
> 


  • Prev by Date: Creating List of Sequence Iterates
  • Next by Date: Re: UNIX version vs Mac/Win/Linux version
  • Previous by thread: Re: newbie question - printing Pi
  • Next by thread: Re: newbie question - printing Pi