I'm getting a lot of strange errors when using PlanarGraphPlot with a simple list of 11 points
<< ComputationalGeometry`;
x = {{184978.59580704456`, 77909.66948289984`}, {184978.27815712072`,
77909.76595227784`}, {184978.27082673783`,
77909.74177736834`}, {184977.5543690799`,
77909.95958192856`}, {184977.65873976916`,
77910.2913545858`}, {184977.87393886593`,
77910.32174601014`}, {184978.3127146399`,
77911.75682671613`}, {184979.13720817852`,
77911.37094455786`}, {184979.40459261995`,
77911.34308556134`}, {184979.6157774594`,
77912.04232488069`}, {184980.40222282038`, 77911.69604330455`}};
PlanarGraphPlot[x]
Errors I get are
Mod::indet: Indeterminate expression Mod[-1,0] encountered. >>
Part::partw: Part 1 of {} does not exist. >>
Part::pspec: Part specification Indeterminate is neither a machine-sized integer nor a list of machine-sized integers. >>
Part::pspec: Part specification {{4,2},{1,4,6},{6},{7,2,1},{6,6},{2,5,6,3,5},{11,10,9,4},{},{7,10},{9,7,11},{10,7}}[[8,1]] is neither a machine-sized integer nor a list of machine-sized integers. >>
Part::pspec: Part specification {{4,2},{1,4,6},{6},{7,2,1},{6,6},{2,5,6,3,5},{11,10,9,4},{},{7,10},{9,7,11},{10,7}}[[8,1]] is neither a machine-sized integer nor a list of machine-sized integers. >>
General::stop: Further output of Part::pspec will be suppressed during this calculation. >>
Part::partw: Part 1 of {} does not exist. >>
Set::shape: Lists {ComputationalGeometry`Private`merge$30945[[ComputationalGeometry`Private`l0$30945]],ComputationalGeometry`Private`merge$30945[[ComputationalGeometry`Private`r0$30945]]} and ComputationalGeometry`Private`insert[{{4,2},{1,4,6},{6},{7,2,1},{6,6},{2,5,6,3,5},{11,10,9,4},{},{7,10},{9,7,11},{10,7}}[[{6,{{4,2},{1,4,6},{6},{7,2,1},{6,6},{2,5,6,3,5},{11,10,9,4},{},{7,10},{9,7,11},{10,7}}[[8,1]]}]],6,{{4,2},{1,4,6},{6},{7,2,1},{6,6},{2,<<3>>,5},<<1>>,{},{7,10},{9,7,11},{10,7}}[[<<1>>]],2,3] are not the same shape. >>
Mod::indet: Indeterminate expression Mod[-1,0] encountered. >>
Part::partw: Part 1 of {} does not exist. >>
General::stop: Further output of Part::partw will be suppressed during this calculation. >>
Set::shape: Lists {ComputationalGeometry`Private`merge$33935[[ComputationalGeometry`Private`l0$33935]],ComputationalGeometry`Private`merge$33935[[ComputationalGeometry`Private`r0$33935]]} and ComputationalGeometry`Private`insert[{{4,2},{1,4,6},{6},{7,2,1},{6,6},{2,5,6,3,5},{11,10,9,4},{},{7,10},{9,7,11},{10,7}}[[{6,{{4,2},{1,4,6},{6},{7,2,1},{6,6},{2,5,6,3,5},{11,10,9,4},{},{7,10},{9,7,11},{10,7}}[[8,1]]}]],6,{{4,2},{1,4,6},{6},{7,2,1},{6,6},{2,<<3>>,5},<<1>>,{},{7,10},{9,7,11},{10,7}}[[<<1>>]],2,3] are not the same shape. >>
Mod::indet: Indeterminate expression Mod[-1,0] encountered. >>
General::stop: Further output of Mod::indet will be suppressed during this calculation. >>
Set::shape: Lists {ComputationalGeometry`Private`merge$35305[[ComputationalGeometry`Private`l0$35305]],ComputationalGeometry`Private`merge$35305[[ComputationalGeometry`Private`r0$35305]]} and ComputationalGeometry`Private`insert[{{4,2},{1,4,6},{6},{7,2,1},{6,6},{2,5,6,3,5},{11,10,9,4},{},{7,10},{9,7,11},{10,7}}[[{6,{{4,2},{1,4,6},{6},{7,2,1},{6,6},{2,5,6,3,5},{11,10,9,4},{},{7,10},{9,7,11},{10,7}}[[8,1]]}]],6,{{4,2},{1,4,6},{6},{7,2,1},{6,6},{2,<<3>>,5},<<1>>,{},{7,10},{9,7,11},{10,7}}[[<<1>>]],2,3] are not the same shape. >>
General::stop: Further output of Set::shape will be suppressed during this calculation. >>
When I drop the last point I get the expected plot
PlanarGraphPlot@Drop[x, -1]
I've attached a file with the code. My Mathematica version is 9.0.1 on Mac OS X
Thanks
Attachments: