Vertical Line Test

Author

Eric W. Weisstein
August 25, 2014

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Calculus/VerticalLineTest.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/VerticalLineTest.html.

©2014 Wolfram Research, Inc. except for portions noted otherwise

Circle

g1=Graphics[{
{Red,Thick,Circle[{0,0},5]},
{Blue,Thick,Line[{{3,-6},{3,6}}]}
},Axes->True,Ticks->None]

Function

g2=Show[
Plot[4Sin[x],{x,-5.5,5.5},Axes->False,PlotStyle->{Red,Thick}],
Graphics[
{Blue,Thick,Table[Line[{{n,-5.5},{n,5.5}}],{n,-5,5,2.75}]}
],Axes->True,Ticks->None
]

Graphic

GraphicsRow[{g1,g2}]