> From albusmw@XXXXXXX.de Tue Jul 7 19:07 MET 1998
> From: "=?iso-8859-1?Q?Martin_Wei=DF?=" <albusmw@XXXXXXX.de>
> To: "Dr. H.-J. Spitzer" <h0052aau@XXXXXXX.de>,
> "DMUG" <dmug@XXXXXXX.ch>
> Subject: Re: Mesh
> Date: Tue, 7 Jul 1998 19:03:47 +0200
> MIME-Version: 1.0
> X-Priority: 3
> X-MSMail-Priority: Normal
> X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4
>
> >Hallo,
> >
> >in Grafiken mit der Option Mesh->True tritt bei grossen Mengen von Daten
> immer wieder das Problem auf, dass das Gitter zu eng ausfaellt und deshalb
> Alles schoen schwarz gefaerbt wird. Kurz und knapp, mir ist es bisher nicht
> gelungen einselbst definiertes Gitter einzubringen. Man kann zwar mit
> MeshStyle die Gitterlinien anders einfaerben und auch duenner gestalten,
> aber wo ist die Schraube fuer den Abstand der Gitterlinien oder besser wie
> bei den Ticks, wo kann man die Folge von x- und y-Werten eingeben, an denen
> die Gitterlinien gezeichnet werden sollen.
> >
> >Mit freundlichen Gruessen
> >
> >Hans-Joachim Spitzer
> >
> >Rechenzentrum der HU
>
>
> Hallo, Herr Dr. Spitzer!
>
> Anbei eine halbherzige Lösung:
>
> Eine Grafik mit hoher Auflösung ohne Mesh, eine Grafik ohne Shading und mit
> dicken Mesh-Linien, und dann beides zusammen anzeigen.
>
> Wird aber teilweise nicht hübsch, und bei "unfreundlichen" Funktionen
> vielleicht auch deutlich sichtbar.
>
> Auch das sehr schöne Buch (Grafik mit Mathematica" von Ralf Schaper und der
> Mathematica-Buch von Wolfram
> geben zu diesem Punkt keine erschöpfende Antwort.
> Aber ja vielleicht in Version 3.2 oder 4.0!
>
> mfg,
>
> Martin Weiß
> Student der Elektro- und Informationstechnik, 6. Semester,
> TU München
>
>
>
Herzlichen Dank fuer diese Idee und den Hinweis nicht zuviel zu Fragen, sondern immer daran Denken, dass man mit
Mathematica fast alles programmieren kann(nicht zum Beispiel die eigene Frau). Hier ein eigener Vorschlag in der Eile
nicht ganz abgerundet :listPlot3DMesh[daten_List,xGitter_List,yGitter_List,options___]:=
Module[{m,n,xLinien,yLinien},
{m,n}=Dimensions[daten];
xLinien=Table[{#,j,daten[[#,j]]},{j,n}]&/@xGitter;
yLinien=Table[{i,#,daten[[i,#]]},{i,m}]&/@yGitter;
Show[Graphics3D[{Line/@xLinien,Line/@yLinien}],options];
Show[Graphics3D[{Line/@xLinien,Line/@yLinien}],
ListPlot3D[daten,Mesh->False,DisplayFunction->Identity],
DisplayFunction->$DisplayFunction,options]]
Dies zeigt WireFrame und 3D-Flaeche mit dem selbst definierten Gitter einer ueber einem rechteckigen Gitter definierten
Datenmenge von z-Werten.
Mit freundlichen Gruessen
Hans-Joachim Spitzer
|