spielwiese
Last change
on this file since e070751 was
e15ccf,
checked in by Janko Boehm <boehm@…>, 10 years ago

Added better test for testParametrization


Property mode set to
100644

File size:
383 bytes

Rev  Line  

[e15ccf]  1  LIB "tst.lib"; tst_init(); 

 2  LIB "paraplanecurves.lib"; 

 3  ring R = 0,(x,y,z),dp; 

 4  poly f1 = 1/2*x^5+x^2*y*z^2+x^3*y*z+1/2*x*y^2*z^22*x*y^3*z+y^5; 

 5  def Rp1 = paraPlaneCurve(f1); 

 6  testParametrization(f1, Rp1); 

 7  setring R; 

 8  poly f2 = x6+3x4y2+3x2y4+y64x4z234x3yz27x2y2z2+12xy3z2+6y4z2; 

 9  f2 = f2+36x2z4+36xyz4+9y2z4; 

 10  def Rp2 = paraPlaneCurve(f2); 

 11  testParametrization(f2, Rp2); 

 12  tst_status(1);$ 

Note: See
TracBrowser
for help on using the repository browser.