source: git/Tst/Wester/H.tst @ 2e49a5

spielwiese
Last change on this file since 2e49a5 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: 450 bytes
Line 
1LIB "tst.lib"; tst_init();
2
3proc hilbert (int n)
4{
5   matrix a[n][n];
6   int j;
7   for (int i = 1; i <= n; i++)
8      {
9      for (j = 1; j <= n; j++)
10         {
11         a[i, j] = 1/(number(i) + number(j) - 1);
12         }
13      }
14   return(a);
15}
16
17int n = 70;
18
19ring R = 0, x, lp;
20matrix hn[n][n];
21hn = hilbert(n);
22module mn = module(hn);
23
24tst_InitTimer();
25
26poly dh70 = det(mn);
27
28tst_ReportTimer("H");
29
30dh70;
31
32kill R, n, hilbert;
33
34tst_status(1); $
35
36
37
Note: See TracBrowser for help on using the repository browser.