\begin{tikzpicture}[scale=2.54]%
% dpic version 2024.01.01 option -g for TikZ and PGF 1.01
\ifx\dpiclw\undefined\newdimen\dpiclw\fi
\global\def\dpicdraw{\draw[line width=\dpiclw]}
\global\def\dpicstop{;}
\dpiclw=0.8bp
\dpicdraw[fill=red!30,line width=0.8bp](0.5,-0.046875)
 ..controls (0.5,-0.02101) and (0.47899,0)
 ..(0.453125,0)
 --(-0.453125,0)
 ..controls (-0.47899,0) and (-0.5,-0.02101)
 ..(-0.5,-0.046875)
 --(-0.5,-0.328125)
 ..controls (-0.5,-0.35399) and (-0.47899,-0.375)
 ..(-0.453125,-0.375)
 --(0.453125,-0.375)
 ..controls (0.47899,-0.375) and (0.5,-0.35399)
 ..(0.5,-0.328125)
 --cycle\dpicstop
\draw (0,-0.1875) node{Start};
\filldraw[line width=0bp](-0.025,-0.441667)
 --(0,-0.541667)
 --(0.025,-0.441667) --cycle\dpicstop
\dpicdraw[line width=0.8bp](0,-0.375)
 --(0,-0.518761)\dpicstop
\fill[fill=blue!30,line width=0bp](0,-0.541667)
 --(0.6875,-0.541667)
 --(0.5625,-0.916667)
 --(-0.6875,-0.916667)
 --(-0.5625,-0.541667)
 --(0,-0.541667)--cycle
\dpicstop
\dpicdraw[line width=0.8bp](0,-0.541667)
 --(0.6875,-0.541667)
 --(0.5625,-0.916667)
 --(-0.6875,-0.916667)
 --(-0.5625,-0.541667)
 --(0,-0.541667)\dpicstop
\draw (0,-0.729167) node{Input: $f(), a, b, \epsilon$};
\filldraw[line width=0bp](-0.025,-0.983333)
 --(0,-1.083333)
 --(0.025,-0.983333) --cycle\dpicstop
\dpicdraw[line width=0.8bp](0,-0.916667)
 --(0,-1.060427)\dpicstop
\dpicdraw[fill=orange!30,line width=0.8bp](-0.5,-1.458333) rectangle (0.5,-1.083333)\dpicstop
\draw (0,-1.270833) node{$c=(a+b)/2$};
\filldraw[line width=0bp](-0.025,-1.525)
 --(0,-1.625)
 --(0.025,-1.525) --cycle\dpicstop
\dpicdraw[line width=0.8bp](0,-1.458333)
 --(0,-1.602094)\dpicstop
\fill[fill=green!30,line width=0bp](0.4375,-1.835938)
 --(0.875,-2.046875)
 --(0,-2.46875)
 --(-0.875,-2.046875)
 --(0,-1.625)
 --(0.4375,-1.835938)--cycle
\dpicstop
\dpicdraw[line width=0.8bp](0.4375,-1.835938)
 --(0.875,-2.046875)
 --(0,-2.46875)
 --(-0.875,-2.046875)
 --(0,-1.625)
 --(0.4375,-1.835938)\dpicstop
\draw (0,-2.046875) node{\shortstack{if:\\%
$f(a)*f(b) > 0$\\%
\vphantom{\vrule height6pt}}};
\filldraw[line width=0bp](-0.025,-2.535417)
 --(0,-2.635417)
 --(0.025,-2.535417) --cycle\dpicstop
\dpicdraw[line width=0.8bp](0,-2.46875)
 --(0,-2.612511)\dpicstop
\draw (0,-2.54063) node[right=-2bp]{False};
\fill[fill=green!30,line width=0bp](0.4375,-2.846354)
 --(0.875,-3.057292)
 --(0,-3.479167)
 --(-0.875,-3.057292)
 --(0,-2.635417)
 --(0.4375,-2.846354)--cycle
\dpicstop
\dpicdraw[line width=0.8bp](0.4375,-2.846354)
 --(0.875,-3.057292)
 --(0,-3.479167)
 --(-0.875,-3.057292)
 --(0,-2.635417)
 --(0.4375,-2.846354)\dpicstop
\draw (0,-3.057292) node{\shortstack{while:\\%
$f(c)\neq 0 \;\&$\\%
$|f(b)-f(a)| > \delta$\\%
\vphantom{\vrule height6pt}}};
\filldraw[line width=0bp](-0.025,-3.545833)
 --(0,-3.645833)
 --(0.025,-3.545833) --cycle\dpicstop
\dpicdraw[line width=0.8bp](0,-3.479167)
 --(0,-3.622927)\dpicstop
\draw (0,-3.551047) node[right=-2bp]{True};
\dpicdraw[fill=orange!30,line width=0.8bp](-0.5,-4.020833) rectangle (0.5,-3.645833)\dpicstop
\draw (0,-3.833333) node{$c=(a+b)/2$};
\filldraw[line width=0bp](-0.025,-4.0875)
 --(0,-4.1875)
 --(0.025,-4.0875) --cycle\dpicstop
\dpicdraw[line width=0.8bp](0,-4.020833)
 --(0,-4.164594)\dpicstop
\fill[fill=green!30,line width=0bp](0.4375,-4.398438)
 --(0.875,-4.609375)
 --(0,-5.03125)
 --(-0.875,-4.609375)
 --(0,-4.1875)
 --(0.4375,-4.398438)--cycle
