.PS
# ex03.m4
cct_init
circlerad = 0.35/2
define(`elen_',`dimen_')
del = linewid*0.6

   "$u_k$" above
   line
{
   arrow right_ del
B0: circle "$b_0$"
   arrow right linewid/2
S: circle "$\sum$"
   line right 2*circlerad + del + S.w.x-B0.e.x
   {arrow ; "$y_k$" above }
   down_
   delay
   {line left_ del ; circle "$-a_1$" ; arrow from last circle to S chop}
   line dashed down_ del
   delay
   {line left_ del ; circle "$-a_n$" ; arrow from last circle to S chop}
}
   down_
   delay
   {line right_ del ; circle "$b_1$" ; arrow from last circle to S chop}
   line dashed down_ del
   delay
   {line right_ del ; circle "$b_n$" ; arrow from last circle to S chop}
.PE