Hallo allerseits,
die ConvexHull des Pakets ComputationalGeometry gibt kollineare
Punktmengen zurück
In[1]:= Needs["ComputationalGeometry`"]
In[2]:= ConvexHull[{{}}]
Out[2]= ConvexHull[{{}}]
In[3]:= ConvexHull[Partition[Range[0, 1], 2]]
Out[3]= {1}
In[4]:= ConvexHull[Partition[Range[0, 3], 2]]
Out[4]= {1, 2}
In[5]:= ConvexHull[Partition[Range[0, 5], 2]]
Out[5]= {1, 2, 3}
In[8]:= Area[Polygon[Partition[Range[0, 5], 2]]]
Out[8]= Undefined
In[9]:= ConvexHull[Partition[Range[0, 7], 2]]
Out[9]= {1, 2, 3, 4}
In[10]:= Graphics[Line[#], Epilog -> {PointSize[0.02], Point[#]}, Frame
-> True] &[Partition[Range[0, 7], 2]]
ein sinnloser Streit ginge darum, ob in diesem Fall nur der Anfangs- und
der Endpunkt der Strecke zurückgegeben werden sollten. Der Kernel läuft
weiter.
Grüsse
Udo.
P.S.:
In[95]:= $Version
Out[95]= "12.1.1 for Microsoft Windows (64-bit) (June 9, 2020)"
Am 21.06.2020 um 10:16 schrieb Susanne & Udo Krause via demug:
Liebe Freundinnen und Freunde von umgebungsbewussten Bibliotheken,
In[7]:= TriangleConvexHull[{}]
Out[7]= TriangleConvexHull[{}]
In[8]:= TriangleConvexHull[{{0, 1}}]
Out[8]= TriangleConvexHull[{{0, 1}}]
In[9]:= TriangleConvexHull[{{0, 1}, {2, 3}}]
Out[9]= TriangleConvexHull[{{0, 1}, {2, 3}}]
In[17]:= TriangleConvexHull[{{0, 1}, {2, 3}, {4, 5}}]
Why the Beep? The kernel Local has quit (exited) during the course
of an evaluation.
<rant>Aha, der kernel hat das Notebook verlassen, weil
TriangleConvexHull auf kollinearen Daten versagt</rant>
In[16]:= Graphics[Line[{{0, 1}, {2, 3}, {4, 5}}],
Epilog -> {PointSize[0.02], Point[{{0, 1}, {2, 3}, {4, 5}}]}, Frame
-> True]
entweder tut man nichts, oder man gibt die Eingabe zurück.
Mit den besten Grüssen
Udo.
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html
DMUG-Archiv, http://www.mathematica.ch/archiv.html