MathGroup Archive 2002

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

Search the Archive

Re: Re: Re: An interesting math problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg36349] Re: [mg36185] Re: [mg36125] Re: An interesting math problem
  • From: "Julio Vera" <jvera at adinet.com.uy>
  • Date: Mon, 2 Sep 2002 04:09:07 -0400 (EDT)
  • References: <200208260816.EAA05024@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

I liked this very much.

For n=4 there are 3^n=81 possible combinations, but only 40 positive ones -
the rest would be 0 and each of the positive ones multiplied by -1. As Bob
stated, this is obtained by:

(3^n-1)/2=40

For these 40 positive integers to match 1 to 40 correspondingly, the biggest
should be 40 (also, the smallest should be 1). So we have:

a+b+c+d=40 or 1+b+c+d=40 (we state that a<b<c<d)

This could be a particular case (for a=3 and n=4) of:

In[1]:= Sum[a^i , {i, 0, n - 1}] == (a^n-1)/(a-1)
Out[1]= True

With 5 counterweights, we would be able to determine the weight of 121
elements

In[]:= n = 5; a = 3; (a^n - 1)/(a - 1)
Out[]= 121

And the 5 counterweights would be the 5 elements of the corresponding sum.

In[]:=
Table[a^h, {h, 0, n - 1}]

Out[]=
{1, 3, 9, 27, 81}

I did not understand what Bryan said about 2,4,10,28 being a solution.

At first, I thought b could be either 2 or 3. b, the second of the 40
positive combinations, could be

b=2 or b-a=2, meaining b=3

But, if b=2, we would have 2 of the 40 positive combinations that would
equal
1:

a=1 and b-a=1

This means we would not be able to get all 40 values with the 40 positive
combinations. so b must be 3.

Maybe the same reasoning would lead to 9 and 27 being also unique.
{1,3,9,27} could be the most "efficient" solution (of a+b+c+d=40), in the
sense that it would not generate any repetition. And the most efficient
solution would be the only solution, since the repetitions are not
acceptable.

I did not understand, either, what Bob said about 34 being the largest
possible
weight.

I am very curious about these two issues (a second solution, and 34), so I
would very much appreciate if you could elaborate on them.

Thanks very much,

Julio
----- Original Message -----
From: <BobHanlon at aol.com>
To: mathgroup at smc.vnet.net
Subject: [mg36349] [mg36185] Re: [mg36125] Re: An interesting math problem


>
> In a message dated 8/22/02 6:23:12 AM, timreh719 at yahoo.com.tw writes:
>
> >I'm sorry for that my question is not clear,I have correct below.
> >
> >timreh719 at yahoo.com.tw (bryan) wrote in message
> news:<ajvp7h$ibk$1 at smc.vnet.net>...
> >> Hi All:
> >>    I have a very interesting math problem:If I have a scales,and I
> >> have 40 things that their mass range from 1~40 which each is a nature
> >> number,and now I can only make 4 counterweights to measure out each
> >> mass of those things.Question:What mass should the counterweights
> >> be???
> >> The answer is that 1,3,9,27   and I wnat to use mathematica to solve
> >> this problem.
> >>     In fact,I think that this physical problem has various
> >> answer,ex.2,4,10,28
> >> this way also work,because if I have a thing which weight 3 , and I
> >> can measure out by comparing 2<3<4 . But,If I want to solve this math
> >> problem:
> >> {x|x=k1*a+k2*b+k3*c+k4*d}={1,2,3,4,,,,,,40} where a,b,c,d is nature
> numbers.
> >> and {k1,k2,k3,k4}={1,0,-1}
> >> How to solve it ??
> >> Thank you very much in advance and hope mail to me your method and
> >> mathematica solving method.  appreciate any idea sharing
> >>                                                        sincerely
> >> bryan
> >
>
> Just use brute force.
>
> Needs["DiscreteMath`Combinatorica`"];
>
> var = {a, b, c, d}; n = Length[var];
>
> s = Outer[Times, var, {-1, 0, 1} ];
>
> f = Flatten[Outer[Plus, Sequence@@s]];
>
> Since the length of f is just 3^n then the range of numbers
> to be covered should be {-(3^n-1)/2, (3^n-1)/2}.
> Consequently, the largest of the weights can not exceed
> (3^n-1)/2 - (1+2+...+(n-1)) or
>
> ((3^n-1) - n(n-1))/2
>
> 34
>
> Thread[var->#]& /@
>
>   (First /@ Select[{var,f} /. Thread[var->#]& /@
>
>           KSubsets[Range[((3^n-1) - n(n-1))/2], n],
>
>         Sort[#[[2]]] == Range[-(3^n-1)/2,(3^n-1)/2]&])
>
> {{a -> 1, b -> 3, c -> 9, d -> 27}}
>
>
> Bob Hanlon
> Chantilly, VA  USA
>




  • Prev by Date: Program fails to run if uid=0 and shell is /bin/tcsh
  • Next by Date: 3D plot
  • Previous by thread: Program fails to run if uid=0 and shell is /bin/tcsh
  • Next by thread: RE: Re: Re: Re: An interesting math problem