Changeset daa83b in git


Ignore:
Timestamp:
Apr 28, 2005, 11:22:18 AM (19 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '45e267b9942dec9429fe249ce3e5e44ab80a6a3a')
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:
9 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/algebra.lib

    r8647dd rdaa83b  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="$Id: algebra.lib,v 1.9 2001-01-16 13:48:21 Singular Exp $";
     2version="$Id: algebra.lib,v 1.10 2005-04-28 09:22:14 Singular Exp $";
    33category="Commutative Algebra";
    44info="
     
    779779   //a procedure from ring.lib changing the order to dp creating a new
    780780   //basering @R in order to compute the dimension d of i
    781    changeord("@R","dp");
     781   def @R=changeord("dp");
     782   setring @R;
    782783   ideal i = imap(r,i);
    783784   list j = mstd(i);
     
    793794   //Now change the order to (dp(n-d),lp) creating a new basering @S
    794795    string s ="dp("+string(n-d)+"),lp";
    795    changeord("@S",s);
     796   def @S=changeord(s);
     797   setring @S;
    796798   ideal m;
    797799
  • Singular/LIB/deform.lib

    r8647dd rdaa83b  
    1 // $Id: deform.lib,v 1.32 2005-04-26 09:00:38 Singular Exp $
     1// $Id: deform.lib,v 1.33 2005-04-28 09:22:14 Singular Exp $
    22// author: Bernd Martin email: martin@math.tu-cottbus.de
    33//(bm, last modified 4/98)
    44///////////////////////////////////////////////////////////////////////////////
    5 version="$Id: deform.lib,v 1.32 2005-04-26 09:00:38 Singular Exp $";
     5version="$Id: deform.lib,v 1.33 2005-04-28 09:22:14 Singular Exp $";
    66category="Singularities";
    77info="
     
    884884  string ord_str = "wp("+string(w_vec)+")";
    885885  def br = basering;
    886  changeord("nr",ord_str);
     886  def nr=changeord(ord_str);
     887  setring nr;
    887888  matrix A    = imap(br,A);
    888889  intmat degA[@r][@c];
     
    949950   def br = basering;
    950951   string o_str = "wp("+string(d_vec)+")";
    951  changeord("nr",o_str);
     952   def nr=changeord(o_str);
     953   setring nr;
    952954   module A = fetch(br,A);
    953955   intvec dv;
  • Singular/LIB/elim.lib

    r8647dd rdaa83b  
    1 // $Id: elim.lib,v 1.16 2004-06-21 10:13:48 Singular Exp $
     1// $Id: elim.lib,v 1.17 2005-04-28 09:22:15 Singular Exp $
    22// (GMG, last modified 22.06.96)
    33///////////////////////////////////////////////////////////////////////////////
    4 version="$Id: elim.lib,v 1.16 2004-06-21 10:13:48 Singular Exp $";
     4version="$Id: elim.lib,v 1.17 2005-04-28 09:22:15 Singular Exp $";
    55category="Commutative Algebra";
    66info="
     
    7373   export basering;
    7474   export `#[1]+"_"`;
    75    //keepring basering;
    7675   setring br;
    7776//------------------- some comments about usage and names  --------------------
  • Singular/LIB/groups.lib

    r8647dd rdaa83b  
    1 // $Id: groups.lib,v 1.1 2001-11-05 16:04:11 pfister Exp $
     1// $Id: groups.lib,v 1.2 2005-04-28 09:22:15 Singular Exp $
    22//(GP, last modified 26.10.01)
    33///////////////////////////////////////////////////////////////////////////////
    4 version="$Id: groups.lib,v 1.1 2001-11-05 16:04:11 pfister Exp $";
     4version="$Id: groups.lib,v 1.2 2005-04-28 09:22:15 Singular Exp $";
    55category="Applications";
    66info="
     
    689689   def R=basering;
    690690   if(deg(I[1])==0){return(I);}
    691    changeord("RR","dp");
     691   def RR=changeord("dp");
     692   setring RR;
    692693   ideal I=imap(R,I);
    693694   ideal K=timeStd(I,5);
  • Singular/LIB/linalg.lib

    r8647dd rdaa83b  
    11//GMG last modified: 04/25/2000
    22//////////////////////////////////////////////////////////////////////////////
    3 version="$Id: linalg.lib,v 1.36 2004-06-28 14:14:03 Singular Exp $";
     3version="$Id: linalg.lib,v 1.37 2005-04-28 09:22:15 Singular Exp $";
    44category="Linear Algebra";
    55info="
     
    4949  int n=ncols(A);
    5050  def BR=basering;
    51   changeord("@R","dp,c",BR);
     51  def @R=changeord("dp,c",BR);
     52  setring @R;
    5253  matrix A=fetch(BR,A);
    5354  for(i=1;i<=n;i=i+1){
     
    157158   {
    158159     u=1;
    159      changeord("@R","C,dp",R);
     160     def @R=changeord("C,dp",R);
     161     setring @R;
    160162     module M = fetch(R,M);
    161163     execute("minpoly="+mp+";");
     
    571573  s=s+")";
    572574
    573   changeord("@R",s);
     575  def @R=changeord(s);
     576  setring @R;
    574577  execute("minpoly="+mp+";");
    575578  matrix A = imap(BR,A);
  • Singular/LIB/matrix.lib

    r8647dd rdaa83b  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="$Id: matrix.lib,v 1.27 2005-01-11 16:17:50 Singular Exp $";
     2version="$Id: matrix.lib,v 1.28 2005-04-28 09:22:16 Singular Exp $";
    33category="Linear Algebra";
    44info="
     
    538538   if( ordstr(R) != ("C,dp("+string(nvars(R))+")") )
    539539   {
    540      changeord("@R","C,dp",R); u=1;
     540     def @R=changeord("C,dp",R); setring @R; u=1;
    541541     execute("minpoly="+mp+";");
    542542     matrix A = imap(R,A);
  • Singular/LIB/mondromy.lib

    r8647dd rdaa83b  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="$Id: mondromy.lib,v 1.24 2005-03-10 16:58:54 Singular Exp $";
     2version="$Id: mondromy.lib,v 1.25 2005-04-28 09:22:17 Singular Exp $";
    33category="Singularities";
    44info="
     
    226226    {
    227227      def br=basering;
    228       changeord("pr","dp");
     228      def pr=changeord("dp"); setring pr;
    229229      matrix U=fetch(br,U);
    230230      poly detU=fetch(br,detU);
  • Singular/LIB/mprimdec.lib

    r8647dd rdaa83b  
    1 // $Id: mprimdec.lib,v 1.4 2001-08-27 14:47:54 Singular Exp $
     1// $Id: mprimdec.lib,v 1.5 2005-04-28 09:22:17 Singular Exp $
    22///////////////////////////////////////////////////////////////////////////////
    33// mprimdec.lib
     
    1010//
    1111// $Log: not supported by cvs2svn $
     12// Revision 1.4  2001/08/27 14:47:54  Singular
     13// *hannes: merge-2-0-2
     14//
    1215// Revision 1.3  2001/07/10 11:49:19  dreyer
    1316// + changed commands factor to factorize(...,2), idealsEqual to modulesEqual
     
    1720///////////////////////////////////////////////////////////////////////////////
    1821
    19 version="$Id: mprimdec.lib,v 1.4 2001-08-27 14:47:54 Singular Exp $";
     22version="$Id: mprimdec.lib,v 1.5 2005-04-28 09:22:17 Singular Exp $";
    2023category="Commutative Algebra";
    2124
     
    488491  ////////////////////////////////////////////////////////////////
    489492  def BAS = basering;
    490   changeord("@R","lp");
     493  def @R=changeord("lp");
     494  setring @R;
    491495  module @N=fetch(BAS,@N);
    492496  int nVar=nvars(@R);
     
    11951199{
    11961200  def BAS=basering;
    1197   changeord("@R","C,lp");
     1201  def @R=changeord("C,lp");
     1202  setring @R;
    11981203  module @N=std(imap(BAS,@N));
    11991204  ideal ann; module check, @M; int @k;
     
    17561761  ////////////////////////////////////////////////////////////////
    17571762  def BAS = basering;
    1758   changeord("@R","C,lp");
     1763  def @R=changeord("C,lp");
     1764  setring @R;
    17591765  module @N=std(imap(BAS,@N));
    17601766  module @M=imap(BAS,@M);
  • Singular/LIB/presolve.lib

    r8647dd rdaa83b  
    11//last change: 13.02.2001 (Eric Westenberger)
    22///////////////////////////////////////////////////////////////////////////////
    3 version="$Id: presolve.lib,v 1.19 2001-11-05 16:06:29 pfister Exp $";
     3version="$Id: presolve.lib,v 1.20 2005-04-28 09:22:18 Singular Exp $";
    44category="Symbolic-numerical solving";
    55info="
     
    437437      newvar=string(sort(maxideal(1),v)[1]);
    438438//------------ create new ring with "best" ordering of variables --------------
    439       changevar("r0",newvar);
     439      def r0=changevar(newvar);
     440      setring r0;
    440441      list L = imap(r1,L);
    441442      kill r1;
Note: See TracChangeset for help on using the changeset viewer.