\documentclass[12pt]{minimal} \usepackage{color} \usepackage{pgf,tikz} \usetikzlibrary{decorations.markings,decorations.pathmorphing,positioning,shapes.arrows,arrows} \definecolor{blue2}{RGB}{0,0,210} \definecolor{gray5}{RGB}{128,128,128} \definecolor{red2}{RGB}{210,0,0} % COMMENT: % The script below may take up to 10 seconds to compile primarily because of the "arrow" decoration. % For line segments instead of arrows, replace the first two lines with % \begin{tikzpicture}[>=latex,scale=1.5] % and replace \draw[arrow,gray5] with \draw[gray5] \begin{document} \begin{tikzpicture}[>=latex,scale=1.5,decoration={markings, mark=at position 1.00 with {\arrow[line width=0.3pt,scale=0.4]{>};}}, arrow/.style={postaction={decorate},shorten >= 1pt,line width=0.3pt,line cap=round}] \draw[<->] (-2.3,0) -- (2.4,0) node[below]{$x$}; \draw[<->] (0,-2.3) -- (0,2.4) node[left]{$y$}; \draw[red2,thick] plot[smooth,tension=0.55,samples at={-2,-1.99,...,-1.01,-1.001,-1.0005,-1.00015}] ({0.5*ln((\x-1)/(\x+1))-2.549},{\x-0.02}); \draw[blue2,thick] plot[smooth,tension=0.55,samples at={-0.975,-0.960,...,0.965}] ({0.5*ln((1-\x)/(\x+1))},{\x}); \foreach \x in {-2,-1,...,2} { \draw (\x,0.1) -- (\x,-0.1); } \foreach \y in {-2,-1,...,2} { \draw (0.1,\y) -- (-0.1,\y); } \foreach \x in {-2,-1.8,...,2} { \foreach \y in {-2,-1.8,...,2} { \pgfmathparse{0.18/sqrt(1+(\y*\y-1)^2)} \let\t\pgfmathresult \draw[arrow,gray5] (\x,\y) -- +({\t},{\t*(\y*\y-1)}); } } \draw (-0.1,1) node[left]{$1$}; \draw (-0.1,2) node[left]{$2$}; \draw (1,-0.1) node[below]{$1$}; \draw (2,-0.1) node[below]{$2$}; \draw[blue2,fill=blue2] (0,0) circle (1pt); \draw[red2,fill=red2] (-2,-2) circle (1pt); \draw[blue2] (0,0.2) node[right]{$(0,0)$}; \draw[red2] (-2,-2) node[right]{$(-2,-2)$}; \end{tikzpicture} \end{document}