%% Created by Maple 9.50 (IBM INTEL NT)
%% Source Worksheet: lagrange.mw
%% Generated: Mon Dec 10 16:21:29 2012
\documentclass{article}
\usepackage{maple2e}
 \def\emptyline{\vspace{12pt}}
\DefineParaStyle{Maple Plot}
\DefineParaStyle{_pstyle2}
\DefineParaStyle{_pstyle9}
\begin{document}
\pagestyle{empty}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plot([[(k+p)/p/p, 2*(k+p)/p-ln(p),p=0.005..100] $
k=0..10],x=-10..10,y=-10..10);}{%
}
\end{mapleinput}

\mapleresult
\begin{center}
\mapleplot{lagrange01}
\end{center}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plot([[(k+p)/p/p, 2*(k+p)/p-ln(p),p=0.005..100] $
k=-10..-1],x=-10..10,y=-10..10);}{%
}
\end{mapleinput}

\mapleresult
\begin{center}
\mapleplot{lagrange02}
\end{center}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plot([1+sqrt(1+4*x*k)-ln((1+sqrt(1+4*x*k))/2/x) $ k=0..10],x=-10..10,
y=-10..10);}{%
}
\end{mapleinput}

\mapleresult
\begin{center}
\mapleplot{lagrange03}
\end{center}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plot([1-sqrt(1+4*x*k)-ln((1-sqrt(1+4*x*k))/2/x) $
k=-10..-1],x=-10..10,y=-10..10);}{%
}
\end{mapleinput}

\mapleresult
\begin{center}
\mapleplot{lagrange04}
\end{center}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\emptyline
\end{maplegroup}
\begin{maplegroup}
\emptyline
\end{maplegroup}
\emptyline
\emptyline
\emptyline
\end{document}
%% End of Maple 9.50 Output
