/* Pari* Converting to a string the Weierstrass polynomial of an elliptic curve
/* Author: Joachim Wehler
*/
default(format, "f0.10" ); 

ellprint(E) =
{
	local debug = 0;

	if (debug == 1, print("ellprint: Start"));
	output = "Y^2";
	if (E.a1 !=0, output = concat(output, " + ("); output = concat(output, E.a1 * YX); 	output = concat(output, ")"));
	if (E.a3 !=0, output = concat(output, " + ("); output = concat(output, E.a3 * Y) ; 	output = concat(output, ")"));
	output = concat(output, " = X^3");
	if (E.a2 !=0, output = concat(output, " + ("); output = concat(output, E.a2 * X^2); output = concat(output, ")"));
	if (E.a4 !=0, output = concat(output, " + ("); output = concat(output, E.a4 * X);  	output = concat(output, ")"));
	if (E.a6 !=0, output = concat(output, " + ("); output = concat(output, E.a6); 		output = concat(output, ")"));
	if (debug == 1, print("ellprint: End"));
	return(output);
}				

/*---------------------------------------------------------------------------------------*/

