% hec-line.tex
%
% Hyperelliptic curve C: y^2 = x^5 - 3x^4 - 5x^3 + 15 x^2 + 4x - 12 and
% line l: y = 0.7x - 1
%
% Author: Peter Schwabe
% Public domain

\psset{xunit=1.5cm,yunit=0.8cm} 
\begin{pspicture}*(-3,-4.5)(3.5,4.5) 
\psaxes{->}(0,0)(-3,-4)(3.5,4)  
  
\psplot[plotstyle=curve]{-2}{-1}{x x mul x mul x mul x mul 3 x mul x mul x mul x mul sub 5 x mul x mul x mul sub 15 x mul x mul add 4 x mul add 12 sub sqrt neg}
\psplot[plotstyle=curve]{1}{2}{x x mul x mul x mul x mul 3 x mul x mul x mul x mul sub 5 x mul x mul x mul sub 15 x mul x mul add 4 x mul add 12 sub sqrt neg}
\psplot[plotstyle=curve]{3}{3.5}{x x mul x mul x mul x mul 3 x mul x mul x mul x mul sub 5 x mul x mul x mul sub 15 x mul x mul add 4 x mul add 12 sub sqrt neg}
\psplot[plotstyle=curve]{-2}{-1}{x x mul x mul x mul x mul 3 x mul x mul x mul x mul sub 5 x mul x mul x mul sub 15 x mul x mul add 4 x mul add 12 sub sqrt}
\psplot[plotstyle=curve]{1}{2}{x x mul x mul x mul x mul 3 x mul x mul x mul x mul sub 5 x mul x mul x mul sub 15 x mul x mul add 4 x mul add 12 sub sqrt}
\psplot[plotstyle=curve]{3}{3.5}{x x mul x mul x mul x mul 3 x mul x mul x mul x mul sub 5 x mul x mul x mul sub 15 x mul x mul add 4 x mul add 12 sub sqrt}
\psplot[plotstyle=curve]{-3}{3.5}{0.7 x mul -1 add}

\end{pspicture}

