My gnuplot plot command is
tM=1.0*(a0*xmax+ymax)
set parametric
set trange [-0.2:tM]
plot 1/0,1/0 title '\ict\qquad' lc rgb 'gray80' dt 5 lw 2,\
uldx0(t),uldy0(t) title '\disct' lc rgb 'web-green' lw 3,\
hpx0(t),hpy0(t) lc rgb 'pink' lw 2,\
vpx0(t),vpy0(t) with filledcurve xy= 0.5*(xmi0+xpl0),0\
fs transparent solid 0.25 fc rgb 'cyan' ,\
for [n=1:5] ix0(n*0.05+t*n*0.005/tM ,u0(0,n*0.05)),\
iy0(n*0.05+t*n*0.005/tM,u0(0,n*0.05))\
lc rgb 'gray80' dt 5 lw 2,\
for [n=6:10] ix0(n*0.05+t*n*0.01/tM ,u0(0,n*0.05)),\
iy0(n*0.05+t*n*0.01/tM,u0(0,n*0.05))\
lc rgb 'gray80' dt 5 lw 2,\
for [n=22:36] ix0(n*0.025+t ,u0(0,n*0.025)),\
iy0(n*0.025+t,u0(0,n*0.025))\
lc rgb 'gray80' dt 5 lw 2,\
x0(t*pmax0(q1)/tM,q1), y0(t*pmax0(q1)/tM,q1) \
lc rgb q1color lw 2,\
x0(t*pmax0(ql0)/tM,ql0), y0(t*pmax0(ql0)/tM,ql0) \
lc rgb qlcolor lw 2,\
x0(t*pmax0(QqxyL0)/tM,QqxyL0), y0(t*pmax0(QqxyL0)/tM,QqxyL0) \
lc rgb qhatmicolor lw 2,\
x0(t*pmax0(q2)/tM,q2) , y0(t*pmax0(q2)/tM,q2) \
lc rgb q2color lw 2,\
x0(t*pmax0(qpl0)/tM,qpl0), y0(t*pmax0(qpl0)/tM,qpl0) \
lc rgb qplcolor lw 2,\
x0(t*pmax0(QqxyR0)/tM,QqxyR0), y0(t*pmax0(QqxyR0)/tM,QqxyR0) \
lc rgb qhatplcolor lw 2
Is there a good way to break this up with comments which would also help may should I decide to look at this later?