mathematica stylesheet which enables print quality math typesetting.
To install put stylesheet in FileNameJoin[{$UserBaseDirectory, "SystemFiles", "FrontEnd", "StyleSheets"}];
If directory does not exist then run:
dir = FileNameJoin[{$UserBaseDirectory, "SystemFiles", "FrontEnd", "StyleSheets"}];
If[! DirectoryQ[dir], CreateDirectory[dir]];
Then execute:
CurrentValue[$FrontEnd, DefaultStyleDefinitions] = "DefaultModified2.nb";
To copy directory path to clipboard execute:
CopyToClipboard[FileNameJoin[{$UserBaseDirectory, "SystemFiles", "FrontEnd", "StyleSheets"}]]
Preferences -> Global Font Size = 200%
Preferences > Advanced > Open Option Inspector > Cell Options > New Cell Defaults > DefaultNewInlineCellStyle > Edit and replace "{}" with "DisplayFormulaNumbered"
copy and paste current style in style sheet and then edit into this form:
Cell[StyleData["InlineCell"],
TextAlignment->Left,
LanguageCategory->"Formula",
ScriptLevel->1,
StyleMenuListing->None,
FontFamily->"Times",
FontSize->12]