| 1 | // |
|---|
| 2 | // test script for ord command |
|---|
| 3 | // |
|---|
| 4 | pagelength = 10000; |
|---|
| 5 | ring r1 = 32003,(x,y,z),wp(2,3,2); |
|---|
| 6 | r1; |
|---|
| 7 | poly s1=x2+y2+z2; |
|---|
| 8 | s1; |
|---|
| 9 | ord(s1); |
|---|
| 10 | "--------------------------------"; |
|---|
| 11 | ring r2=23,(x,y,z),ws(2,3,2); |
|---|
| 12 | r2; |
|---|
| 13 | poly s1=x2+y2+z2; |
|---|
| 14 | s1; |
|---|
| 15 | ord(s1); |
|---|
| 16 | "-------------------------------"; |
|---|
| 17 | ring r3=0,(x,y,z(1..18)),ws(4,2,3,4,5,2,3,1,5,3,2,2,2,3,3,3,4,5,3,1); |
|---|
| 18 | r3; |
|---|
| 19 | poly s2=x2+y2+z(1)^8+z(12)^18; |
|---|
| 20 | s2; |
|---|
| 21 | ord(s2); |
|---|
| 22 | "------------------------------"; |
|---|
| 23 | vector v=[x3,y2,z(15)^2,z(2)^2]; |
|---|
| 24 | v; |
|---|
| 25 | ord(v); |
|---|
| 26 | "--------------------------------"; |
|---|
| 27 | listvar(all); |
|---|
| 28 | kill r1,r2,r3; |
|---|
| 29 | LIB "tst.lib";tst_status(1);$; |
|---|
