3640.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=(1,1,0),legend_label='e^(-1/2*x)')
p=p1+p2
p.axes_labels(['$x-Achse$','$y-Achse$'])
p.axes_label_color((1,0,1))
p.set_legend_options(shadow=True)
p.set_legend_options(loc=(4))
show(p)

k=plot((-((x+6)^2)+5),(x,-15,5), rgbcolor=(1,0,0))
show(k)
f = lambda x: -((x+6)^2)+5
find_maximum_on_interval(f,-10,0)

(5.0, -6.0)

c=animate([circle((1,(abs(-1*i))+1), 1-1/(8), rgbcolor=(1,0,1)) for i in srange(-6,6,0.5)], xmin=0,ymin=0,xmax=10,ymax=10,figsize=[4,4],axes=false)
show(c)