Hi Werner, Thomas
kenne mich zwar mit der Makroprogrammierung nicht aus, als entschuldigt
allfällige Syntaxfehler
Werner Tietz schrieb:
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
maxbc = fix(a*a*zn^(1/2))
* for b = 1 to maxabc
for b = a*a to maxbc
maxc = fix(a*a*b*b*zn^(1/2))
* for c = 1 to maxabc
for c = a*a*b*b to maxc
if a^2 + b^2 + c^2 = zn then
msgbox a & " "& b & " " & c
end if
next c
next b
next a
End Sub
____
Grüße
wolfgang
---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org