Mathematicaで密度プロットをすると、
ShowLegend[
DensityPlot[Sin[x y], {x, 0, \[Pi]}, {y, 0, \[Pi]}, Mesh -> False,
PlotPoints -> 30], {ColorData["LakeColors"][1 - #1] &, 10, " 1",
"-1", LegendPosition -> {1.1, -.4}}]
対応するプロットは
このプロットを.epsとして保存し、Miktexで使用したい場合
\documentclass[a4paper,pra,preprint]{revtex4}
\usepackage{pstool}
\usepackage{mathptmx}
\usepackage{newtxmath}
\usepackage{epstopdf}
\begin{document}
{\includegraphics[width=0.45\textwidth]{ttc.eps}}
\end{document}
そして.pdfを生成すると、次のようなプロットが得られます。
図から明らかなように、凡例「1」が欠落しています。何が起こっているのか、どのように修正すればよいのか全く分かりません。
答え1
Mathematica でプロットを PDF ファイルとして保存できます。たとえば、「ttc.pdf」です。そしてそれを TEX ファイルに含めます。
\includegraphics[width=0.45\textwidth]{ttc.pdf}