\dpicstop
\dpicdraw[line width=0.8bp](0.4375,-4.398438)
 --(0.875,-4.609375)
 --(0,-5.03125)
 --(-0.875,-4.609375)
 --(0,-4.1875)
 --(0.4375,-4.398438)\dpicstop
\draw (0,-4.609375) node{\shortstack{if:\\%
$f(a)*f(c) < 0$\\%
\vphantom{\vrule height6pt}}};
\filldraw[line width=0bp](-1.108333,-4.584375)
 --(-1.208333,-4.609375)
 --(-1.108333,-4.634375) --cycle\dpicstop
\dpicdraw[line width=0.8bp](-0.875,-4.609375)
 --(-1.185427,-4.609375)\dpicstop
\draw (-1.030214,-4.609375) node[below=-2bp]{True};
\dpicdraw[fill=orange!30,line width=0.8bp](-2.208333,-4.796875) rectangle (-1.208333,-4.421875)\dpicstop
\draw (-1.708333,-4.609375) node{$b=c$};
\filldraw[line width=0bp](-1.683333,-2.652083)
 --(-1.708333,-2.552083)
 --(-1.733333,-2.652083) --cycle\dpicstop
\dpicdraw[line width=0.8bp](-1.708333,-4.421875)
 --(-1.708333,-2.574989)\dpicstop
\filldraw[line width=0bp](-1.108333,-5.172917)
 --(-1.208333,-5.197917)
 --(-1.108333,-5.222917) --cycle\dpicstop
\dpicdraw[line width=0.8bp](0,-5.03125)
 --(0,-5.197917)
 --(-1.185427,-5.197917)\dpicstop
\draw (0,-5.114583) node[right=-2bp]{False};
\dpicdraw[fill=orange!30,line width=0.8bp](-2.208333,-5.385417) rectangle (-1.208333,-5.010417)\dpicstop
\draw (-1.708333,-5.197917) node{$a=c$};
\filldraw[line width=0bp](-0.1,-2.577083)
 --(0,-2.552083)
 --(-0.1,-2.527083) --cycle\dpicstop
\dpicdraw[line width=0.8bp](-2.208333,-5.197917)
 --(-2.375,-5.197917)
 --(-2.375,-2.552083)
 --(-0.022906,-2.552083)\dpicstop
\fill[fill=blue!30,line width=0bp](1.375,-5.010417)
 --(2.0625,-5.010417)
 --(1.9375,-5.385417)
 --(0.6875,-5.385417)
 --(0.8125,-5.010417)
 --(1.375,-5.010417)--cycle
\dpicstop
\dpicdraw[line width=0.8bp](1.375,-5.010417)
 --(2.0625,-5.010417)
 --(1.9375,-5.385417)
 --(0.6875,-5.385417)
 --(0.8125,-5.010417)
 --(1.375,-5.010417)\dpicstop
\draw (1.375,-5.197917) node{Output: $H, v, t$};
\filldraw[line width=0bp](1.35,-4.910417)
 --(1.375,-5.010417)
 --(1.4,-4.910417) --cycle\dpicstop
\dpicdraw[line width=0.8bp](0.875,-2.046875)
 --(1.375,-2.046875)
 --(1.375,-4.987511)\dpicstop
\draw (1.125,-2.046875) node[above=-2bp]{True};
\filldraw[line width=0bp](1.275,-3.082292)
 --(1.375,-3.057292)
 --(1.275,-3.032292) --cycle\dpicstop
\dpicdraw[line width=0.8bp](0.875,-3.057292)
 --(1.352094,-3.057292)\dpicstop
\draw (1.113547,-3.057292) node[above=-2bp]{False};
\filldraw[line width=0bp](1.35,-5.452083)
 --(1.375,-5.552083)
 --(1.4,-5.452083) --cycle\dpicstop
\dpicdraw[line width=0.8bp](1.375,-5.385417)
 --(1.375,-5.529177)\dpicstop
\dpicdraw[fill=orange!30,line width=0.8bp](0.75,-5.927083) rectangle (2,-5.552083)\dpicstop
\draw (0.763889,-5.739583) node{\shortstack{\rlap{\hbox to 2bp{}Plot:}\\%
\rlap{\hbox to 2bp{}H on T and V on T}}};
\filldraw[line width=0bp](1.35,-5.99375)
 --(1.375,-6.09375)
 --(1.4,-5.99375) --cycle\dpicstop
\dpicdraw[line width=0.8bp](1.375,-5.927083)
 --(1.375,-6.070844)\dpicstop
\dpicdraw[fill=red!30,line width=0.8bp](1.875,-6.140625)
 ..controls (1.875,-6.11476) and (1.85399,-6.09375)
 ..(1.828125,-6.09375)
 --(0.921875,-6.09375)
 ..controls (0.89601,-6.09375) and (0.875,-6.11476)
 ..(0.875,-6.140625)
 --(0.875,-6.421875)
 ..controls (0.875,-6.44774) and (0.89601,-6.46875)
 ..(0.921875,-6.46875)
 --(1.828125,-6.46875)
 ..controls (1.85399,-6.46875) and (1.875,-6.44774)
 ..(1.875,-6.421875)
 --cycle\dpicstop
\draw (1.375,-6.28125) node{Stop};
\end{tikzpicture}%