Re: diohantische Gleichung

[mathemas ordinate <info@XXXXXXX.de>]

"auch " nicht schlecht !!
Vor allem nutzt es ja eine neue (in Version 6) Funktion !



Am 25.08.09 20:47 schrieb "Udo und Susanne Krause" unter
<su.krause@XXXXXXX.ch>:

> Hallo zusammen
> 
>> Wie steht es mit
>> 
>> Reduce[2 x + 3 y + 4 z + 5 w == 20 && x >= 0 && y >= 0 && z >= 0 &&w  >=
>> 0, {x, y, z, w}, Integers]
> 
> mit anderen Worten
> 
> In[6]:= FrobeniusSolve[Range[2, 5], 20]
> Out[6]= {{0, 0, 0, 4}, {0, 0, 5, 0}, {0, 1, 3, 1}, {0, 2, 1, 2}, {0,
>    4, 2, 0}, {0, 5, 0, 1}, {1, 0, 2, 2}, {1, 1, 0, 3}, {1, 2, 3,
>    0}, {1, 3, 1, 1}, {1, 6, 0, 0}, {2, 0, 4, 0}, {2, 1, 2, 1}, {2, 2,
>    0, 2}, {2, 4, 1, 0}, {3, 0, 1, 2}, {3, 2, 2, 0}, {3, 3, 0, 1}, {4,
>    0, 3, 0}, {4, 1, 1, 1}, {4, 4, 0, 0}, {5, 0, 0, 2}, {5, 2, 1,
>    0}, {6, 0, 2, 0}, {6, 1, 0, 1}, {7, 2, 0, 0}, {8, 0, 1, 0}, {10, 0,
>    0, 0}}
> 
> In[14]:= FrobeniusSolve[Range[2, 5], 20] ==
>    Reduce[2 x + 3 y + 4 z + 5 w == 20 && x >= 0 && y >= 0 && z >= 0 &&
>      w >= 0, {x, y, z, w}, Integers] /. {Or -> List, And -> List,
>    Equal[__, x_Integer] -> x}
> Out[14]= True
> 
> Gruss
> Udo.
> 
> 

--  
mathemas ordinate, Dipl. Math. Carsten Herrmann, M.Sc.
GbR seit 12 Jahren !  Ums.St.ID DE135574376
__*__ Koenigsbergerstr. 97 in 24161 Altenholz
===== WWW: http://www.ordinate.de  Email info@XXXXXXX.de
|| || Tel:0431 237-4500, Berlin 030 787-06259 Mobil: 0177 312 8557
|| || Fax:0431 237-4501 oder alt. 0431 32888-12
Distribution+Training+Support: Mathematica ExtendSim MathType Kaleida...
Mathematica Tage   http://www.ordinate.de/mathematicaTag.htm
> ****************************************************************
> Die  in  dieser  E-Mail  enthaltenen  Informationen  sind  vertraulich.
> Diese  E-Mail  ist   ausschliesslich  fuer  den  Adressaten  bestimmt
> und  jeglicher  Zugriff  durch andere  Personen  ist  nicht  zulaessig.
> Falls  Sie  nicht  einer   der  genannten  Empfaenger  sind,  ist  jede
> Veroeffentlichung,  Vervielfaeltigung,  Verteilung  oder  sonstige  in
> diesem  Zusammenhang  stehende  Handlung  untersagt  und  unter
> Umstaenden  ungesetzlich.  Sollte  diese Nachricht  nicht   fuer  Sie
> bestimmt sein, so  bitten  wir  Sie,  den  Absender  unverzueglich zu
> informieren und die E-Mail zu loeschen.
> ****************************************************************
> The information in this e-mail is  confidential. It is intended  solely
> for the addressee  and  access  to  the  e-mail  by  anyone  else  is
> unauthorised.
> If you are not a named recipient, any disclosure,copying, distribution
> or any  action  taken  or omitted to  be taken  in  reliance  on  it,  is
> prohibited and  may  be unlawful.  If  the  notice is  not  intended for
> you, please  notify  the sender immediately and delete the e-mail.
> ****************************************************************