\catcode`\@=11\relax
% Definition of the parameters
% ----------------------------
+% Added by JG, 2012 06 20
+\def\datRoot{}
+% Definition of a "Root" within the hard drive for Distiller users
+% Note: The root must be set with "slashes" not "backslashes" like
+% \def\datRoot{C:/Users/Desktop/datfolder/}
+% By default the \datRoot is left empty (for non-Distiller usage)
\pst@addfams{pst-eqd}
\define@key[psset]{pst-eqd}{method}{\edef\psk@method{#1}}%
\define@key[psset]{pst-eqd}{whichabs}{\edef\psk@whichabs{#1}}%
\define@key[psset]{pst-eqd}{plotfuncx}{\edef\psk@plotfuncx{#1}}%
\define@key[psset]{pst-eqd}{plotfuncy}{\edef\psk@plotfuncy{#1}}%
\define@key[psset]{pst-eqd}{tabname}{\edef\psk@tabname{#1}}%
-\define@key[psset]{pst-eqd}{filename}{\edef\psk@filename{#1}}%
+\define@key[psset]{pst-eqd}{filename}{\edef\psk@filename{\datRoot#1}}%
\newif\ifPst@buildvector%
\define@key[psset]{pst-eqd}{buildvector}[true]{\@nameuse{Pst@buildvector#1}}%
\newif\ifPst@saveData%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% #1-#2 x range
%% #3 initial value of y (which is a vector)
-%% #4 value of the dérivative (y and t can be used)
+%% #4 value of the d\'{e}rivative (y and t can be used)
\def\psequadiff{\def\pst@par{}\pst@object{psequadiff}}
\def\psequadiff@i#1#2#3#4{%
\pst@killglue
\begingroup
\use@par
-% \addto@pscode{%
\pstVerb{
/x #1 def
/x1 #2 def