Skip to content
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:
Code: Aufgaben:[[1000,2,180],[2000,3,90],[4000,1.5,45]]; map(first,Aufgaben); map(second,Aufgaben); map(last,Aufgaben); wxMaxima:
Aufgabe: 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)]$…
Aufgabe: Code 01: adresse:"Johann Weilharter Hofrat Magister Leithen 74 5591 Ramingstein"$ adresse:split(adresse)$ vorname:adresse[1]$ zuname:adresse[2]$ berufstitel:adresse[3]$ akadgrad:adresse[4]$ ascii(13)$ zeile1:sconcat(berufstitel," ",akadgrad," ",vorname," ",zuname)$ zeile2:sconcat(adresse[5]," ",adresse[6])$ zeile3:sconcat(adresse[7]," ",adresse[8])$ disp(ascii(13),zeile1,zeile2,zeile3)$ Vroomlab 01: Code 02:
