source: git/Tst/Manual/divisor.tst @ 76ce4e6

spielwiese
Last change on this file since 76ce4e6 was 894057, checked in by Oleksandr Motsak <motsak@…>, 13 years ago
ADD: Tests from online manual (res+stat on mamawutz): short ones Tst/Manual/s.lst
  • Property mode set to 100644
File size: 199 bytes
Line 
1LIB "tst.lib"; tst_init();
2LIB "hyperel.lib";
3ring R=7,x,dp;
4// hyperelliptic curve y^2 + h*y = f
5poly h=x;
6poly f=x5+5x4+6x2+x+3;
7poly a=(x-1)^2*(x-6);
8poly b=0;
9divisor(a,b,h,f,1);
10tst_status(1);$
Note: See TracBrowser for help on using the repository browser.