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))$…
benutzerdefinierte Funktion… Zahlenmuster 16 Mrz 201716 Apr 2017 Aufgabe: Ich muss wieder einmal eine Behauptung aus Twitter überprüfen und das dahinterstehende Zahlenmuster analysieren. Auch wenn es kompliziert ausschauen mag: es sind nur Mathematik-Kenntnisse erforderlich, die man in der…
Cliff Pickover… Primzahl Morgensport 3 Mrz 20177 Mrz 2017 Aufgabe: Twitter-Meldungen lesen bringt Arbeit. Behauptungen will man prüfen. Daraus wird bei mir häufig geistiger Morgensport. https://twitter.com/pickover/status/837507852684177413 Code: Zahl:[]; Gruppe:[1,6,6,6]; for i:1 thru 54 do Zahl:append(Zahl,Gruppe); Zahl:append(Zahl,[1])$ S:reverse(makelist(10^(i-1),i,1,217))$ P:Zahl.S; Primzahl:primep(P);…
ALLGEMEIN… Eine Primzahl, wo 8 dabei ist 12 Feb 2017 Aufgabe: https://twitter.com/pickover/status/830623100614168577 Überprüfung:
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)) \…
Cliff Pickover… Apokalyptisches Magisches Quadrat 1 Jan 20172 Jan 2017 Aufgabe: https://twitter.com/pickover/status/815357619800014848 Code für die Matrix: A:matrix([003,107,005,131,109,311], [007,331,193,011,083,041], [103,053,071,089,151,199], [113,061,097,197,167,031], [367,013,173,059,017,037], [073,101,127,179,139,047]); Wir prüfen zunächst die Primzahleigenschaft. http://maxima-online.org/?inc=r738379314 Zeilen- und Spaltensummen: http://maxima-online.org/?inc=r-447557447 Diagonalsummen: http://maxima-online.org/?inc=r-1978054743 Versetzte Diagonalen (erster Versuch): http://maxima-online.org/?inc=r564043180 Literaturhinweis…
Algorithmen… Liste der Primzahljahre 1 Jan 20171 Jan 2017 Aufgabe: Man erstelle eine Liste der Jahreszahlen des 20. und 21. Jahrhunderts, die Primzahlen sind. wxMaxima: Maxima Online:
Literaturhinweis… Jahreswechsel 2016/2017 31 Dez 20164 Jan 2017 Aufgabe: https://twitter.com/jamessi_/status/815068196206243840 Anmerkung: 2016 hat 36 Teiler, 32 ist falsch! Code: a:2016 /* EINGABE JAHRESZAHL */; T:[]; for i:1 thru a do if mod(a,i)=0 then T:append(T,[i]); [T,length(T)]; Lösung 2016:…
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(…
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)$…
Algorithmen… Heterogene Zahlen 20 Aug 201628 Aug 2016 Aufgabe: Nach der Eingabe von zwei natürlichen Zahlen soll CAS Maxima feststellen, ob die Zahlen homogen oder heterogen sind. Twitter ist für mich eine spannende Quelle für interessante Mathematikaufgaben und…
Creative Commons… Primzahlen zwischen 1 und 100 15 Mai 201628 Aug 2016 Aufgabe: Wie viele Primzahlen zwischen 1 und 100 gibt es und wie lauten diese? Code: prim:[]; for i:1 thru 100 do if primep(i) then prim:append(prim,[i]); anzahl:length(prim); display(prim, anzahl); Lösung mit…
BOOLESCHE ALGEBRA… Teilermengen und Primzahlen 5 Jan 20142 Jul 2019 Aufgabe: Man bestimme die Teilermenge einer natürlichen Zahl und entscheide, ob sie eine Primzahl ist. Die Vorlesung von Prof. Dr. Christian Spannagel von der PH Heidelberg auf Youtube http://www.youtube.com/watch?v=ITLjfRiAc10 hat mich zum folgenden Maxima-Programm…
Mathematik mit CAS Maxima und Geogebra 