Parabola Example 3

Picture Construction

>	with(plots):

Warning, the name changecoords has been redefined

>	parabola:=implicitplot((y-3)^2=-12*(x-1),x=-6..6,y=-6..12,thickness=3,labels=[x,y]):

>	directrix:=implicitplot(x=4,x=-6..6,y=-6..12,thickness=3,color=green,labels=[x,y]):

>	points:=pointplot([[1,3],[-2,3]],symbol=circle,symbolsize=16,color=blue):

>	axis:=plot([t,3,t=-2..4],color=magenta,linestyle=DOT,thickness=2):

>	display(parabola,directrix,points,axis);

>