Changeset daa83b in git

Timestamp:

Apr 28, 2005, 11:22:18 AM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

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

Children:

dc5e5b829c2f1ecd243a875dc0a0eac5c37f1d01

Parents:

8647dd78e27cd22cb1d534128af44420765ce382

Message:

*hannes/lossen: new ring.lib


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

Location:

Singular/LIB

Files:

• algebra.lib (modified) (3 diffs)
• deform.lib (modified) (3 diffs)
• elim.lib (modified) (2 diffs)
• groups.lib (modified) (2 diffs)
• linalg.lib (modified) (4 diffs)
• matrix.lib (modified) (2 diffs)
• mondromy.lib (modified) (2 diffs)
• mprimdec.lib (modified) (6 diffs)
• presolve.lib (modified) (2 diffs)

Singular/LIB/algebra.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: algebra.lib,v 1.9 2001-01-16 13:48:21 Singular Exp $";
+version="$Id: algebra.lib,v 1.10 2005-04-28 09:22:14 Singular Exp $";
 category="Commutative Algebra";
 info="
@@ -779 +779 @@
    //a procedure from ring.lib changing the order to dp creating a new
    //basering @R in order to compute the dimension d of i
-   changeord("@R","dp");
+   def @R=changeord("dp");
+   setring @R;
    ideal i = imap(r,i);
    list j = mstd(i);
@@ -793 +794 @@
    //Now change the order to (dp(n-d),lp) creating a new basering @S
     string s ="dp("+string(n-d)+"),lp";
-   changeord("@S",s);
+   def @S=changeord(s);
+   setring @S;
    ideal m;
 

Singular/LIB/deform.lib

@@ -1 @@
-// $Id: deform.lib,v 1.32 2005-04-26 09:00:38 Singular Exp $
+// $Id: deform.lib,v 1.33 2005-04-28 09:22:14 Singular Exp $
 // author: Bernd Martin email: martin@math.tu-cottbus.de
 //(bm, last modified 4/98)
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: deform.lib,v 1.32 2005-04-26 09:00:38 Singular Exp $";
+version="$Id: deform.lib,v 1.33 2005-04-28 09:22:14 Singular Exp $";
 category="Singularities";
 info="
@@ -884 +884 @@
   string ord_str = "wp("+string(w_vec)+")";
   def br = basering;
- changeord("nr",ord_str);
+  def nr=changeord(ord_str);
+  setring nr;
   matrix A    = imap(br,A);
   intmat degA[@r][@c];
@@ -949 +950 @@
    def br = basering;
    string o_str = "wp("+string(d_vec)+")";
- changeord("nr",o_str);
+   def nr=changeord(o_str);
+   setring nr;
    module A = fetch(br,A);
    intvec dv;

Singular/LIB/elim.lib

@@ -1 @@
-// $Id: elim.lib,v 1.16 2004-06-21 10:13:48 Singular Exp $
+// $Id: elim.lib,v 1.17 2005-04-28 09:22:15 Singular Exp $
 // (GMG, last modified 22.06.96)
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: elim.lib,v 1.16 2004-06-21 10:13:48 Singular Exp $";
+version="$Id: elim.lib,v 1.17 2005-04-28 09:22:15 Singular Exp $";
 category="Commutative Algebra";
 info="
@@ -73 +73 @@
    export basering;
    export `#[1]+"_"`;
-   //keepring basering;
    setring br;
 //------------------- some comments about usage and names  --------------------

Singular/LIB/groups.lib

@@ -1 @@
-// $Id: groups.lib,v 1.1 2001-11-05 16:04:11 pfister Exp $
+// $Id: groups.lib,v 1.2 2005-04-28 09:22:15 Singular Exp $
 //(GP, last modified 26.10.01)
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: groups.lib,v 1.1 2001-11-05 16:04:11 pfister Exp $";
+version="$Id: groups.lib,v 1.2 2005-04-28 09:22:15 Singular Exp $";
 category="Applications";
 info="
@@ -689 +689 @@
    def R=basering;
    if(deg(I[1])==0){return(I);}
-   changeord("RR","dp");
+   def RR=changeord("dp");
+   setring RR;
    ideal I=imap(R,I);
    ideal K=timeStd(I,5);

Singular/LIB/linalg.lib

@@ -1 +1 @@
 //GMG last modified: 04/25/2000
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: linalg.lib,v 1.36 2004-06-28 14:14:03 Singular Exp $";
+version="$Id: linalg.lib,v 1.37 2005-04-28 09:22:15 Singular Exp $";
 category="Linear Algebra";
 info="
