Changeset bee06d in git for Singular/LIB/realrad.lib


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/realrad.lib

    r4974dc rbee06d  
    547547   ///////////////////////////////////////////////////////////////////////////
    548548   ///////////////////////////////////////////////////////////////////////////
    549    perm="varlist="+varstr(r)+";";
    550    execute(perm);
    551    varlist=delete(varlist,n);
    552    for (@z=1;@z<n;@z++)
    553    {
    554      lessvar=lessvar+","+string(varlist[@z]);
    555    }
    556    lessvar=lessvar[2..size(lessvar)];
     549   ideal II = maxideal(1);
     550   varlist = II[1..n-1];
     551   lessvar=string(varlist);
     552
    557553   parvar=string(var(n));
    558554   ri="ring r_neu="+charstr(r)+",(@t,"+parvar+","+lessvar+"),dp;";
Note: See TracChangeset for help on using the changeset viewer.