animate([plot(sin),plot(cos)])

def tangent_line(f,a,x=x):
       f(x)=f
       b=f(a)
       df(x)=diff(f,x)
       m=df(a)
       result=b+m*(x-a)
       return result

f(x)=x^2
L(a,x)=tangent_line(f(x),a)
show(animate([plot((f(x),L(t,x)),x,-3.5,3.5,ymax=20,ymin=-20,plot_points=5) for t in sxrange(-3,3,1)]))