Re: Common denominator in tables?
- To: mathgroup at smc.vnet.net
- Subject: [mg60731] Re: Common denominator in tables?
- From: Bill Rowe <readnewsciv at earthlink.net>
- Date: Mon, 26 Sep 2005 01:36:08 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
On 9/25/05 at 2:36 AM, kristophs.post at web.de (kristoph) wrote:
>Any idea how to get common denominators for tables or if possible
>for each row of the table? thanks.
First generate some data
In[1]:=
data = Table[
Random[Integer, {2, 4}]*Random[Integer, {1, 10}],
{5}, {5}]
Out[1]=
{{24, 12, 27, 36, 15},
{40, 12, 6, 32, 10},
{9, 20, 20, 16, 24},
{16, 14, 4, 12, 4},
{12, 24, 4, 12, 6}}
then find the greatest common divisor of each row
In[2]:=
GCD@@@data
Out[2]=
{3, 2, 1, 2, 2}
--
To reply via email subtract one hundred and four