Ein Puzzle

Aufgabe:

In Twitter findet man häufig tolle Anregungen für Mathematikaufgaben.

Ich habe eine klassische Extremwertaufgabe daraus gemacht:

extrem-neuwirth
Sagecell

Code:

ratprint:off$
numer:true$
rd(x):=floor(x*100+0.5)/100$
AK:22-x$
GK1:18-15.12$
GK2:18-10.88$
alpha:atan(GK1/AK)$
beta:atan(GK2/AK)$
winkel:beta-alpha$
ab:diff(winkel,x)$
l:solve(ab=0,x)$
x_verschoben:rd(ev(x,l[1]))$
Winkel_maximal:rd(ev(winkel,l[1])*180/%pi)$
display(x_verschoben)$
display(Winkel_maximal)$

wxMaxima:

ap-bild.png