Code: Select all
\psset{unit=.5in}
\begin{pspicture}(-3.5,-2)(6,6)
\psaxes[Dy=10,Dx=1,dy=1cm]{<->}(0,0)(-2,-3)(6,4)
\psplot[plotstyle=curve,linewidth=2pt,linecolor=red,arrows=<->]{-1.5} {.5} {10 x exp}
\psplot[plotstyle=curve,linewidth=2pt,linecolor=blue,arrows=<->]{.001}{6}{x log}
\qdisk(0,1){2pt}
\qdisk(1,10){2pt}
\qdisk(10,1){2pt}
\qdisk(1,0){2pt}
\end{pspicture}
Nick