mod1diagram.tex

\begin{figure}[!ht]
%%%%% SEAIR diagram
\begin{center}
  \resizebox{0.9\textwidth}{!}{
    \Large
    \setlength{\unitlength}{5pt}
    \begin{picture}(100,95)(0,15)
      \thicklines

      % Unvaccinated Compartments
      \put(10,63){\framebox(6,6){$\mathrm{S}_0$}}
      \put(34,63){\framebox(6,6){$\mathrm{E}_0$}}
      \put(58,71){\framebox(6,6){$\mathrm{A}_0$}}
      \put(82,63){\framebox(6,6){$\mathrm{R}_0$}}
      \put(58,55){\framebox(6,6){$\mathrm{I}_0$}}

      % Births
      \put(1, 66){\vector(1, 0){8}}
      \put(4, 68){$\muBirth$}

      % S_0 -> E_0
      \put(17,66){\vector(1,0){16}}
      \put(22,67){$\lambda(t)$}

      % E_0 -> A_0
      \put(41,67.5){\vector(2.1,1){16}}
      % \put(37, 72){$\muEI\big(1-\symptomFrac_{\vaccCounter}(t)\big)$}

      % E_0 -> I_0
      \put(41,65.5){\vector(2.1,-1){16}}

      % A_0 -> R_0
      \put(65,74){\vector(2.1,-1){16}}

      % I_0 -> R_0
      \put(65,59){\vector(2.4,1){16}}

      % R_0 -> S_0
      \cbezier(84,70)(75, 95)(23,95)(14,70)
      \put(14,70){\vector(-1, -2){0.3}}

      % Unvaccinated death rates
      \put(13, 70){\vector(0, 1){10}}
      \put(11, 74){$\muDeath$}

      \put(37, 70){\vector(0, 1){10}}
      \put(35, 74){$\muDeath$}

      \put(61, 78){\vector(0, 1){9}}
      \put(59, 80){$\muDeath$}

      \put(61, 62){\vector(1.5, 2){6}}
      \put(61.5, 65.5){$\muDeath$}

      \put(85, 70){\vector(0, 1){10}}
      \put(83, 74){$\muDeath$}

      % Vaccinated Compartments
      \put(10,37){\framebox(6,6){$\mathrm{S}_\vaccCounter$}}
      \put(34,37){\framebox(6,6){$\mathrm{E}_\vaccCounter$}}
      \put(58,45){\framebox(6,6){$\mathrm{A}_\vaccCounter$}}
      \put(82,37){\framebox(6,6){$\mathrm{R}_\vaccCounter$}}
      \put(58,29){\framebox(6,6){$\mathrm{I}_\vaccCounter$}}

      % S -> E
      \put(17,40){\vector(1,0){16}}
      \put(22,41){$\lambda(t)$}

      % E -> A
      \put(41,40.5){\vector(2.1,1){16}}

      % E -> I
      \put(41,39.5){\vector(2.1,-1){16}}

      % A -> R
      \put(65,48){\vector(2.1,-1){16}}

      % I -> R
      \put(65,32){\vector(2.1,1){16}}

      % R -> S
      \cbezier(84, 36)(75, 10)(23, 10)(14, 36)
      \put(14,36){\vector(-1, 2){0.3}}

      % Vaccinated death rates
      \put(13, 36){\vector(0, -1){10}}
      \put(11, 31){$\muDeath$}

      \put(37, 36){\vector(0, -1){10}}
      \put(35, 31){$\muDeath$}

      \put(61, 28.5){\vector(0, -1){9}}
      \put(59, 24){$\muDeath$}

      \put(61, 44){\vector(1.5, -2){6}}
      \put(62, 38){$\muDeath$}

      \put(85, 36){\vector(0, -1){10}}
      \put(83.2, 30.2){$\muDeath$}

      % S_0 -> S_\vaccCounter
      \multiput(13,62)(0,-2){9}{\line(0,-1){1}}
      \put(13, 43.5){\vector(0, -1){0}}

      % E_0 -> E_\vaccCounter
      \multiput(37,62)(0,-2){9}{\line(0,-1){1}}
      \put(37, 43.5){\vector(0, -1){0}}

      % R_0 -> R_\vaccCounter
      \multiput(85,62)(0,-2){9}{\line(0,-1){1}}
      \put(85, 43.5){\vector(0, -1){0}}

      % A_0 -> A_\vaccCounter
      \multiput(57.5,72)(-1.9, 0){3}{\line(-1, 0){0.9}}
      \put(52.2, 72){\line(-2.1, -1){1}}
      \multiput(51,71)(0, -2){11}{\line(0, -1){1}}
      \put(52.2, 49){\line(-2.1, 1){1}}
      \multiput(54,49)(1.9, 0){2}{\line(-1, 0){0.9}}
      \put(57, 49){\vector(1, 0){0}}

      % I_0 -> I_\vaccCounter
      \multiput(65, 57.5)(1.9, 0){3}{\line(1, 0){0.9}}
      \put(70.6, 57.5){\line(2.1, -1){1}}
      \multiput(72, 56.5)(0, -2){13}{\line(0, -1){1}}
      \put(72, 30.9){\line(-2, -1.2){0.9}}
      \multiput(65.6, 30.2)(1.9, 0){3}{\line(1, 0){0.9}}
      \put(64.5, 30.2){\vector(-1, 0){0}}

    \end{picture}
  }
\end{center}
\caption{A flow diagram for the SEAIR model.}\label{fig:flow_diagram}
\end{figure}