Zum Inhalt springen
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: Man bestimme eine quadratische Polynomfunktion mittels Regressionsrechnung. Code: load(lsquares)$ M:matrix([0,0],[2,6],[4,24],[6,26],[8,36])$ l:lsquares_estimates(M,[x,y],y=a*x^2+b*x+c,[a,b,c]); wxMaxima: Sagecell: Geogebra:
Aufgabe: Man bestimme mittels Regressionsrechnung eine kubische Polynomfunktion für folgende Daten: [0,0],[2,6],[4,24],[6,26],[8,36] Anmerkung: Für die Regressionsrechnung gibt es in Maxima das Unterprogramm lsquares. Code 01: load(lsquares)$ M:matrix([0,0],[2,6],[4,24],[6,26],[8,36])$ l:lsquares_estimates(M,[x,y],y=a*x^3+b*x^2+c*x+d,[a,b,c,d]); wxMaxima 01: Sagecell…
Aufgabe: https://twitter.com/shahlock/status/849988257907712002 Code: zahl1:[C,O,M,P,U,T,E,R]$ zahl2:[B,O,O,T]$ f8:[10^7,10^6,10^5,10^4,10^3,10^2,10^1,10^0]$ f4:[10^3,10^2,10^1,10^0]$ gleichung:sqrt(zahl1.f8)=zahl2.f4$ ziffern:setify(makelist(i,i,0,9))$ zaehler:0$ disp(["#",zahl1,zahl2])$ for C in setdifference(ziffern,{0}) do \ for O in setdifference(ziffern,{C}) do \ for M in setdifference(ziffern,{C,O}) do \ for…
Aufgabe: https://twitter.com/shahlock/status/843105753925914625 Informationen zu HAIKU: https://de.wikipedia.org/wiki/Haiku Code: zaehler:0$ Ziffern:{0,1,2,3,4,5,6,7,8,9}$ print("# [a, e, f, h, i, k, n, s, u, v]")$ for a in Ziffern do for e in setdifference(Ziffern,{a}) do for…
