Nós conectados incorretamente no TikZ - continuação

Question

Esta é uma continuação da perguntaNós conectados incorretamente no TikZ .

Com a abordagem sugerida pela resposta aceita nessa pergunta, quando usei a lógica do meu código original, a saída não foi a mesma.

Eu recebo algo assim:

Código:

\documentclass{article}
\usepackage{tikz}
\tikzset{square/.style = {
    shape  = rectangle,
    fill   = gray!50,
    draw   = black,
    thick
}}

\tikzset{circle/.style = {
    shape  = circle,
    fill   = blue!20,
    draw   = blue,
    thick
}}

\tikzset{help lines/.style=very thin}
\tikzset{My Grid/.style={help lines,color=blue!50}}

\begin{document}
\begin{tikzpicture}
  %\draw[My Grid] (-5,-5) grid (15,15);
  \draw[square] (-4,4)rectangle node (r1) {r1} (-3,5);
  \draw[square] (1,4) rectangle node (r2) {r2} (2,5);
  \draw[square] (-3,0) rectangle node (r3) {r3} (-4,1);
  \draw[square] (1,0) rectangle node (r4) {r4} (2,1);
  \draw[circle] (-1,2.5) circle [radius=0.5cm] node[above=2ex,red] (s) {$s \leq 3$};
  \draw[circle] (-1,4.5) circle [radius=0.5cm] node (s1) {s1};
  \draw[circle] (-1,6.5) circle [radius=0.5cm] node (s2) {};
  \draw[fill=black] (-1,6.5) circle [radius=0.1cm] node (s3) {};
  \draw[circle] (-1,0.5) circle [radius=0.5cm] node (s4) {s4};
  \draw[circle] (-1,-1.5) circle [radius=0.5cm] node (s5) {};
  \draw[fill=black] (-1,-1.5) circle [radius=0.1cm];
  \draw[->] (r1) -- (s1);

\end{tikzpicture}
\end{document} 

Answer 1

Defina seus elementos diretamente como um arquivo \node. Desta forma você pode definir pontos de ancoragem em seus elementos. Se eu mostrar desta forma usando parte do seu código:

\documentclass{article}
\usepackage{tikz}
\tikzset{square/.style = {
    shape  = rectangle,
    fill   = gray!50,
    draw   = black,
    minimum height=1cm,
    minimum width=1cm,
    thick
}}

\tikzset{circle/.style = {
    shape  = circle,
    fill   = blue!20,
    draw   = blue,
    minimum size=1cm,
    inner sep=0pt,
    thick
}}

\tikzset{help lines/.style=very thin}
\tikzset{My Grid/.style={help lines,color=blue!50}}

\begin{document}
\begin{tikzpicture}
  %\draw[My Grid] (-5,-5) grid (15,15);
  \node (r1) at (-3.5,4.5) [square] {r1};
  \node (s1)at (-1,4.5) [circle]{s1};
  \draw[->] (r1) -- (s1);
\end{tikzpicture}
\hfill
\begin{tikzpicture}[xshift=2cm]
  %\draw[My Grid] (-5,-5) grid (15,15);
  \node (r1) at (-3.5,4.5) [square] {r1};
  \node (s1)at (-1,4.5) [circle]{s1};
  \draw[->] (r1.east) -- (s1.west);
  \end{tikzpicture}
\hfill
\begin{tikzpicture}[xshift=2cm]
  %\draw[My Grid] (-5,-5) grid (15,15);
  \node (r1) at (-3.5,4.5) [square] {r1};
  \node (s1)at (-1,4.5) [circle]{s1};
  \draw[->] (r1.south east) -- (s1.180);
  \draw[->] (r1.north east) -- (s1.north);
\end{tikzpicture}

\end{document} 

Answer 2

O gráfico que você deseja criar é exatamente igual ao criado no tutorialUma rede de Petri para Hagen no manual3.1.1 nas páginas 49 a 60.

Convido você a lê-lo, está muito bem escrito e muito completo.

Aqui está o código completo da figura do manual fornecida na página 52:

\documentclass[tikz,border=5mm]{standalone}
\usetikzlibrary{arrows,decorations.pathmorphing,backgrounds,positioning,fit,petri}
\begin{document}

\begin{tikzpicture}[place/.style={circle,draw=blue!50,fill=blue!20,thick,
inner sep=0pt,minimum size=6mm},
transition/.style={rectangle,draw=black!50,fill=black!20,thick,
inner sep=0pt,minimum size=4mm}]
\node[place] (waiting) {};
\node[place] (critical) [below=of waiting] {};
\node[place] (semaphore) [below=of critical] {};
\node[transition] (leave critical) [right=of critical] {};
\node[transition] (enter critical) [left=of critical] {};
\draw [->] (enter critical.east) -- (critical.west);
\draw [->] (waiting.west) .. controls +(left:5mm) and +(up:5mm)
.. (enter critical.north);
\end{tikzpicture}

\end{document} 

Aqui está a figura final construída no final do tutorial.