fieker-DuValspielwiese
Last change
on this file since c2400ce was
c2400ce,
checked in by Oleksandr Motsak <motsak@…>, 11 years ago
|
More tests
|
-
Property mode set to
100644
|
File size:
462 bytes
|
Rev | Line | |
---|
[c2400ce] | 1 | LIB "tst.lib"; tst_init(); |
---|
| 2 | |
---|
| 3 | // characteristic : 0 |
---|
| 4 | // 1 parameter : t |
---|
| 5 | // minpoly : 0 |
---|
| 6 | // number of vars : 2 |
---|
| 7 | // block 1 : ordering ds |
---|
| 8 | // : names x y |
---|
| 9 | // block 2 : ordering C |
---|
| 10 | ring R = (0,t),(x,y),(ds(2),C); R; |
---|
| 11 | |
---|
| 12 | poly F = 2*x2+(-1/2t)*y2-y3; F; |
---|
| 13 | |
---|
| 14 | subst(F,t,1/10); // 2*x2-1/10*y2-y3 |
---|
| 15 | |
---|
| 16 | poly G = (-1/16t5)+(-5/16t4)*y+2*x2+(5/4t2)*y3-y5; G; |
---|
| 17 | |
---|
| 18 | subst(G,t,1/10); // -1/100000-1/2000*y+2*x2+1/20*y3-y5 |
---|
| 19 | |
---|
| 20 | tst_status(1);$ |
---|
Note: See
TracBrowser
for help on using the repository browser.