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

[Peter Pein <petsie@XXXXXXX.de>]

Gert.Lindner@XXXXXXX.de wrote:

>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
>
>  
>
Hallo Gert,

eine Alternative zur Lösung von Jens wäre z.B.:

Wolke=Graphics3D[Table[Point[{20Random[],20Random[],30Random[]}],{666}]];

Show[Wolke,PlotRange->{{0,40},{0,40},{0,60}},AspectRatio->1];

-- 
Peter Pein
Berlin