3624.sagews

p1=plot(e^(-1/2*x)*cos(2*pi*x),(0,6),rgbcolor=(1,0,0),legend_label='e^(-1/2*x)*cos(2*pi*x)') 
p2=plot(e^(-1/2*x),(0,6),rgbcolor=(0,1,2),legend_label='e^(-1/2*x)')
p=p1+p2
p.axes_labels(['$x-Achse$', '$y-Achse$'])
p.axes_label_color((0,0,1))
p.set_legend_options(shadow=True)
p.set_legend_options(loc=(0.5,0.1))
show(p)

p = plot(-x^2+5, (-3,3))
show(p)
f = lambda x:  -x^2+5
find_maximum_on_interval(f,-3,3)

(5.0, -1.796933377057452e-08)

p = animate([circle((i,abs(-i^2+5)), 0.5, rgbcolor=(1,0,0)) for i in srange(-5,5,0.6)], xmin=-8,ymin=-5,xmax=2.5,ymax=8,axes=false)
show(p)