Wenn die Schrift irgendwo zu klein ist, dann kennt R. Eference z.B. das Kennwort Style[]
https://reference.wolfram.com/language/ref/Style.html?q=Style und das verwendet man etwa so: Plot[Sin[x], {x, 0, 10}, Frame -> True, FrameTicks -> {{{-1, Text[Style["-1", Blue, Italic, 20]]}, {0, Text[Style["0", Plain, Green, 38]]}, {1, Text[Style["1", Bold, Red, 24]]}, None}, {{0, Pi, 2 Pi, 3 Pi}, None}}] das Beweisbildchen zeigt, wie das schön das funktioniert. Grüsse Udo. Am 13.09.2020 um 14:12 schrieb Peter Klamser:
... es geht darum, dass ein Plot in eine SVG Datei exportiert werden soll, wobei die Proportion zwischen den Beschriftungen und den Grafikelementen verbessert werden soll: Die Buchstaben sollen größer werden, damit sie besser lesbar sind. Denn die hochauflösende Monitore führen zu viel zu kleinen Schriften in Ausdrucken. Deswegen schiebe ich vorher die Grafik mit der Maus zusammen, wie ich es in der Anfrage im Bildschirmfoto gezeigt hatte, bis die Proportionen mir gefallen. Das funktioniert sehr gut, denn der größte Nachteil von Mathematica ist, dass der Output kaum zu brauchen ist.Freundliche Grüße sendet PeterSusanne & Udo Krause <su.krause@XXXXXXX.ch <mailto:su.krause@XXXXXXX.ch>> schrieb am So., 13. Sept. 2020, 12:33:Hallihallo, dieser jemand heisst R. Eference und gibt gern Auskunft, wenn man ihn fragt: https://reference.wolfram.com/language/tutorial/ImportingAndExporting.html #1790 Sei das Bild pic = Plot[Sin[x] + Sin[Sqrt[2] x], {x, 0, 10}] In[11]:= Export[ FileNameJoin[{NotebookDirectory[], "test", "pic16inches.jpg"}], pic, ImageSize -> (72 16)] Out[11]= "N:\\Udo\\Abt_N\\test\\pic16inches.jpg" In[12]:= Export[ FileNameJoin[{NotebookDirectory[], "test", "pic32inches.jpg"}], pic, ImageSize -> (72 32)] Out[12]= "N:\\Udo\\Abt_N\\test\\pic32inches.jpg" dann kann man's kontrollieren In[6]:= FileNames["pic*", FileNameJoin[{NotebookDirectory[], "test"}]] Out[6]= {"N:\\Udo\\Abt_N\\test\\pic16inches.jpg", \ "N:\\Udo\\Abt_N\\test\\pic32inches.jpg"} In[7]:= FileSize /@ FileNames["pic*", FileNameJoin[{NotebookDirectory[], "test"}]] Out[7]= {Quantity[25.725, "Kilobytes"], Quantity[75.027, "Kilobytes"]} In[9]:= FileByteCount /@ FileNames["pic*", FileNameJoin[{NotebookDirectory[], "test"}]] Out[9]= {25725, 75027} und wenn man's im OS öffnet und "wirkliche Grösse anzeigen" klickt, sieht man, dass die beiden wirklich auch in der Anzeige verschieden gross sind. Grüsse UDo. Am 12.09.2020 um 23:52 schrieb Peter Klamser via demug:Hallo, mit Plot und der maus kann ich Grafiken zusammen oder aufziehen: [image: image.png] Das Ergebnis sieht man im Anhang. Nun würde ich gerne diese Skalierung mit dem Export Befehl steuern (z.B. , Magnify -> 0.1 oder ImageSize\[Rule]1000 was aber beides nicht hilft) und nicht mit aufziehen und dem Save Graphic as Kontextmenü. Weiß jemand wie das geht? fragt Peter & wünscht einen schönen Sonntag _______________________________________________ DMUG Deutschsprachiges Mathematica-Forumdemug@XXXXXXX.ch <mailto:demug@XXXXXXX.ch> http://www.mathematica.ch/mailman/listinfo/demug Archiv:http://www.mathematica.ch/archiv.html
klamser-export-2020-09-13-3.png
Description: PNG image
_______________________________________________ DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch http://www.mathematica.ch/mailman/listinfo/demug Archiv: http://www.mathematica.ch/archiv.html
