[pstricks] arrows in psmatrix

[Herbert Voss]

Dont Miroslav wrote:
> The appended file contains two examples.
> Thank you for your interest.

maybe this helps.

Herbert


\documentclass[12pt]{article}

\usepackage{pst-node}

\makeatletter
\edef\pst at arrowtable{\pst at arrowtable,H-H}
\def\tx at RHook{RHook }
\@namedef{psas at H}{%
   /RHook {
     CLW mul add dup CLW sub 2 div
     /x ED mul
     /y ED
     /z CLW 2 div def
     x neg y moveto
     x neg 0 0 0 0 y
     curveto
     stroke 0 y moveto %
   } def
   \psk at bracketlength\space \psk at tbarsize\space \tx at RHook%
}
\makeatother

\begin{document}

\[
\begin{psmatrix}
E&W_i(X)&&Y\\
&&W_j(X)
\psset{arrows=->,nodesep=3pt}
\everypsbox{\scriptstyle}
\ncline[linecolor=red,arrows=H->,bracketlength=1.5,tbarsize=3mm]{1,1}{1,2} 

%% This should be \hookrightarrow
\ncline{1,2}{1,4}^{\tilde{t}}
\ncline{1,2}{2,3}<{W_{ij}}
\ncline{2,3}{1,4}>{\tilde{s}}
\end{psmatrix}
\]

\[
\begin{psmatrix}
&&C(K)\\
&M_i&&M_j\\
W_i(K)&&&&W_j(K)
\psset{arrows=->,nodesep=3pt}
\everypsbox{\scriptstyle}
\ncline[arrows=->>]{1,3}{2,2}
\ncline[arrows=->>]{1,3}{2,4}
\ncline[arrows=<<-,linestyle=dashed]{2,2}{2,4}_{m_{ij}}
\ncline[linecolor=red,arrows=H->,bracketlength=1.5,tbarsize=3mm]{2,2}{3,1}<{m_i} 

%% \hookrightarrow with the
%% "litle tail" directed to the left; the same for the next arrow.
\ncline{2,4}{3,5}>{m_j}
\ncline{3,5}{3,1}_{W_{ji}}
\end{psmatrix}
\]
\end{document}