/* -*-apcalc-*-
*
- * $Id: ecp.cal,v 1.3 2004/03/23 15:19:32 mdw Exp $
+ * $Id: ecp.cal,v 1.4 2004/04/01 13:37:07 mdw Exp $
*
* Testbed for elliptic curve arithmetic over prime fields
*
/*----- Revision history --------------------------------------------------*
*
* $Log: ecp.cal,v $
+ * Revision 1.4 2004/04/01 13:37:07 mdw
+ * Keep numbers positive.
+ *
* Revision 1.3 2004/03/23 15:19:32 mdw
* Test elliptic curves more thoroughly.
*
{
local obj ecp_pt d;
d.x = a.x;
- d.y = -a.y;
+ d.y = a.e.p - a.y;
d.e = a.e;
return (d);
}