source:
git/Tst/Manual/par2varRing.tst
@
a1ef3a2
Last change on this file since a1ef3a2 was 1b5cce, checked in by , 4 years ago | |
---|---|
|
|
File size: 285 bytes |
Line | |
---|---|
1 | LIB "tst.lib"; tst_init(); |
2 | ring R = (0,x),(y,z,u,v),lp; |
3 | minpoly = x2+1; |
4 | ideal i = x3,x2+y+z+u+v,xyzuv-1; i; |
5 | def P = par2varRing(i)[1]; P; |
6 | setring(P); |
7 | Id[1]; |
8 | setring R; |
9 | module m = x3*[1,1,1], (xyzuv-1)*[1,0,1]; |
10 | def Q = par2varRing(m)[1]; Q; |
11 | setring(Q); |
12 | print(Id[1]); |
13 | tst_status(1);$ |
Note: See TracBrowser
for help on using the repository browser.