>>101404147
Absolutely anon.
static F1(jtcfr){A c,r,*wv;I t;
ASSERT((-AR(w)&-(AN(w)^2))>=0,EVLENGTH);
wv=AAV(w);
if(AR(w)){c=C(wv[0]); r=C(wv[1]);}else{c=num(1); r=C(wv[0]);}
ASSERT(((AR(c)-1)&(AR(r)-2))<0,EVRANK);
ASSERT((-(NUMERIC&AT(c))&((AN(r)-1)|-(NUMERIC&AT(r))))<0,EVDOMAIN);
t=AT(r); t=AN(r)?t:B01; if(t&B01+INT)t=XNUM; t=maxtyped(t,AT(c));
ASSERT(!(t&QP),EVNONCE) // no qp support
if(TYPESNE(t,AT(c)))RZ(c=cvt(t,c));
if(TYPESNE(t,AT(r)))RZ(r=cvt(t,r));
AF tf; tf=(AF)jtcfrd; tf=t&CMPX?(AF)jtcfrz:tf; tf=t&XNUM?(AF)jtcfrx:tf; tf=t&RAT?(AF)jtcfrq:tf;
R (*tf)(jt,c,r);
} /* coefficients from roots */
[\code]
Always love reading this kind of code. Read it like I read my morning newspaper.