eadd
eadd( den, num, x2 ); /* log 2 * f1 + f */
eadd( x2, eone, num ); /* 1 + tanh */
eadd( x2, eone, den ); /* 1 - tanh */
void eadd(), esub(), emul(), ediv();
eadd( b, y, y );
eadd( eone, xx, b );
eadd( etwo, qj, qj ); /* 2 * i + 1 */
eadd( t, b, b );
eadd( r, e, j );
eadd( m2, j, j );
eadd( r, j, e );
eadd( ehalf, x, y );
eadd( eone, q5, fullp );
eadd( ehalf, fullp, fullp );
eadd( e1, e2, fullp );
eadd( ea, ex, ex ); /* add fuzz */
eadd( ex, ex, ex );
eadd( ehalf, ex, ex );
eadd( LOW, ex, ex );
eadd( ea, ex, erand );