:-)) herzlichen Dank für die freundliche Hilfe & eine sehr gute Woche
wünscht Peter
Am So., 13. Sept. 2020 um 14:56 Uhr schrieb Susanne & Udo Krause <
su.krause@XXXXXXX.ch>:
> Der grösste Nachteil von Mathematica ist, dass die Benutzer es auch nach
> über 32 Jahren nicht für möglich halten, dass an jeder Stelle programmiert
> werden kann und - jetzt kommt der Haken - auch programmiert werden muss,
> wenn man mit der Voreinstellung nicht zufrieden ist;
>
> 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 Peter
>
> Susanne & Udo Krause <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-Forum demug@mathematica.chhttp://www.mathematica.ch/mailman/listinfo/demug
>> Archiv: http://www.mathematica.ch/archiv.html
>>
>>
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html
DMUG-Archiv, http://www.mathematica.ch/archiv.html