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ß
|