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 */$…