Re: diohantische Gleichung

Obwohl nicht so ganz klar ist, wie Du die Lösungsmenge haben möchtest:
Das ist im Prinzip (Radio Eriwan) nicht schwierig, wenn man bedenkt, dass ja
alles in Mathematica ein Ausdruck ist, da kann man dann mit [[]] und
Transpose schon ³alles² herausziehen und umsortieren , z.B. Wie im
beigefügten Notebook.




Am 25.08.09 16:30 schrieb "Andreas Rychen" unter
<andreas_rychen@XXXXXXX.ch>:

> Vielen Dank, das Problem ist fast gelöst. Wie kriege ich aber die Lösungsmenge
> aus den Bedingungen?
> Siehe Beilage.
> 

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

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     25919,        764]
NotebookOptionsPosition[     24698,        718]
NotebookOutlinePosition[     25067,        734]
CellTagsIndexPosition[     25024,        731]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"re", "=", 
   RowBox[{"Reduce", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"2", " ", "x"}], "+", 
        RowBox[{"3", " ", "y"}], "+", 
        RowBox[{"4", " ", "z"}], "+", 
        RowBox[{"5", " ", "w"}]}], "\[Equal]", "20"}], "&&", 
      RowBox[{"x", "\[GreaterEqual]", "0"}], "&&", 
      RowBox[{"y", "\[GreaterEqual]", "0"}], "&&", 
      RowBox[{"z", "\[GreaterEqual]", "0"}], "&&", 
      RowBox[{"w", "\[GreaterEqual]", "0"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z", ",", "w"}], "}"}], ",", "Integers"}], 
    "]"}]}], "\n"}]], "Input",
 CellChangeTimes->{{3.460197041578125*^9, 3.460197042546875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "0"}], "&&", 
    RowBox[{"y", "\[Equal]", "0"}], "&&", 
    RowBox[{"z", "\[Equal]", "0"}], "&&", 
    RowBox[{"w", "\[Equal]", "4"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "0"}], "&&", 
    RowBox[{"y", "\[Equal]", "0"}], "&&", 
    RowBox[{"z", "\[Equal]", "5"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "0"}], "&&", 
    RowBox[{"y", "\[Equal]", "1"}], "&&", 
    RowBox[{"z", "\[Equal]", "3"}], "&&", 
    RowBox[{"w", "\[Equal]", "1"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "0"}], "&&", 
    RowBox[{"y", "\[Equal]", "2"}], "&&", 
    RowBox[{"z", "\[Equal]", "1"}], "&&", 
    RowBox[{"w", "\[Equal]", "2"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "0"}], "&&", 
    RowBox[{"y", "\[Equal]", "4"}], "&&", 
    RowBox[{"z", "\[Equal]", "2"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "0"}], "&&", 
    RowBox[{"y", "\[Equal]", "5"}], "&&", 
    RowBox[{"z", "\[Equal]", "0"}], "&&", 
    RowBox[{"w", "\[Equal]", "1"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "1"}], "&&", 
    RowBox[{"y", "\[Equal]", "0"}], "&&", 
    RowBox[{"z", "\[Equal]", "2"}], "&&", 
    RowBox[{"w", "\[Equal]", "2"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "1"}], "&&", 
    RowBox[{"y", "\[Equal]", "1"}], "&&", 
    RowBox[{"z", "\[Equal]", "0"}], "&&", 
    RowBox[{"w", "\[Equal]", "3"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "1"}], "&&", 
    RowBox[{"y", "\[Equal]", "2"}], "&&", 
    RowBox[{"z", "\[Equal]", "3"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "1"}], "&&", 
    RowBox[{"y", "\[Equal]", "3"}], "&&", 
    RowBox[{"z", "\[Equal]", "1"}], "&&", 
    RowBox[{"w", "\[Equal]", "1"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "1"}], "&&", 
    RowBox[{"y", "\[Equal]", "6"}], "&&", 
    RowBox[{"z", "\[Equal]", "0"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "2"}], "&&", 
    RowBox[{"y", "\[Equal]", "0"}], "&&", 
    RowBox[{"z", "\[Equal]", "4"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "2"}], "&&", 
    RowBox[{"y", "\[Equal]", "1"}], "&&", 
    RowBox[{"z", "\[Equal]", "2"}], "&&", 
    RowBox[{"w", "\[Equal]", "1"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "2"}], "&&", 
    RowBox[{"y", "\[Equal]", "2"}], "&&", 
    RowBox[{"z", "\[Equal]", "0"}], "&&", 
    RowBox[{"w", "\[Equal]", "2"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "2"}], "&&", 
    RowBox[{"y", "\[Equal]", "4"}], "&&", 
    RowBox[{"z", "\[Equal]", "1"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "3"}], "&&", 
    RowBox[{"y", "\[Equal]", "0"}], "&&", 
    RowBox[{"z", "\[Equal]", "1"}], "&&", 
    RowBox[{"w", "\[Equal]", "2"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "3"}], "&&", 
    RowBox[{"y", "\[Equal]", "2"}], "&&", 
    RowBox[{"z", "\[Equal]", "2"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "3"}], "&&", 
    RowBox[{"y", "\[Equal]", "3"}], "&&", 
    RowBox[{"z", "\[Equal]", "0"}], "&&", 
    RowBox[{"w", "\[Equal]", "1"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "4"}], "&&", 
    RowBox[{"y", "\[Equal]", "0"}], "&&", 
    RowBox[{"z", "\[Equal]", "3"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "4"}], "&&", 
    RowBox[{"y", "\[Equal]", "1"}], "&&", 
    RowBox[{"z", "\[Equal]", "1"}], "&&", 
    RowBox[{"w", "\[Equal]", "1"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "4"}], "&&", 
    RowBox[{"y", "\[Equal]", "4"}], "&&", 
    RowBox[{"z", "\[Equal]", "0"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "5"}], "&&", 
    RowBox[{"y", "\[Equal]", "0"}], "&&", 
    RowBox[{"z", "\[Equal]", "0"}], "&&", 
    RowBox[{"w", "\[Equal]", "2"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "5"}], "&&", 
    RowBox[{"y", "\[Equal]", "2"}], "&&", 
    RowBox[{"z", "\[Equal]", "1"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "6"}], "&&", 
    RowBox[{"y", "\[Equal]", "0"}], "&&", 
    RowBox[{"z", "\[Equal]", "2"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "6"}], "&&", 
    RowBox[{"y", "\[Equal]", "1"}], "&&", 
    RowBox[{"z", "\[Equal]", "0"}], "&&", 
    RowBox[{"w", "\[Equal]", "1"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "7"}], "&&", 
    RowBox[{"y", "\[Equal]", "2"}], "&&", 
    RowBox[{"z", "\[Equal]", "0"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "8"}], "&&", 
    RowBox[{"y", "\[Equal]", "0"}], "&&", 
    RowBox[{"z", "\[Equal]", "1"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", "10"}], "&&", 
    RowBox[{"y", "\[Equal]", "0"}], "&&", 
    RowBox[{"z", "\[Equal]", "0"}], "&&", 
    RowBox[{"w", "\[Equal]", "0"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.46019701934375*^9, 3.460197043671875*^9}, 
   3.460260767330476*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullForm", "[", "re", "]"}]], "Input",
 CellChangeTimes->{{3.460260770630212*^9, 3.46026078300882*^9}, {
  3.460261002022753*^9, 3.4602610022172337`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Or", "[", 
    RowBox[{
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "4"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "5"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "3"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "1"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "2"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "4"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "5"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "1"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "2"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "3"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "3"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "3"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "1"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "6"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "4"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "1"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "2"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "4"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "3"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "2"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "3"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "3"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "3"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "1"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "4"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "3"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "4"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "1"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "4"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "4"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "5"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "2"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "5"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "6"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "6"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "1"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "7"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "2"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "8"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "1"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}], ",", 
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"Equal", "[", 
        RowBox[{"x", ",", "10"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"y", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"z", ",", "0"}], "]"}], ",", 
       RowBox[{"Equal", "[", 
        RowBox[{"w", ",", "0"}], "]"}]}], "]"}]}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.4602607840548563`*^9, 3.460261004529443*^9}]
}, Open  ]],

Cell["x - Werte :", "Text",
 CellChangeTimes->{{3.460261197598597*^9, 3.460261201661213*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xWerte", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"re", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "re", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.460261008468556*^9, 3.460261129225747*^9}, {
  3.460261243322894*^9, 3.460261252960083*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", 
   ",", "1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "2", ",", "2", ",", 
   "3", ",", "3", ",", "3", ",", "4", ",", "4", ",", "4", ",", "5", ",", "5", 
   ",", "6", ",", "6", ",", "7", ",", "8", ",", "10"}], "}"}]], "Output",
 CellChangeTimes->{{3.460261018096401*^9, 3.460261072557913*^9}, 
   3.460261131942236*^9, 3.460261300184991*^9}]
}, Open  ]],

Cell["y - Werte :", "Text",
 CellChangeTimes->{{3.460261205884819*^9, 3.460261223772272*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"yWerte", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"re", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "re", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.460261149086833*^9, {3.460261257129264*^9, 3.460261260688114*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0", ",", "1", ",", "2", ",", "4", ",", "5", ",", "0", ",", "1", 
   ",", "2", ",", "3", ",", "6", ",", "0", ",", "1", ",", "2", ",", "4", ",", 
   "0", ",", "2", ",", "3", ",", "0", ",", "1", ",", "4", ",", "0", ",", "2", 
   ",", "0", ",", "1", ",", "2", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.460261150260099*^9, 3.460261303986977*^9}]
}, Open  ]],

