source: git/Tst/Wester/E.tst @ 33ec11

spielwiese
Last change on this file since 33ec11 was 2e49a5, checked in by Olaf Bachmann <obachman@…>, 23 years ago
* initial commit git-svn-id: file:///usr/local/Singular/svn/trunk@5001 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 314 bytes
Line 
1LIB "tst.lib"; tst_init();
2
3ring R = (0, y, t), x, lp;
4number s;
5proc abs (int n)
6{
7   if (n >= 0)
8      {
9      return(n);
10      }
11   else
12      {
13      return(-n);
14      }
15}
16
17tst_InitTimer();
18
19for (int i = 1; i<= 10; i++)
20{
21  s = s+t^i/(y + abs(5-i)*t)^i;
22}
23
24tst_ReportTimer("E");
25
26s;
27
28kill R;
29
30tst_status(1); $
Note: See TracBrowser for help on using the repository browser.