Re: newbie question - printing Pi
- To: mathgroup at smc.vnet.net
- Subject: [mg33445] Re: newbie question - printing Pi
- From: "Mirek Gruszkiewicz" <gruszkiewicz at ornl.gov>
- Date: Thu, 21 Mar 2002 09:27:37 -0500 (EST)
- Organization: Oak Ridge National Laboratory
- References: <a73tes$7bs$1@smc.vnet.net> <a79dnt$a4o$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Here is another one:
ndig = 300;
ngroup = 5;
ncol = 4;
sep=",";
TableForm[
Partition[
Read[
StringToStream[
StringInsert[
StringDrop[
ToString[
N[Pi, ndig + 1]
], 2], sep, Table[i, {i, ngroup + 1, ndig, ngroup}]
]
], Table[Word,
{ndig/ngroup}], WordSeparators -> {sep}], ncol
]
]
MG
"Jim Grieve" <jgrieve at mindspring.com> wrote in message
news:a79dnt$a4o$1 at smc.vnet.net...
> Thanks for all the input. I'm amazed at how many different approaches
there
> are to this problem. I especially liked David Park's solution. I've got
alot
> to study to understand each of these.
>
> Jim
>
>
>
> ==============================================================
> Posted with Hogwasher. Mac first, Mac only:
> http://www.asar.com/cgi-bin/product.pl?58/hogwasher.html
> ==============================================================
>
>