summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex')
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex9
1 files changed, 5 insertions, 4 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex b/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex
index d7464faaf32..fdbc1fbadb7 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex
@@ -6,7 +6,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\vecfldnew#1#2#3#4#5#6#7#8{%
\newcount\intg \newdimen\fx \newdimen\fy \newdimen\slope \newdimen\interm
-\def\fintg{\interm=#8 \interm=\intg\interm \ifdim\ifdim\slope<0pt-\fi\slope>\interm\advance\intg by 1\fintg\fi}
+\def\fintg{\interm=#8 \interm=\intg\interm \ifdim\ifdim\slope<0pt-\fi\slope<\interm\advance\intg by -1\relax\else\advance\intg by 1\fintg\fi}
\multido{#2}{#4}
{\multido{#1}{#3}
{\curvepnodes[algebraic,plotpoints=2]{0}{1}{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}
@@ -33,9 +33,10 @@
\begin{pspicture}(-3,-3)(3,3)
\psset{unit=28.5pt,dotsize=2.6pt}
\vecfldnew{\nx=-3.00+0.3}{\ny=-3.00+0.3}{20}{20}{0.3}{2*(\nx)*(\ny)/(1+(\ny)^2)}
-{\fx=\nx pt\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}
-\Fncty{\ny}{\soly}{\Dsoly}\DIVIDE{\Dsoly}{\soly}{\tempa}\slope=\tempa pt\slope=\decimal\fx\slope}{3pt}
-\psaxes[labelFontSize=$\footnotesize$,Dy=1,Dx=1,ticksize=2.2pt,labelsep=4pt,linewidth=0.7pt]{->}(0,0)(-3,-3)(3,3)
+{\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}\Fncty{\ny}{\soly}{\Dsoly}
+\DIVIDE{\Dsoly}{\soly}{\tempa}\MULTIPLY{\nx}{\tempa}{\tempb}
+\slope=\tempb pt}{2.5pt}
+\psaxes[labelFontSize=$\footnotesize$,Dy=1,Dx=1,ticksize=2.2pt,labelsep=4pt,linewidth=0.7pt]{->}(0,0)(-3,-3)(3.1,3)
\end{pspicture}
\end{pdfpic}
\end{document}