--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ChengsongTanPhdThesis/Chapters/tape.tex	Fri Jun 03 16:45:30 2022 +0100
@@ -0,0 +1,55 @@
+\documentclass{standalone}
+\usepackage[utf8]{inputenc}
+\usepackage{ifthen}
+\usepackage{tikz}
+\usetikzlibrary{chains}
+\usetikzlibrary{calc, decorations.pathmorphing}
+\tikzstyle{tape}=[thick, draw, minimum height=5mm, minimum width=7mm, fill=green!35,outer sep=0pt]
+\tikzstyle{head}=[very thick, draw, minimum height=6mm, minimum width=7mm, fill=none,outer sep=0pt]
+
+\def\DrawTape#1{
+\begin{scope}[start chain=1 going right,node distance=-0.15mm]
+    % start tape
+    \node [on chain=1,tape,draw=none, tape, fill=none, draw=none] at (0,-\i*1) (node\i0){\ldots\ };
+    \draw [thick,fill=green!35] (node\i0.north east) -- ++(-.07,0) decorate [decoration={zigzag, segment length=.10cm, amplitude=.015cm}] 
+    {-- ($(node\i0.south east)+(-.15,0)$)} -- (node\i0.south east) -- cycle;
+    % draw tape 
+      \foreach [count=\j] \element in \adlist {     
+	  \ifthenelse{\j = \head}{ % read-write heads current position
+		    \node [on chain=1,tape, fill=red!35] (node\i\j){\element};
+	      }
+	      {
+		    \node [on chain=1,tape] (node\i\j) {\element};
+	      }
+      }    
+    % close tape
+    \draw [thick,fill=green!35] (node\i\j.north east) -- ++(.15,0) decorate [decoration={zigzag, segment length=.10cm, amplitude=.015cm}] 
+    {-- ($(node\i\j.south east)+(.07,0)$)} -- (node\i\j.south east) -- cycle;
+    \node [on chain=1,tape, fill=none, draw=none] (end\i) {\ \ldots};
+    \node [right = of end\i]{\tiny tape~\i};
+    
+    % draw read-write head
+    \prevnode=\head
+    \advance\prevnode by -1
+    \node [head,right = of node\i\the\prevnode] (head\i){};
+    \node [above = of head\i]{\tiny head \i};
+\end{scope}
+}
+\newcount\prevnode
+\begin{document}
+% Define the turing machine as a list of pairs, where each pair consists of the read-writes head position the delimiter "/" and  the list of symbols on the tape.
+\newcommand{\tapes}{ 3/{, , ,1,1, }, 1/{, 1, 0, 1 , 0,}, 2/{ , 1 , 1, 0, 1,}}
+\begin{tikzpicture}
+% Draw program node
+\draw (-1.5,-2) node [draw, thick, rectangle, minimum height= 2.5cm, minimum width=2cm, fill=white, rounded corners] (program){program};
+
+% Draw tapes and heads
+\foreach [count=\i] \head/\adlist in \tapes {
+    % Draw tape and head
+    \DrawTape{\i,\head,\adlist}
+    % Draw link to program
+    \draw[thick, rounded corners=3pt] (program) {-- ($(node\i0.south west) + (0,-0.15)$)} 
+	{-- ($(head\i.south) + (0,-0.1)$)}-- (head\i.south);
+}
+\end{tikzpicture}
+\end{document}
\ No newline at end of file