Hallo,
nein Computer (Programme) koennen nicht denken.
Ein Symbol in einer mathematischen Formel wird aber kursiv
gesetzt, um z. B. zwischen den a's in "a symbol $a$" auch typographisch
zu unterscheiden. Wird mehr als ein Symbol ohne trennendes Leerzeichen
verwendet
wie z. B. in sin,cos, .. interpretiert Mathematica das als einen
Operator und verwendet
keine kursiven Zeichensaetze mehr.
Was ist mit
ChemicalFormula[{sym_String, sfac_Integer}] :=
SubscriptBox[StyleBox[sym, "Text", FontSlant -> "Plain"],
ToString[sfac]]
ChemicalFormula[{sym_Symbol, sfac_Integer}] :=
ChemicalFormula[{ToString[sym], sfac}]
ChemicalFormula[{s_String}] := s
ChemicalFormula[{s_Symbol}] :=
StyleBox[ToString[s], "Text", FontSlant -> "Plain"]
ChemicalFormula[formula : {{_, ___Integer} ..}] :=
CellPrint[Cell[{RowBox[ ChemicalFormula /@ formula]}, "Text"]]
und
ChemicalFormula[{{H, 2}, {O}}]
ChemicalFormula[{{H, 2}, {S}, {O, 4}}]
??
Gruss
Jens
Martin Heimann wrote:
Liebe Kollegen,
warum erscheint bei der Ausgabe von Subscript[O,2] das O kursiv,
während bei Subscript[SF,6] die Buchstaben SF normal gesetzt werden?
Hier denkt Mathematica irgendwie zu viel.
Die Notation Subscript[Style[O,FontSlant->Plain],2] verhindert das
kursiv setzen. Aber geht dies nicht einfacher? Ich möchte in einem
längeren Text mit chemischen Formeln grundsätzlich keine Buchstaben
kursiv setzen.
Gruss,
Martin
----------------------------------------------------------------------------
Max-Planck-Institute for Biogeochemistry, PF 100164, D-07701 Jena,
Germany
Street Address: Beutenberg Campus, Hans-Knoell-Straße 10, D-07745 Jena
Office: +49-3641-57-6350/6301
=======
NEW Mobile No: +49-151-12035946
=======
Home: +49-3641-618247
Fax.: +49-3641-57-7300
Skype: mheimann
Email: martin.heimann@XXXXXXX.de
<mailto:martin.heimann@XXXXXXX.de>,
office.bgc-systems@XXXXXXX.de
<mailto:office.bgc-systems@XXXXXXX.de>
Web: http://www.bgc-jena.mpg.de/~martin.heimann
<http://www.bgc-jena.mpg.de/%7Emartin.heimann>