Intercept Form

Author

Eric W. Weisstein
April 8, 2024

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PlaneGeometry/InterceptForm.nb.

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

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

Figure

With[{a=3/2,b=1},ContourPlot[(x/a)+(y/b)==1,{x,-2,2},{y,-2,2},Axes->True,Frame->None,
Epilog->{
PointSize[.03],
Red,Point[{0,b}],Style[Text[Row[{"(",0,", ",Style["b",Italic],")"}],{0,b},{-2,0}],16],
Blue,Point[{a,0}],Style[Text[Row[{"(",Style["a",Italic],", ",0,")"}],{a,0},{0,-2.5}],FontSize->16]
},
Ticks->None,
BaseStyle->Directive[Black,14,FontFamily->"Times"],LabelStyle->Directive[Black,14,FontFamily->"Times"],PlotLabel->(x/(Style["a",Italic]))+(y/(Style["b",Italic]))==1,
ImageSize->300]
]