[pstricks] Topologists Sine Curve

[Hensh, Richard]

Other frequent contributors may have better ideas but this approach seems to work ok.

%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass[12pt,dvips]{minimal}
\usepackage{pst-func}
\usepackage{pstricks-add}
\begin{document}
\psset{plotpoints=10000}
\psset{unit=20mm,xunit=60mm}
\def\xmin{0}\def\xmax{1}
\def\ymin{-1.5}\def\ymax{1.5}
\begin{center}
\begin{pspicture}(\xmin,\ymin)(\xmax,\ymax)%
\pstVerb{%
  /rad2deg {RadToDeg} def %
  /s at x {1 exch div rad2deg sin} def %
}
  \psaxes[arrowscale=1.5,arrows=->](0,0)(\xmin,\ymin)(\xmax,\ymax)%
  \SpecialCoor%
  \psclip{\psframe[linecolor=white](\xmin,\ymin)(\xmax,\ymax)}
    \psplot[linecolor=blue,linewidth=0.75pt]{0.001}{\xmax}{x s at x}%<mailto:s at x}%>
  \endpsclip
    \uput{8pt}[180](0,\ymax){$y$}
    \uput{8pt}[-90](\xmax,0){$x$}
    \uput{6pt}[90](!0.55 dup s at x){$y=\sin<mailto:s at x){$y=\sin> 1/x$}
  \NormalCoor
\end{pspicture}
\end{center}
\end{document}
%%%%%%%%%%%%%%%%%%%%%%%%%%



regards

rick

________________________________
From: pstricks-bounces at tug.org [pstricks-bounces at tug.org] On Behalf Of Chandrasekhar S [chandru.math at hotmail.com]
Sent: Thursday, April 01, 2010 3:03 PM
To: pstricks at tug.org
Subject: [pstricks] Topologists Sine Curve



 Hi--

       Please help me with the pstricks commands of topologists sine curve.



Chandrasekhar.
♫

-----------
 "What lies behind us and what lies before us are tiny matters compared to what lies within us":- Ralph Waldo Emerson.



________________________________
The best dressed and the most admired Drag n’ drop<http://lifestyle.in.msn.com/>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20100403/671ae13e/attachment.html>