Über Quadratzahlen

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…

TRIG Kryptogramm

Aufgabe: Was auf Überprüfung wartet. Die Rechenzeit wird wohl heftig sein, wenn man alle Lösungen will. https://twitter.com/shahlock/status/839860057256902656 Wie man die Gleichung bekommt. Code: Funktionen1:[SIN,COS,TAN,CSC,SEC,COT]$ Funktionen2:map(string,Funktionen1)$ f(x):=charlist(string(x))$ Funktionen3:map(f,Funktionen1)$ Funktionen4:makelist(map(parse_string,Funktionen3[i]),i,1,6)$ F1:[100,10,1]$ F2:[1000,100,10,1]$…

Alle Permutationen von 199 sind Primzahlen

Aufgabe: Zeige, dass alle Zahlen aus Permutationen (Anordnungen der Ziffern) der Zahl 199 Primzahlen sind. Quelle: https://twitter.com/HansruediWidmer/status/754556258946916352 Code: z:[1,9,9]; P:permutations(z); Z:listify(P); f(x):=primep(x); map(f,Z.[100,10,1]); Weiterentwickelter Code: z:199; z:charlist(string(z)); z:map(parse_string,z); P:permutations(z); Z:listify(P); f(x):=primep(x); map(f,Z.[100,10,1]); Den…

Mathematik ist schön

Mathematik ist schön, findet Susanna Jilka. Ich auch. Ihr Facebookeintrag: https://www.facebook.com/photo.php?fbid=1127133460638207&set=a.277300458954849.75232.100000246922807&type=3 hat mich zum folgenden CAS Maxima Programm motiviert: http://maxima-online.org/?inc=r-505674596 Code: s(n):=makelist(i,i,1,n); z1:makelist(s(n),n,1,9); faktor(n):=makelist(10^(i-1),i,1,n); F:makelist(faktor(i),i,1,9); Zahl:makelist(z1[i].reverse(F[i]),i,1,9); Ergebnis:Zahl*8+s(9); Programmzeile Erklärung s(n):=makelist(i,i,1,n);…

Zahlen eines Zahlensystems mit der Basis b in dekadische Zahlen verwandeln

Algorithmus: zahlen:[[[A,F,F,E],16],[[2,3,4,5],7],[[1,1,6,2],9]]; ziffern:[A=10,B=11,C=12,D=13,E=14,F=15]; f(zahl):= block( n:length(zahl[1]), f:makelist(zahl[2]^(n-i),i,1,n), dez:zahl[1].f ); dez:makelist(f(zahlen[i]),i,1,length(zahlen)); dez:dez,ziffern; Umwandlung: matrix( ["p-adisch","dekadisch"], [transpose(zahlen),transpose(dez)] ); Lösung mit Maxima-Online: http://maxima-online.org/?inc=r-1560229336 Sicherungskopie als PDF:Zahlen eines Zahlensystems mit der Basis b in Dekadisch