[pstricks] Re : Problems with "saveData" in "\psplotDiffEqn"

[Manuel Luque]

Oops! Sorry. Here is the real example!

\documentclass{article}
\usepackage{pstricks-add,pst-func}

\def\vXvY{(v0*((y[1])^4)-wR*(Ra^2)*((y[1])^3)+2*v0*(y[0]^2)*((y[1])^2)+((y[1])^2)*v0*((Ra)^2)-wR*(Ra^2)*(y[0]^2)*(y[1])+v0*(y[0]^4)-v0*(Ra^2)*(y[0]^2))/((y[0]^2+y[1]^2)^2)
|
(y[0]*(Ra^2)*(wR*((y[1])^2)-2*v0*(y[1])+wR*(y[0]^2)))/((y[0]^2+y[1]^2)^2)}

\begin{document}
\begin{center}
\begin{pspicture}(-8,-6)(8,6)%
\psgrid%
\psframe*[linecolor=gray!30](-8,-6)(8,6)%
\pstVerb{%
/v0 1 def % vitesse a l'infini m/s
/Ra 1 def % rayon du cylindre
/wR 2.25 def % vitesse de rotation du cylindre rd/s
}%
\pscircle{!Ra}
\BeginSaveFinalState%
\multido{\ry=-4+0.5,\i=0+1}{22}{%
\psplotDiffEqn[%
    linecolor=red,%
    method=rk4,%
    algebraic,%
    plotpoints=1000,%
    saveData=true,%
    filename=PSTdata\i,%
    whichabs=0, whichord=1]{-8}{35}{-8 \ry}{\vXvY}%
}%
\EndSaveFinalState%
\pscircle[fillstyle=solid,fillcolor=gray,linecolor=red]{!Ra}
\psarc{->}(0,0){0.75}{240}{300}
\psgrid%
\end{pspicture}
\end{center}
\end{document}

Manuel

 

 


 

 

-----E-mail d'origine-----
De : Manuel Luque <mluque5130 at aol.com>
A : pstricks <pstricks at tug.org>
Envoyé le : Samedi, 28 Mai 2011 20:03
Sujet : [pstricks] Problems with "saveData" in "\psplotDiffEqn"


 Hello,

When we use the option "saveData=true" of the macro "\psplotDiffEqn" (package "pstricks-add") in a loop, it arises two strange behaviors:
-  a systematic horizontal shift of the  curves.
-  a downscaling  of the grid ("psgrid") and objects.

Did you know these problems? Do you have a solution? 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\documentclass{article}
\usepackage{pstricks-add,pst-func}

\def\vXvY{(v0*((y[1])^4)-wR*(Ra^2)*((y[1])^3)+2*v0*(y[0]^2)*((y[1])^2)+((y[1])^2)*v0*((Ra)^2)-wR*(Ra^2)*(y[0]^2)*(y[1])+v0*(y[0]^4)-v0*(Ra^2)*(y[0]^2))/((y[0]^2+y[1]^2)^2)
|
(y[0]*(Ra^2)*(wR*((y[1])^2)-2*v0*(y[1])+wR*(y[0]^2)))/((y[0]^2+y[1]^2)^2)}

\begin{document}
\begin{center}
\begin{pspicture}(-8,-6)(8,6)%
\psgrid%
\psframe*[linecolor=gray!30](-8,-6)(8,6)%
\pstVerb{%
/v0 1 def % vitesse a l'infini m/s
/Ra 1 def % rayon du cylindre
/wR 2.25 def % vitesse de rotation du cylindre rd/s
}%
\pscircle{!Ra}
\BeginSaveFinalState%
\multido{\ry=-4+0.5}{22}{%
\psplotDiffEqn[%
    linecolor=red,%
    method=rk4,%
    algebraic,%
    plotpoints=1000,%
    saveData=true,%
    filename=PSTdata\i,%
    whichabs=0, whichord=1]{-8}{35}{-8 \ry}{\vXvY}%
}%
\EndSaveFinalState%
\pscircle[fillstyle=solid,fillcolor=gray,linecolor=red]{!Ra}
\psarc{->}(0,0){0.75}{240}{300}
\psgrid%
\end{pspicture}
\end{center}
\end{document}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Thanks,

Manuel

 


 
_______________________________________________
PSTricks mailing list
PSTricks at tug.org
http://tug.org/mailman/listinfo/pstricks
archive: http://www.tug.org/pipermail/pstricks/

 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20110528/94b89a16/attachment.html>