Mittelpunkte eines beliebigen Vierecks

Mit diesen Punkten wurde die Graphik erzeugt.

punkte = {{0.2, 0.2, 0.1}, {0.9, 0.9, 0.3}, {0.2, 0.8, 0.0}, {0.1, 
            0.9, 0.9}};

Führen Sie verschiedene Versuche mit zufällig erzeugten Punkten durch:
Erzeugung von 4 zufälligen Punkten:

punkte = Table[{Random[], Random[], Random[]}, {i, 1, 4}]

Damit unten ein geschlossener Polygonzug dargestellt werden kann, wird der erste Punkte hinten an die Liste angehangen.

punkte = 
      Append[punkte, 
        punkte[[1]]]

Bestimmung der Seitenmittelpunkte:

mittelpunkte = 
      Table[(1/2) (punkte[[i]] + 
              punkte[[i + 1]]), {i, 
          4}]

Struktur des Befehls zum Zeichnen: Show[Graphics3D[Liste von graphischen Objekten]] 
graphische Objekte sind: z.B: 
Line[ liste von Punkten ] = Polygonzug
Polygon[ liste von Punkten ] = ausgefüllter Polygonzug
Point[{x,y,z}]= Punkt

plViereck = 
        Show[Graphics3D[{{Line[punkte], {RGBColor[1, 1, 0], 
                  Polygon[mittelpunkte]}, {RGBColor[1, 0, 0], 
                  PointSize[0.02], Map[Point, punkte]}, {RGBColor[0, 0, 1], 
                  PointSize[0.02], Map[Point, mittelpunkte]}}}], 
          BoxRatios -> Automatic, Lighting -> False, 
          Boxed -> True];