# Tag Info

2

Errors of the sort described by the OP can be reproduced by copying the lengthy block of code in the question to a notebook, prefixing TeXForm@TableForm, and executing it. (Be prepared to abort the execution.) However, the same table shown near the top of the question can be produced from TableForm@{{"", "C2ung(1)", "CM1(2)"}, {"Olivine", ...

2

Never edit the core and default stylesheets. Go to Menu > Edit Stylesheet... and make whatever modifications you desire. If you are unsure then there are many posts on here if you search. When you have modified the stylesheets install this new stylesheet. Edit this question is a duplicate of How to modify font for all text fields? How do I set the ...

4

You can do this by editing the private stylesheet (see other SE questions about this): which gives: or evaluate this, which can be inferred from other questions on this site about style sheeting: SetOptions[EvaluationNotebook[], StyleDefinitions -> Notebook[{Cell[StyleData[StyleDefinitions -> "Default.nb"]], Cell[StyleData["Notebook"], ...

0

Based on an answer to the duplicate question, the following, using $PreRead and$PrePrint, meets my needs, interpreting both x // "t" or x; "t" for annotations. annotStyle[t_] := Text@Style[Style[t, Darker@Blue, Larger], Larger] annotLine[t_, x_] := If[Characters[t][[-1]] == " ", {annotStyle[t], x}, {annotStyle[t], annotStyle[Style[": ", Bold]], x}] ...

0

Found out that "DimensionlessUnit" would help greatly, so the code is \[HBar] = hbar = (6.6260693*10^-34)/(2 \[Pi]); (* Joule*Second*) chp1[Te_] := UnitConvert[Quantity[1.3806505*10^-23 Te, "Joule"], Quantity["Electronvolts"]] chp2[Te_, ne_, M_] := chp1[Te]*Log[1 - Exp[-UnitConvert[ Quantity[(2 Pi hbar^2 ne 10^11)/ (4 M 9.1093826*(10^-31) Te ...

2

You could do this using Quantity and UnitConvert, and defining your units beforehand. kelvin = Quantity[1, "Kelvins"]; joule = Quantity[1, "Joules"]; \[HBar] = hbar = Quantity[1, "ReducedPlanckConstant"]; cm = Quantity[1, "Centimeters"]; kg = Quantity[1, "Kilograms"]; chp[Te_, ne_, M_] := (1.3806505*(joule/kelvin)*Te*kelvin* Log[1 - Exp[ ...

-2

Copy and paste this text: ☒ It's an odd font but works fine in MSWord.

10

MaTeX is a package made exactly for this purpose. It can automatically compile small LaTeX snippets and import them as Mathematica graphics. It is described in detail in this other Mathematica.SE answer. A short tutorial is available here. Finally, to show what it can do, this is an example plot made with MaTeX labels (borrowed from the tutorial above, ...

Top 50 recent answers are included