spielwiese
Last change
on this file since c2da0a was
b35b93,
checked in by Olaf Bachmann <obachman@…>, 26 years ago
|
This commit was generated by cvs2svn to compensate for changes in r1396,
which included commits to RCS files with non-trunk default branches.
git-svn-id: file:///usr/local/Singular/svn/trunk@1397 2c84dea3-7e68-4137-9b89-c4e89433aadc
|
-
Property mode set to
100644
|
File size:
898 bytes
|
Line | |
---|
1 | // |
---|
2 | // test script for diff command |
---|
3 | // |
---|
4 | pagelength = 10000; |
---|
5 | ring r1 = 32003,(x,y,z),(c,dp); |
---|
6 | r1; |
---|
7 | poly s1=3x2y4-5xyz3; |
---|
8 | s1; |
---|
9 | "=============================="; |
---|
10 | diff(s1,x); |
---|
11 | diff(s1,y); |
---|
12 | diff(s1,z); |
---|
13 | "------------------------------"; |
---|
14 | poly s2=5/3x4y2z6+1/5x2zy3-6xzy12; |
---|
15 | s2; |
---|
16 | "=============================="; |
---|
17 | diff(s2,x); |
---|
18 | diff(s2,y); |
---|
19 | diff(s2,z); |
---|
20 | "--------------------------------"; |
---|
21 | vector v1=[s1,x2+z4]; |
---|
22 | v1; |
---|
23 | "================================="; |
---|
24 | diff(v1,x); |
---|
25 | diff(v1,y); |
---|
26 | diff(v1,z); |
---|
27 | "--------------------------------"; |
---|
28 | vector v2=[s2,x2z2,s1,y2z]; |
---|
29 | v2; |
---|
30 | "=================================="; |
---|
31 | diff(v2,x); |
---|
32 | diff(v2,y); |
---|
33 | diff(v2,z); |
---|
34 | "---------------------------------"; |
---|
35 | module m1=v1,v2; |
---|
36 | diff(m1,z); |
---|
37 | "--------------------------------"; |
---|
38 | ideal i=s1,s2,s1+s2; |
---|
39 | diff(i,y); |
---|
40 | "------------------------------"; |
---|
41 | matrix m[2][2]=x2,x+y3,0,12; |
---|
42 | diff(m,x); |
---|
43 | diff(m,y); |
---|
44 | diff(m,z); |
---|
45 | "-----------------------------"; |
---|
46 | listvar(all); |
---|
47 | kill r1; |
---|
48 | $; |
---|
Note: See
TracBrowser
for help on using the repository browser.