//
//
// code for Example 3.6
//
//


E:=EllipticCurve("27a3");
LocalInformation(E);
WeierstrassModel(E);

LocalInformation(QuadraticTwist(E, 5));
CremonaReference(QuadraticTwist(E, 5));                          // 675a1=675.e4

LocalInformation(QuadraticTwist(E, 7));
CremonaReference(QuadraticTwist(E, 7));                   	 // 21168cx1=21168.bv4

LocalInformation(QuadraticTwist(E, 31));
CremonaReference(QuadraticTwist(E, 31));                         // 415152ci1=415152.ci4