source: git/Tst/Old/algnorm.tst @ ff8a6bf

fieker-DuValspielwiese
Last change on this file since ff8a6bf 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: 597 bytes
Line 
1ring r=(0,a),x,dp;
2poly p=1/a*x+1;
3cleardenom (p);
4p=2/(2a+1)*x+1/(2a+1);
5p;
6cleardenom (p);
7p=2/(2*a2/3+1)*x+(2/3)/(2a+1);
8p;
9cleardenom (p);
10ring R=(0,a,b),(x,y),dp;
11poly p=(a/(1/2*b+1))/((b+5)/(2*(a+b)))*x+1/2*y;
12p;
13cleardenom(p);
14ring r=(32003,a),x,dp;
15poly p=1/a*x+1;
16cleardenom (p);
17p=2/(2a+1)*x+1/(2a+1);
18p;
19cleardenom (p);
20p=2/(2*a2/3+1)*x+(2/3)/(2a+1);
21p;
22cleardenom (p);
23ring R=(32003,a,b),(x,y),dp;
24poly p=(a/(1/2*b+1))/((b+5)/(2*(a+b)))*x+1/2*y;
25p;
26cleardenom(p);
27ring r3=(7,a, b, c),(x,y,z),dp;
28number n;
29number n1 = 2*a^2*b*c -3*b*c + -1*a + 4;
30number n2 = n1 / (n1 - 5c)^2;
31n2;
32$
33$
Note: See TracBrowser for help on using the repository browser.