Hieronder kan je mijn code bekijken die ik momenteel al heb:
Code: Selecteer alles
f:=x->x^2+1:
plot(f(x),x=-2..2,thickness=3);
afgeleide1:=diff(f(x),x):
rico:=subs(x=1,diff(f(x),x));
raaklijn:=y-2=rico*(x-1);
raaklijn1:=isolate(raaklijn,y);
plot1:=plot(f(x),x=-2..2,color=red,thickness=3):
plot2:=plot(rhs(raaklijn1),x=0..3,color=blue,thickness=3):
with(plots):
display(plot1,plot2);