Skip to content
Aufgabe: Man programmiere die drei vorkommenden Summen in Maxima. Eine einfache Übung! https://twitter.com/HansruediWidmer/status/853128090431758337 Code: 1/* Erste Summe */$ liste:makelist(i^2*(-1)^i,i,14,1,-1); sum(liste[i],i,1,length(liste)); 2/* Zweite Summe */$ liste:makelist(i^2*(-1)^(i-1),i,15,6,-1); sum(liste[i],i,1,length(liste)); 3/* Dritte Summe */$…
Aufgabe: https://twitter.com/shahlock/status/850294052767531008 Mathematische Anmerkung: Kryptogramme mit Wurzeln sind ein "Leckerbissen", eine Delikatesse. Üblicherweise herrscht die Addition vor. Code: zahl1:[N,O,N,R,A,N,D,O,M]$ zahl2:[D,E,I,T,Y]$ f9:[10^8,10^7,10^6,10^5,10^4,10^3,10^2,10^1,10^0]$ f5:[10^4,10^3,10^2,10^1,10^0]$ gleichung:sqrt(zahl1.f9)=zahl2.f5$ ziffern:setify(makelist(i,i,0,9))$ zaehler:0$ disp(["#",zahl1,zahl2])$ for N in setdifference(ziffern,{0})…
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: Man berechne die gelbe Termfläche. Code: Zeile:[3*a-2*b,-a+4*b,2*a-b^3]$ Spalte:[a+2*b,a*b^2+b,3*a+4*b]$ Laenge:sum(Spalte[i],i,1,length(Spalte))$ Breite:sum(Zeile[i],i,1,length(Zeile))$ Flaeche:Laenge*Breite,expand; Maxima Online: Geogebra CAS: Übung: Man berechne die Termfläche der Diagonale. wxMaxima: Geogebra CAS:
Aufgabe: https://twitter.com/shahlock/status/843802091818770432 Code 01: f(x):=makelist(10^(x-i),i,1,x); zahl1:[s,p,r,i,n,g]; zahl2:zahl1; zahl3:[a,l,l,e,r,g,y]; gleichung:zahl1.f(6)+zahl2.f(6)=zahl3.f(7); buchstaben:setify(flatten([zahl1,zahl2,zahl3])); Code 02: ziffern:setify(makelist(i,i,0,9))$ disp(" {a,e,g,i,l,n,p,r,s,y}")$ for a in setdifference(ziffern,{0}) do \ for e in setdifference(ziffern,{a}) do \ for g in…
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…
Aufgabe: Man bestimme die dreistelligen Quadratzahlen mit lauter verschiedenen Ziffern. Code: qzahlen:makelist(i^2,i,ceiling(sqrt(100)),floor(sqrt(999))); zeichen:map(charlist,(map(string,qzahlen)))$ ziffern:makelist(map(parse_string,zeichen[i]),i,1,length(qzahlen))$ vziffern:sublist(ziffern,lambda([e],cardinality(setify(e))=3))$ f(x):=x.[100,10,1]$ ergebnis:map(f,vziffern); wxMaxima: Zusatzaufgabe: Wie viele vierstellige Quadratzahlen gibt es und wie viele davon haben…
