Changeset bee06d in git

Timestamp:

Nov 5, 2010, 10:40:57 AM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'ad2543eab51733612ba7d118afc77edca719600e')

Children:

12fb7ba5e9d3b525506757823fc7acf0c8c0fc50

Parents:

4974dc46f550991e69a76c3b05d7f9d5fb80506b

Message:

fix tr.280

git-svn-id: file:///usr/local/Singular/svn/trunk@13597 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/realrad.lib (modified) (1 diff)

Singular/LIB/realrad.lib

@@ -547 +547 @@
    ///////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////////////////////
-   perm="varlist="+varstr(r)+";";
-   execute(perm);
-   varlist=delete(varlist,n);
-   for (@z=1;@z<n;@z++)
-   {
-     lessvar=lessvar+","+string(varlist[@z]);
-   }
-   lessvar=lessvar[2..size(lessvar)];
+   ideal II = maxideal(1);
+   varlist = II[1..n-1];
+   lessvar=string(varlist);
+
    parvar=string(var(n));
    ri="ring r_neu="+charstr(r)+",(@t,"+parvar+","+lessvar+"),dp;";