Skip to content
Code: r(x,y):=x*y$ p(x,y):=x+y-x*y$ s(x,y):=1-r(p(x,1-y),p((1-x),y))$ u(x,y):=r(x,y)$ print("Halbaddierer")$ print(["a","b","s","u"])$ for x:1 thru 0 step -1 do for y:1 thru 0 step -1 do print([x,y,s(x,y),u(x,y)])$ wxMaxima:
Aufgabe: Man bestimme die Summe aller Zahlen in einer Matrix. Code 01: A:matrix([1,2,3],[4,11,6],[7,8,9]); a:args(A); b:flatten(a); c:sum(b[i],i,1,length(b)); wxMaxima: Sagecell 01: Code 02: A:matrix([1,2,3],[4,11,6],[7,8,9]); a:args(A); s(x):=sum(x[i],i,1,length(x)); z:map(s,a); summe:sum(z[i],i,1,length(z)); Sagecell 02:
