Hallo,
ich gebe zu, das ich die Frage nicht verstehe
Aber vielleicht hilf
WireBox[{x1_, y1_, z1_}, {x2_, y2_, z2_}] :=
{Line[{{x1, y1, z1}, {x2, y1, z1}, {x2, y2, z1}, {x1, y2, z1}, {x1, y1,
z1}, {x1, y1, z2}, {x2, y1, z2}, {x2, y2, z2}, {x1, y2, z2}, {x1,
y1, z2}}], Line[{{x2, y1, z1}, {x2, y1, z2}}],
Line[{{x1, y2, z1}, {x1, y2, z2}}],
Line[{{x2, y2, z1}, {x2, y2, z2}}]
}
BoxedPoint[{x_, y_, z_},{x1_, y1_, z1_}, {x2_, y2_, z2_}] :=
{AbsolutePointSize[5],
Point[{x, y, z}], {
AbsoluteDashing[{2.5, 2.5}], GrayLeve[0.75],
Line[{{x, y, z1}, {x, y, z2}}],
Line[{{x, y1, z}, {x, y2, z}}],
Line[{{x1, y, z}, {x2, y, z}}] }
}
pnts = Table[{Random[Real, {0, 40}], Random[Real, {0, 40}],
Random[Real, {0, 60}]}, {20}];
Show[Graphics3D[
{
WireBox[{0, 0, 0}, {40, 40, 60}],
BoxedPoint[#, {0, 0, 0}, {40, 40, 60}] & /@ pnts
}, Boxed -> False
]
]
Gruß
Jens
----- Original Message -----
From: <Gert.Lindner@XXXXXXX.de>
To: <demug@XXXXXXX.ch>
Sent: Wednesday, March 02, 2005 8:09 AM
Subject: maßstabsgerechte Kombination 2er 3d-Grafikobjekte
Liebe Community,
mir gelingt es dauerhaft nicht, folgendes Problem zu loesen;
Das Ziel ist es, eine Punktwolke maßstabsgerecht in einem groesseren
Quader
(Box) mit definierten Kantenlaengen darzustellen.
Es existieren daher 2 dreidimensionale Grafikobjekte:
1. eine Liste von Punkten (Point), deren Koordinatenwerte (coords) im
Bereich 20x20x30 liegen
2. eine Liste von 3 Punkten (Point), die die umschließende Box mit der
Abmessung 40x40x60 beschreiben, oder ein 'Cuboid' zB.
'Graphics3D[Cuboid[{0,0,0},{40,40,60}]]'.
Mit diesen angegebenen Beispielwerten erwarte ich, dass sich die
Punktwolke
mit entsprechenden Innenabstand zur umschließenden Box abbildet.
Alle bisherigen Versuche wie 'Scaled', 'Boxed->False' oder 'Cuboid'
brachten nicht das gewünschte Ergebnis.
Mathematica versucht immer, eine 'bounding box' zu generieren, dh., die
Punktwolke wird buendig von der Box umschlossen. Zusaetzlich erschwert
wir
das Ganze durch das erforderliche 'Show'.
Habe ich etwas bei der Anwendung von 'Scaled' uebersehen? Das Beispiel im
Help-Browser unter 'Further Examples' bei dem Stichwort 'Scaled' hilft
hierbei nicht.
MfG
Gert Lindner
|