Grafik Ausgabe < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 09:54 Di 04.12.2012 | | Autor: | belle |
| Aufgabe | | Vektor Grafik Datei erzeugen |
Hallo guten Tag,
Die Task:
Die Ausgabe von Plot3D als skalierbare Vektor-Grafik
Vorgabe:
Grafik-Plot-Funktionen im Mathematica Notebook
Beschränkung:
Die 3D-Eigenschaften müssen in der ausgegebenen Datei nicht erhalten bleiben
Die Mathematica-Funktionen sind:
- [mm] Plot3D[Exp[-x^2 [/mm] - [mm] y^2], [/mm] {x, -2, 2}, {y, -2, 2}, MeshStyle -> Gray,
ColorFunction -> "TemperatureMap"]
- [mm] ContourPlot3D[x^2 [/mm] + [mm] y^2 [/mm] - [mm] z^2, [/mm] {x, -2, 2}, {y, -2, 2}, {z, -2, 2},
Lighting -> {{"Directional",
RGBColor[1, .7, .1], {{5, 5, 4}, {5, 5, 0}}}}, Mesh -> None,
Boxed -> False, Axes -> False,
ContourStyle ->
Directive[FaceForm[Orange, Red], Opacity[0.7], Contours -> 5,
Specularity[White, 30]]]
- ContourPlot3D[
Cos[x] Sin[y] + Cos[y] Sin[z] + Cos[z] Sin[x] == 0, {x, -2 [mm] \[Pi], [/mm]
2 [mm] \[Pi]}, [/mm] {y, -2 [mm] \[Pi], [/mm] 2 [mm] \[Pi]}, [/mm] {z, -2 [mm] \[Pi], [/mm] 2 [mm] \[Pi]}, [/mm]
ContourStyle ->
Directive[FaceForm[Orange, Red], Specularity[White, 30]],
Mesh -> None]
Die erste Funktion, Plot3D, habe ich so behandelt: Save Selection As... oder auch: Save Graphic As... als Dateityp .PDF oder Dateityp .EPS. Danach öffnen in z.B. Illustrator. Es sind hier jetzt Vektorbilder. Hier dann verlustfrei skalieren und weiter bearbeiten. So kann die Grafik dann als großes Bild, 200 x 200 cm, ausgebracht werden.
Die beiden anderen Funktionen, ConturPlot3D, gelingen mir nicht.
Wie erzeugt man eine große, druckbare Datei aus diesen Mathematica-Grafiken?
|
|
| |
|
Hallo belle,
angenommen, du hast den plot in einer Variablen gespeichert (also z.B.: cpl = Contourplot[ ... ]), dann ergibt für dein letztes Beispiel der Export als eps-Datei mittels beispielsweise
| 1: | Export[ToFileName[{$HomeDirectory, "Desktop"},
| | 2: | "test.eps"], cpl, "EPS", "AllowRasterization" -> False] |
eine etwas mehr als 160 MB große Datei, deren Weiterverarbeitung meine Geduld zu sehr strapazierte, um hier sagen zu können, ob das sinnvoll ist. 12 GB RAM scheinen nicht zu reichen, um diese Grafik mit mittlerer Präzision in Inkskape zu laden :(
Viel Erfolg,
Peter
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 11:20 Fr 07.12.2012 | | Autor: | belle |
Denen, die sich Gedanken gemacht haben:
Ihnen sei Ehre.
Die Aufgabe ist inzwischen gelöst.
Die Function ist:
cp1 = [mm] Plot3D[Exp[-x^2 [/mm] - [mm] y^2], [/mm] {x, -2, 2}, {y, -2, 2},
MeshStyle -> Gray, ColorFunction -> "TemperatureMap",
ViewPoint -> {4, 1, -7}]
Hier wird mit ViewPoint die Grafik 3D gedreht.
Die Ausgabefunktion ist:
Export[ToFileName[{$HomeDirectory, "Desktop"}, "test1.eps"], cp1,
"EPS", "AllowRasterization" -> True, ImageSize -> 1800];
Hier das entscheidende. "AllowRasterization" -> True und
ImageSize -> 1800. Wobei die Zahl die Pixelzahl angibt.
Augegeben wird eine beliebig große EPS-Format Grafik-Datei.
Sie kann z.B. in Illustrator geöffnet werden.
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig | | Datum: | 09:49 Sa 08.12.2012 | | Autor: | Peter_Pein |
Ach so, ich dachte, es ginge darum, eine Vektorgrafik zu erzeugen, die dann mit anderen Programmen weiter vergrößert werden kann, statt sich beim Export auf bspw. 1800 Pixel Kantenlänge festzulegen (reicht das denn für die geplanten [mm]4 m^2[/mm] Poster?).
Noch ein Tipp, damit diese Mitteilung nicht völlig sinnlos bleibt:
Beim Rastern kann es dazu kommen, dass einige der Polygone nicht korrekt dargesetellt werden. In diesem Fall hilft es meistens, im Menü/Format/Option Inspector unter GraphicsOptions->RenderingOptions->"Graphics3DRenderingEngine" "Software" bzw. "BSPTree" auszuwählen.
Gruß,
Peter
|
|
|
|
