source:
git/Tst/Old/part.tst
@
1ebec3
Last change on this file since 1ebec3 was 37cd955, checked in by , 14 years ago | |
---|---|
|
|
File size: 906 bytes |
Line | |
---|---|
1 | // |
2 | // test script for diff command |
3 | // |
4 | ring r1 = 32003,(x,y,z),(c,dp); |
5 | r1; |
6 | poly s1=3x2y4-5xyz3; |
7 | s1; |
8 | "=============================="; |
9 | diff(s1,x); |
10 | diff(s1,y); |
11 | diff(s1,z); |
12 | "------------------------------"; |
13 | poly s2=5/3x4y2z6+1/5x2zy3-6xzy12; |
14 | s2; |
15 | "=============================="; |
16 | diff(s2,x); |
17 | diff(s2,y); |
18 | diff(s2,z); |
19 | "--------------------------------"; |
20 | vector v1=[s1,x2+z4]; |
21 | v1; |
22 | "================================="; |
23 | diff(v1,x); |
24 | diff(v1,y); |
25 | diff(v1,z); |
26 | "--------------------------------"; |
27 | vector v2=[s2,x2z2,s1,y2z]; |
28 | v2; |
29 | "=================================="; |
30 | diff(v2,x); |
31 | diff(v2,y); |
32 | diff(v2,z); |
33 | "---------------------------------"; |
34 | module m1=v1,v2; |
35 | diff(m1,z); |
36 | "--------------------------------"; |
37 | ideal i=s1,s2,s1+s2; |
38 | diff(i,y); |
39 | "------------------------------"; |
40 | matrix m[2][2]=x2,x+y3,0,12; |
41 | diff(m,x); |
42 | diff(m,y); |
43 | diff(m,z); |
44 | "-----------------------------"; |
45 | listvar(all); |
46 | kill r1; |
47 | LIB "tst.lib";tst_status(1);$; |
Note: See TracBrowser
for help on using the repository browser.