|
Hallo, ich möchte einige Körper darstellen, die aus einem Würfel entstehen, z. B. indem man ihn zylindrisch durchbohrt oder auf seiner Oberseite eine Rinne von folgender Form herausnimmt: rinne = ParametricPlot3D[ {Cos[t](2.5 + 0.9 Cos[u]),Sin[t](2.5 + 0.9 Cos[u]), 0.9 Sin[u] + 5}, {t,0,Pi/2}, {u,-Pi,0}] Ich habe versucht, die Grafiken von Würfel und Rinne zu kombinieren, das bringt nichts, man sieht dann nur den Würfel: wuerfel = Graphics3D[Cuboid[{0,0,0},{5,5,5}]] Show[wuerfel, rinne] Erst wenn der Parameter u einen größeren Bereich durchläuft und die Torus-Teilfläche über den Würfel hinausragt, kann man etwas davon sehen, z. B.: Show[Graphics3D[Cuboid[{0,0,0},{5,5,5}], DisplayFunction->Identity], ParametricPlot3D[ {Cos[t](2.5 + 0.9 Cos[u]),Sin[t](2.5 + 0.9 Cos[u]), 0.9 Sin[u] + 5}, {t,0,Pi/2}, {u,-Pi,Pi/2}, DisplayFunction->Identity], DisplayFunction-> $DisplayFunction] Wie definiert man einen solchen Körper in Mathematica und wie stellt man ihn dar? Ina Leiß |