Re: maßstabsgerechte Kombination 2er 3d-Grafikobjekte

["Jens-Peer Kuska" <kuska@XXXXXXX.de>]

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