Erich Neuwirth… Erste Ziffer Streichen 19 Dez 202028 Jul 2021 Quelle: https://twitter.com/HansruediWidmer/status/1340178801406300160?s=20 Maxima Code zahl:84516387853;ziffern:string(zahl);liste:charlist(ziffern);m:length(liste); for i:1 thru m do begin(print(liste),n:length(liste),liste:lastn(liste,n-1))$ Man erhält lauter Primzahlen. Ablaufplan: wxMaxima: Man muss diese Ziffernlisten wieder zu Zahlen zusammensetzen. Dann sind es Primzahlen. Hinweis…
Dezimalzahlen… Zum Tag 153 2 Jun 2019 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:
benutzerdefinierte Funktion… HRW Tag 132/2018 12 Mai 201826 Apr 2019 Aufgabe: https://twitter.com/HansruediWidmer/status/995201738176122880 Code: f(x):=[10,1].x; zahlen:map(f,listify(flatten(map(permutations,(powerset({1,3,2},2)))))); summe:sum(zahlen[i],i,1,length(zahlen)); Erklärung: f(x) macht aus einem Zahlenpaar eine zweistellige Dezimalzahl (Skalarmultiplikation von Vektoren) map wendet f auf alle Listenelemente an listify macht aus einer Menge…
Algorithmen… Zahlenspielerei mit 123 3 Mai 20188 Mrz 2019 Was ich in Twitter gelesen habe: https://twitter.com/HansruediWidmer/status/991921800572436480 Aufgabe: Programm zum Testen erstellen. Gesetzmäßigkeit analysieren. Was mir dazu gleich einfällt: Code: zahl:64861287124425928 /* EINGABE */$ zahl:string(zahl)$ display(zahl)$ while zahl # "123" do…
Dezimalzahlen… Zum Tag 70 des Jahres 2018 11 Mrz 201814 Mrz 2018 Aufgabe: Da gibt es was zu kontrollieren. https://twitter.com/HansruediWidmer/status/972743266943762432 Bei der Berechnung von 2^70 und der Überprüfung auf Primzahleigenschaft bin ich auf Technologiehilfe angewiesen. Jedenfalls eine schöne Programmierübung. Code: zahl:2^70$ liste:charlist(string(zahl))$…
Folgen… Tag 105: Summen 15 Apr 201715 Apr 2017 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 */$…
Hansruedi Widmer… Eine Palindromprimzahl am Tag 21 21 Jan 201721 Jan 2017 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)) \…
Algorithmen… Zum Jahresende 30 Dez 201630 Dez 2016 Aufgabe: https://twitter.com/HansruediWidmer/status/814712639838244864 Lösung mit wxMaxima: http://maxima-online.org/?inc=r-280359775
Hansruedi Widmer… Tag 364 29 Dez 201630 Dez 2016 Aufgabe: https://twitter.com/HansruediWidmer/status/814350241994448896 Code: pz:1$ tag:364$ Liste:[]$ for i:1 while pz Liste:delete(last(Liste),Liste)$ display(Liste)$ Ziffern:charlist(string(tag))$ Ziffern:map(parse_string,Ziffern)$ is(length(Liste)=prod(Ziffern[i],i,1,length(Ziffern))); Probelauf: http://maxima-online.org/?inc=r498866649 Die komplette Lösung: http://maxima-online.org/?inc=r-527135075 Der Quellcode dazu: for x:10 thru 366 do block(…
Hansruedi Widmer… Zum Tag Nr. 358 23 Dez 201623 Dez 2016 Aufgabe: https://twitter.com/HansruediWidmer/status/812175934916685824 Code: pz:46$ Liste:[]$ Summe:0$ for i:1 thru 6 do block(pz:next_prime(pz),Liste:append(Liste,[pz]),Summe:Summe+pz)$ display(Liste,Summe)$ pz:1$ Liste:[]$ Summe:0$ for i:1 thru 358 do block(pz:next_prime(pz),Liste:append(Liste,[pz]),Summe:Summe+pz)$ display(Liste,Summe)$ Primzahl:primep(Summe); Probelauf: http://maxima-online.org/?inc=r1315652358
Grundlagen… Smith-Zahl (Tag 346) 11 Dez 201611 Dez 2016 Aufgabe: https://twitter.com/HansruediWidmer/status/807842374487412736 Lösung mit Maxima Online: http://maxima-online.org/?inc=r1692274767 ---
Folgen… simplode() am Tag 342 7 Dez 20167 Dez 2016 Aufgabe: https://twitter.com/HansruediWidmer/status/806377710079471616 Lösung mit wxMaxima: Anmerkung: simplode(Liste) fügt die Elemente einer Liste zu einem einzigen String zusammen. Code: n:342$ pz:1$ zusammen:[]$ for i:1 thru n do block(pz:next_prime(pz), zusammen:append(zusammen,[pz]))$ zusammen$ ergebnis:simplode(zusammen)$…
FUNKTIONEN… Tag 332 27 Nov 201627 Nov 2016 Leider gehen die Tage des Jahres bald zu Ende! Aufgabe: https://twitter.com/HansruediWidmer/status/802768936479490048 Code: pz:1; Liste:[]; Summe:0; for i:1 thru 332 do block(pz:next_prime(pz),Liste:append(Liste,[pz]),Summe:Summe+pz); display(Liste,Summe); Primzahl:primep(Summe); Verkürzte Lösung mit wxMaxima: Lösung mit Maxima-Online:…
Algorithmen… Der mathematische Christbaum 24 Nov 201616 Mai 2018 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…
benutzerdefinierte Funktion… Die Summe der ersten 15 Primzahlen 23 Nov 201610 Jul 2019 Aufgabe: https://twitter.com/HansruediWidmer/status/801304276060413952 Lösung: next_prime() habe ich hier zum ersten Mal verwendet. Eine alternative Lösung mit sublist():
benutzerdefinierte Funktion… Tag 325 (Lehrsatz des Pythagoras) 20 Nov 201624 Apr 2018 Aufgabe: https://twitter.com/HansruediWidmer/status/800232218597560320 Lösung: Für Maxima Online braucht es einen anderen Algorithmus: http://maxima-online.org/?inc=r776732458 Code 01: c:325; og:floor(sqrt(c^2/2)); for a:1 thru og do block( b:sqrt(c^2-a^2), if b=floor(b) then disp([a,b,c]) ); Code 02:…
BOOLESCHE ALGEBRA… Zum Tag 322 17 Nov 201627 Nov 2016 Aufgabe: https://twitter.com/HansruediWidmer/status/799129947142950913 Hinweis: Zur Lösung wird die Tatsache benützt, dass eine Menge eine Zusammenfassung von wohlunterschiedenen Objekten unserer Anschauung oder unseres Denkens zu einem Ganzen ist. Code: 1/* Die Zahlen,…
benutzerdefinierte Funktion… Hansruedi Widmer zum Tag 320 16 Nov 201616 Nov 2016 Aufgabe (der Twitterbeitrag): https://twitter.com/HansruediWidmer/status/798405183629733888 Kontroll-Programm in wxMaxima:
FUNKTIONEN… Zum Tag 311 6 Nov 20166 Nov 2016 Aufgabe: https://twitter.com/HansruediWidmer/status/795158780975558656 Kontrolle:
Hansruedi Widmer… Tag 282 (Hansruedi Widmer) 8 Okt 20166 Nov 2016 Aufgabe: https://twitter.com/HansruediWidmer/status/784626897372090368 Zum Tag 282: Die Summe der Teiler von 282 ist eine Quadratzahl. Es folgen in diesem Jahr noch 6 weitere "solche Tage". Welche? Code 01: a:282 /* EINGABE…
Du muss angemeldet sein, um einen Kommentar zu veröffentlichen.