AnimR := proc (fce, p, i, rp, poc) RETURN(animate(unapply(sum(fce,i = 1 .. o),
p)(p),p = rp,o = 1 .. poc,frames = poc)) end;
CSoucetR := proc (fce, p, i, rp, ri) RETURN(display(seq(plot(unapply(sum(fce,i
= 1 .. o),p)(p),p = rp,labels = [``, ``],discont = true),o = ri))) end;