ediv
ediv( elog2, den, den ); /* i/log 2 */
ediv( den, num, y ); /* (1 + tanh)/(1 - tanh) */
ediv( y, eone, y );
void eadd(), esub(), emul(), ediv();
ediv( b, a, y ); /* store (x-1)/(x+1) in y */
ediv( qj, a, t );
ediv( w, eone, w );
ediv( e, eone, r );
ediv( j, xx, y );
ediv( e, xx, r );
ediv( e, x, y );
ediv( p, u, t );
ediv( p, u, u );
ediv( t, eone, t );
ediv( q5, eone, q2 );
ediv( q5, eone, fullp );
ediv( fullp, eone, fullp );
ediv( fullp, eone, fullp );
ediv( etwo, e2, e2 );
ediv( etwo, e1, e1 );
ediv( etwo, e2, e2 );
ediv( ref, e, e );
ediv( ref, er, er );