Muster-Erkennung

Aufgabe:

muster

Das Muster ist leicht zu erkennen. Es ist aber interessant, das Muster zu programmieren (zweidimensionale Felder).

Code:

Summanden:[[5,2],[6,3],[7,4],[8,3],[9,6],[13,6],[16,5],[17,8]]$
n:length(Summanden)$
S1:makelist(Summanden[i][1],i,1,n)$
S2:makelist(Summanden[i][2],i,1,n)$
s(x):=block(S:map(string,[x[1]-x[2],x[1]+x[2],x[1]*x[2]]),sconcat(S[1],S[2],S[3]))$
Summen:map(s,Summanden)$
disp([" x "," y ","Summe"])$
Aufgabe:[transpose(S1),transpose(S2),transpose(Summen)]$
disp(Aufgabe)$

wxMaxima:

muster.png

Vroomlab:

vl-s