Taxicab Metric

Author

Eric W. Weisstein
May 3, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/DifferentialGeometry/TaxicabMetric.nb.

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

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

Figure

<<Graphics`Colors`

Show[Graphics[{
{Red,Line[{{0,0},{1,0},{1,1},{5,1},{5,3},
{7,3},{7,5},{11,5},{11,7},{11,8},{12,8},{12,12}}/12]},
{Blue,Line[{{0,0},{1,0},{1,1}}]},
{Green,Line[{{0,0},{0,5},{5,5},{5,9},{8,9},{8,12},{12,12}}/12]},
PointSize[.03],Point/@{{0,0},{1,1}},
Text[(Subscript[P, 1])//TraditionalForm,{0,-.1}],Text[(Subscript[P, 2])//TraditionalForm,{1,1.1}]
},PlotRange->All
]]