> f:=x^2; 2 f := x > plot(f, x=-2..2); > plot({f,x},x=-2..2); > limit(f,x=4); 16 > limit(f,x=infinity); infinity > limit(f, x=-infinity); infinity > int(f, x=0..2); 8 - 3 > df:=diff(f,x); df := 2 x > x0:=1; x0 := 1 > y0:=subs(x=x0,f); y0 := 1 > df0:=subs(x=x0,df); df0 := 2 > l:=(x-x0)*df0+y0; l := 2 x - 1 > plot({f,l},x=0..2); > efaptomeni:=proc(g,a) > local l,dg,dg0,b; > dg:=diff(g,x); > dg0:=subs(x=a,dg); > b:=subs(x=a,g); > l:=(x-a)*dg0+b; > RETURN(l); > end proc: > > f:=x^3+x; 3 f := x + x > l:=efaptomeni(f,1); l := 4 x - 2 > plot({f,l},x=0..2); >