Changeset 649af0 in git for Singular/LIB/ring.lib


Ignore:
Timestamp:
Oct 14, 1998, 12:16:27 PM (26 years ago)
Author:
Kai Krüger <krueger@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
bba1c4693965775b38677bdcdf5a0e505b367031
Parents:
538364d25bafbb1d4fe63579997555b4c1993e90
Message:
Added system(with,Namespaces) before kill to check which rings to kill


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

Legend:

Unmodified
Added
Removed

  • Singular/LIB/ring.lib

    r538364 r649af0  
    1 // $Id: ring.lib,v 1.6 1998-05-05 11:55:37 krueger Exp $
     1// $Id: ring.lib,v 1.7 1998-10-14 10:15:38 krueger Exp $
    22//(GMG, last modified 03.11.95)
    33///////////////////////////////////////////////////////////////////////////////
    44
    5 version="$Id: ring.lib,v 1.6 1998-05-05 11:55:37 krueger Exp $";
     5version="$Id: ring.lib,v 1.7 1998-10-14 10:15:38 krueger Exp $";
    66info="
    77LIBRARY:  ring.lib      PROCEDURES FOR MANIPULATING RINGS AND MAPS
    … …  
    6868   changechar("R1","32003",R); R1;
    6969   kill R,R1;
     70   if(system("with","Namespaces")) {
     71      kill Ring::R,Ring::R1;
     72   }
    7073}
    7174///////////////////////////////////////////////////////////////////////////////
    … …  
    115118   changeord("Q'","lp",Q); Q';
    116119   kill R,Q,Q';
     120   if(system("with","Namespaces")) {
     121      kill Ring::R,Ring::Q';
     122   }
    117123}
    118124///////////////////////////////////////////////////////////////////////////////
    … …  
    173179   changevar("Q'","a,b,c,d",Q); Q';
    174180   kill R,Q,Q';
     181   if(system("with","Namespaces")) {
     182      kill Ring::R,Ring::Q';
     183   }
    175184}
    176185///////////////////////////////////////////////////////////////////////////////
    … …  
    207216   defring("R","2,A",10,"x(","dp(3),ws(1,2,3),ds"); R;
    208217   kill r,R;
     218   if(system("with","Namespaces")) {
     219      kill Ring::r,Ring::R;
     220   }
    209221}
    210222///////////////////////////////////////////////////////////////////////////////
    … …  
    240252   defrings(30); S30;
    241253   kill S5, S30;
     254   if(system("with","Namespaces")) {
     255      kill Ring::S5,Ring::S30;
     256   }
    242257}
    243258///////////////////////////////////////////////////////////////////////////////
    … …  
    274289   defringp(30); P30;
    275290   kill P5, P30;
     291   if(system("with","Namespaces")) {
     292      kill Ring::P5,Ring::P30;
     293   }
    276294}
    277295///////////////////////////////////////////////////////////////////////////////
    … …  
    428446   show(R4);
    429447   kill r,R1,R2,R3,R4;
     448   if(system("with","Namespaces")) {
     449      kill Ring::R1,Ring::R2,Ring::R3,Ring::R4;
     450   }
    430451}
    431452///////////////////////////////////////////////////////////////////////////////
    … …  
    646667   ring t=0,x(1..5),(c,ls);
    647668   ringtensor("R",r,s,t);
    648    type R;"";
     669   if(system("with","Namespaces")) {
     670      type Ring::R;"";
     671   } else {
     672      type R;
     673   }
    649674   setring s;
    650675   ideal i = a2+b3+c5;
    … …  
    654679   qring qT=std(d2+e2-f3);       //create qring of T mod d2+e2-f3
    655680   ringtensor("Q",s,qS,t,qT);
    656    type Q;
     681   if(system("with","Namespaces")) {
     682      type Ring::Q;"";
     683   } else {
     684      type Q;
     685   }
    657686   kill R,Q,S,T;
    658 }
    659 ///////////////////////////////////////////////////////////////////////////////
     687   if(system("with","Namespaces")) {
     688      kill Ring::R,Ring::Q,Ring::S,Ring::T;
     689   }
     690}
     691///////////////////////////////////////////////////////////////////////////////
Note: See TracChangeset for help on using the changeset viewer.