Skip to content
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:
Aufgabe: Man errechne die Kennzahlen Erwartungswert, Varianz und Streuung. Code: X:[0,1,2,4,5,6,9,10,11,14,15,17]$ H:[4,1,2,1,2,4,1,1,1,1,1,1]$ m:length(X)$ n:length(H)$ if m=n then "ok" else "Eingabefehler"; N:sum(H[i],i,1,n)$ P:H/N$ E:P.X$ V:P.(X-E)^2$ S:sqrt(V)$ display(E)$ display(V)$ display(S)$ wxMaxima:
