Hallo Thomas
Thomas Kübler schrieb:
> Hallo zusammen,
>
> in der Aufgabe des Monats sollen drei Quadratzahlen gefunden werden,
> deren Summe die Zahl 2009 ergibt.
> a² + b² + c² = 2009 mit a, b, c sind Element von N0 = {0,1,2,3,...}
>
> Beispiel: 44²+8²+3²=2009
> Jetzt habe ich mir gedacht, dass Calc das durchprobieren könnte. Ich
> habe aber keinen Ansatz gefunden, da ich die mathematischen Fachbegriffe
> nicht kenne.
> Der Solver findet keine Lösung, weil "Das Modell ist nicht linear."
>
> Wer kann mir einen Tipp geben?
Folgendes Makro gibt eine ganze Menge an Kombinationen aus, von denen
sind aber nur 1/3 "echt" d.h. keine Wiederholung in anderer Reihenfolge.
Ich hab aber grad keine Idee die Wiederholungen auszuschliessen.
___
Sub aqu_bqu_cqu
zn = 2009
maxabc = fix(zn^(1/2))
for a = 1 to maxabc
for b = 1 to maxabc
for c = 1 to maxabc
if a^2 + b^2 + c^2 = zn then
msgbox a & " "& b & " " & c
end if
next c
next b
next a
End Sub
____
Gruß Werner
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
