Zum Inhalt springen
Aufgabe: https://twitter.com/HansruediWidmer/status/1135056761340211200 Code: laenge:4$ f[0]:0$ f(n):=6*(10^n-1)/(10-1)$ g(n):=10^(n-1)$ h(n):=g(n)+f(n-1)$ summand1:makelist(h(i),i,1,laenge)$ f(n):=5*10^(n-1)$ summand2:makelist(f(i),i,1,laenge)$ f(n):=3*(10^n-1)/(10-1)$ summand3:makelist(f(i),i,1,laenge)$ ergebnis:makelist(summand1[i]^3+summand2[i]^3+summand3[i]^3,i,1,laenge)$ wxMaxima:
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/HansruediWidmer/status/822686909558362112 Code: 1/* Eine 1, gefolgt von 21 Mal 21, ergibt eine "sanft wellenförmige" Palindromprimzahl. */; z:10^42+sum(21*10^(2*i-2),i,1,21); primep(z); 2/* Palindromprüfung */; z:charlist(string(z)); n:length(z); if mod(n,2)=0 then block(l1:makelist(z[i],i,1,n/2), l2:makelist(z[i],i,n/2+1,n)) \…
Aufgabe (es soll mindestens 2 Lösungen geben, es werden wohl viele sein): https://twitter.com/pickover/status/801597352184201216 Lösung: Code: Ziffern:makelist(z,z,1,9); P:listify(permutations(setify(Ziffern)))$ n:3;i:0; while n>1 do block( ev(i:i+1),Folge:P[i],S1:sum(Folge[j],j,1,4), S2:sum(Folge[j],j,4,7), S3:sum(Folge[j],j,7,9)+Folge[1], Seitensummen:[S1,S2,S3], n:cardinality(setify(Seitensummen)) ); display(Folge,Seitensummen); Erklärung…