Cell["z - Werte :", "Text",
 CellChangeTimes->{{3.4602612104713793`*^9, 3.460261227860838*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"zWerte", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"re", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "re", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.4602611610716877`*^9, {3.460261267760049*^9, 3.460261271788978*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "5", ",", "3", ",", "1", ",", "2", ",", "0", ",", "2", ",", "0", 
   ",", "3", ",", "1", ",", "0", ",", "4", ",", "2", ",", "0", ",", "1", ",", 
   "1", ",", "2", ",", "0", ",", "3", ",", "1", ",", "0", ",", "0", ",", "1", 
   ",", "2", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.460261161951832*^9, 3.460261306792903*^9}]
}, Open  ]],

Cell["w - Werte :", "Text",
 CellChangeTimes->{{3.460261216526845*^9, 3.4602612204118443`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"wWerte", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"re", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", "4", "]"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "re", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.460261171168095*^9, {3.460261275428286*^9, 3.460261279777727*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "4", ",", "0", ",", "1", ",", "2", ",", "0", ",", "1", ",", "2", ",", "3", 
   ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "2", ",", "0", ",", 
   "2", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "2", ",", "0", 
   ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.4602611725969973`*^9, 3.460261309312738*^9}]
}, Open  ]],

Cell["L\[ODoubleDot]sungen als \"Quadrupel\"-Menge", "Text",
 CellChangeTimes->{{3.460261282732048*^9, 3.460261288142879*^9}, {
  3.460261357891868*^9, 3.460261359358824*^9}, {3.46026148109619*^9, 
  3.460261498085952*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Loesungen", "=", " ", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"xWerte", ",", "yWerte", ",", " ", "wWerte", ",", " ", "wWerte"}],
     "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.460261350526491*^9, 3.460261446151779*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "5", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.460261423320558*^9, 3.460261447596903*^9}}]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{615, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Mac OS X PowerPC (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 712, 19, 58, "Input"],
Cell[1282, 43, 5973, 171, 223, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7292, 219, 178, 3, 27, "Input"],
Cell[7473, 224, 10163, 289, 445, "Output"]
}, Open  ]],
Cell[17651, 516, 93, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[17769, 521, 504, 14, 27, "Input"],
Cell[18276, 537, 463, 8, 43, "Output"]
}, Open  ]],
Cell[18754, 548, 93, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[18872, 553, 475, 14, 27, "Input"],
Cell[19350, 569, 412, 7, 43, "Output"]
}, Open  ]],
Cell[19777, 579, 95, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[19897, 584, 477, 14, 27, "Input"],
Cell[20377, 600, 412, 7, 43, "Output"]
}, Open  ]],
Cell[20804, 610, 95, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[20924, 615, 475, 14, 27, "Input"],
Cell[21402, 631, 414, 7, 43, "Output"]
}, Open  ]],
Cell[21831, 641, 223, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[22079, 648, 268, 6, 27, "Input"],
Cell[22350, 656, 2332, 59, 103, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

Frühere		Chronologischer Index		Spätere
Vorherige		Thematischer Index		Nächste

Frühere		Chronologischer Index		Spätere
Vorherige		Thematischer Index		Nächste

DMUG-Archiv 2009

Re: diohantische Gleichung