[pstricks] series and multido

[Herbert Voss]

Denis Vergès schrieb:

> \pscustom[linewidth=1.2pt,arrowscale=1.5]
> {
>     \code{/x 1 def
>           /y  x 1 add ln  x 2 exp 2 div add def
>               }
>        \multido{\i=1+1}{4}
>        {
>            \moveto(!x y)
>            \psline{->}(!x x)(!x y) \closepath
>            \psline{->}(!x y)(!y y) \closepath
> %% Here I want draw (with style dashed) vertical \psline from x-axis  
> till $y = x$
>            \code{/x y def
>                  /y x 1 add ln  x 2 exp 2 div add def
>                      }
>        }
> }


\pscustom[linewidth=1.2pt,arrowscale=1.5]{%
   \code{/x 1 def
         /y  x 1 add ln  x 2 exp 2 div add def }
   \multido{\i=1+1}{4}{
      \moveto(!x y)
      \psline{->}(!x x)(!x y)\closepath
      \psline{->}(!x y)(!y y)\closepath\stroke
%% Here I want draw (with style dashed) vertical \psline
      \code{/x y def
            /y x 1 add ln  x 2 exp 2 div add def }
      \code{ [ 4 4 ] 0 setdash x 0 moveto}
      \psline(!x 0)(!x x)\closepath
      \code{ stroke  [ 1 0 ] 0 setdash}
    }
}

Herbert