Tag 325 (Lehrsatz des Pythagoras)

Aufgabe:

Lösung:

tag325
Anwendung der Listenverarbeitung (großer Rechenaufwand)

Für Maxima Online braucht es einen anderen Algorithmus:

http://maxima-online.org/?inc=r776732458

Code 01:

c:325;
og:floor(sqrt(c^2/2));
for a:1 thru og do block( b:sqrt(c^2-a^2), if b=floor(b) then disp([a,b,c]) );

Code 02:

c:325;
og:floor(sqrt(c^2/2));
for a:1 thru og do block( b:sqrt(c^2-a^2), if is(integerp(b)) then disp([a,b,c]) );