Harmonisches Mittel mit tabellarischer Ausgabe

Programmcode:

for a:50 thru 60 do
block(
for b:50 thru 60 do
block(
c:a*b/(a+b),
if c=floor(c) then
/* printf(true,"~{~{~9,1f ~}~%~}",args(matrix([a,b,c])))*/
printf(true,"~{~{~9,1f ~}~%~}",[[a,b,c]])
)
);

Maxima Online: http://maxima-online.org/?inc=r309228864

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s