@@ -49 +49 @@
   int n=ncols(A);
   def BR=basering;
-  changeord("@R","dp,c",BR);
+  def @R=changeord("dp,c",BR);
+  setring @R;
   matrix A=fetch(BR,A);
   for(i=1;i<=n;i=i+1){
@@ -157 +158 @@
    {
      u=1;
-     changeord("@R","C,dp",R);
+     def @R=changeord("C,dp",R);
+     setring @R;
      module M = fetch(R,M);
      execute("minpoly="+mp+";");
@@ -571 +573 @@
   s=s+")";
 
-  changeord("@R",s);
+  def @R=changeord(s);
+  setring @R;
   execute("minpoly="+mp+";");
   matrix A = imap(BR,A);

Singular/LIB/matrix.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: matrix.lib,v 1.27 2005-01-11 16:17:50 Singular Exp $";
+version="$Id: matrix.lib,v 1.28 2005-04-28 09:22:16 Singular Exp $";
 category="Linear Algebra";
 info="
@@ -538 +538 @@
    if( ordstr(R) != ("C,dp("+string(nvars(R))+")") )
    {
-     changeord("@R","C,dp",R); u=1;
+     def @R=changeord("C,dp",R); setring @R; u=1;
      execute("minpoly="+mp+";");
      matrix A = imap(R,A);

Singular/LIB/mondromy.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: mondromy.lib,v 1.24 2005-03-10 16:58:54 Singular Exp $";
+version="$Id: mondromy.lib,v 1.25 2005-04-28 09:22:17 Singular Exp $";
 category="Singularities";
 info="
@@ -226 +226 @@
     {
       def br=basering;
-      changeord("pr","dp");
+      def pr=changeord("dp"); setring pr;
       matrix U=fetch(br,U);
       poly detU=fetch(br,detU);

Singular/LIB/mprimdec.lib

@@ -1 @@
-// $Id: mprimdec.lib,v 1.4 2001-08-27 14:47:54 Singular Exp $
+// $Id: mprimdec.lib,v 1.5 2005-04-28 09:22:17 Singular Exp $
 ///////////////////////////////////////////////////////////////////////////////
 // mprimdec.lib
@@ -10 +10 @@
 //
 // $Log: not supported by cvs2svn $
+// Revision 1.4  2001/08/27 14:47:54  Singular
+// *hannes: merge-2-0-2
+//
 // Revision 1.3  2001/07/10 11:49:19  dreyer
 // + changed commands factor to factorize(...,2), idealsEqual to modulesEqual
@@ -17 +20 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: mprimdec.lib,v 1.4 2001-08-27 14:47:54 Singular Exp $";
+version="$Id: mprimdec.lib,v 1.5 2005-04-28 09:22:17 Singular Exp $";
 category="Commutative Algebra";
 
@@ -488 +491 @@
   ////////////////////////////////////////////////////////////////
   def BAS = basering;
-  changeord("@R","lp");
+  def @R=changeord("lp");
+  setring @R;
   module @N=fetch(BAS,@N);
   int nVar=nvars(@R);
@@ -1195 +1199 @@
 {
   def BAS=basering;
-  changeord("@R","C,lp");
+  def @R=changeord("C,lp");
+  setring @R;
   module @N=std(imap(BAS,@N));
   ideal ann; module check, @M; int @k;
@@ -1756 +1761 @@
   ////////////////////////////////////////////////////////////////
   def BAS = basering;
-  changeord("@R","C,lp");
+  def @R=changeord("C,lp");
+  setring @R;
   module @N=std(imap(BAS,@N));
   module @M=imap(BAS,@M);

Singular/LIB/presolve.lib

@@ -1 +1 @@
 //last change: 13.02.2001 (Eric Westenberger)
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: presolve.lib,v 1.19 2001-11-05 16:06:29 pfister Exp $";
+version="$Id: presolve.lib,v 1.20 2005-04-28 09:22:18 Singular Exp $";
 category="Symbolic-numerical solving";
 info="
@@ -437 +437 @@
       newvar=string(sort(maxideal(1),v)[1]);
 //------------ create new ring with "best" ordering of variables --------------
-      changevar("r0",newvar);
+      def r0=changevar(newvar);
+      setring r0;
       list L = imap(r1,L);
       kill r1;