Changeset ca4d0e6 in git


Ignore:
Timestamp:
Jun 4, 2009, 2:43:27 PM (14 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
Children:
01e88747d8875ada5e3d5eee6e8ef8a6a5509822
Parents:
9ef9d0d220d87135a478b95bfa0dbbf60c314b51
Message:
*hannes: code cleanup


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

Legend:

Unmodified
Added
Removed
  • Singular/janet.cc

    r9ef9d0 rca4d0e6  
    4444  LCI it=T->root;
    4545
    46   Print("T==================================\n");
     46  PrintS("T==================================\n");
    4747  while (it)
    4848  {
     
    5353  it=Q->root;
    5454
    55   Print("Q==================================\n");
     55  PrintS("Q==================================\n");
    5656  while (it)
    5757  {
     
    6464    it=it->next;
    6565  }
    66   Print("===================================\n");
     66  PrintS("===================================\n");
    6767}
    6868
     
    241241  while(f && p->root)
    242242  {
    243 //    Print("R");
     243//    PrintS("R");
    244244//    if (TEST_OPT_PROT) { PrintS("R"); mflush(); }
    245245#if 0
     
    264264        kBucketInit(p->root_b,p->root,p->root_l);
    265265        count=0;
    266         //Print(".");
     266        //PrintS(".");
    267267      }
    268268#endif
     
    651651    while (*l)
    652652    {
    653 //      Print("*");
     653//      PrintS("*");
    654654      int ploc=pow_((*l)->info->lead);
    655655
     
    665665
    666666        (*l)->info->changed=0;
    667 //        Print("!");
     667//        PrintS("!");
    668668        NFL((*l)->info,G);
    669 //                                Print("$");
     669//                                PrintS("$");
    670670        if (!(*l)->info->root)
    671671        {
     
    681681    }
    682682  }while(p1);
    683 //  Print("\n");
     683//  PrintLn();
    684684}
    685685
     
    997997  while((h=FindMinList(Q))!=NULL)
    998998  {
    999 //        Print("New element\n");
     999//        PrintS("New element\n");
    10001000//  Debug();
    10011001
     
    10291029          if (h->changed && ListGreatMove(T,Q,h->root))
    10301030          {
    1031 //      Print("<-\n");
     1031//      PrintS("<-\n");
    10321032            DestroyTree(G->root);
    10331033            G->root=create();
     
    10361036        }
    10371037
    1038 //  Print("PNF\n");
     1038//  PrintS("PNF\n");
    10391039        PNF(h,G);
    10401040//        Print("{%d}\n",pow_(h->root));
     
    10421042        InsertInList(T,h);
    10431043
    1044 //  Print("For each PNF\n");
     1044//  PrintS("For each PNF\n");
    10451045        if (degree_compatible)
    10461046            ForEachPNF(T,pow_(h->root));
    10471047
    1048 //  Print("Control of prolongations\n");
     1048//  PrintS("Control of prolongations\n");
    10491049        if (h->changed)
    10501050            ForEachControlProlong(T);
     
    10541054//  Debug();
    10551055
    1056 //  Print("NFListQ\n");
     1056//  PrintS("NFListQ\n");
    10571057        if (degree_compatible)
    10581058            NFListQ();
  • kernel/ratgring.cc

    r9ef9d0 rca4d0e6  
    77 *  Author:  levandov (Viktor Levandovsky)
    88 *  Created: 8/00 - 11/00
    9  *  Version: $Id: ratgring.cc,v 1.24 2009-03-10 15:47:18 levandov Exp $
     9 *  Version: $Id: ratgring.cc,v 1.25 2009-06-04 12:43:27 Singular Exp $
    1010 *******************************************************************/
    1111#include "mod2.h"
     
    162162    {
    163163#ifdef PDEBUG
    164       Print("negative ExpVectorDiff\n");
     164      PrintS("negative ExpVectorDiff\n");
    165165#endif   
    166166      p_Delete(&t,r);
     
    185185  h->m[1] = p_Copy(q,r);
    186186#ifdef PDEBUG
    187   Print("running syzygy comp. for nc_GCD:\n");
     187  PrintS("running syzygy comp. for nc_GCD:\n");
    188188#endif
    189189  ideal sh = idSyzygies(h, testHomog, &w);
    190190#ifdef PDEBUG
    191   Print("done syzygy comp. for nc_GCD\n");
     191  PrintS("done syzygy comp. for nc_GCD\n");
    192192#endif
    193193  /* in comm case, there is only 1 syzygy */
     
    200200//  K2 = K;
    201201
    202   Print("syz1: "); p_wrp(K1,r);
    203   Print("syz2: "); p_wrp(K2,r);
     202  PrintS("syz1: "); p_wrp(K1,r);
     203  PrintS("syz2: "); p_wrp(K2,r);
    204204
    205205  /* checking signs before multiplying */   
  • kernel/ring.cc

    r9ef9d0 rca4d0e6  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.119 2009-06-04 08:42:07 Singular Exp $ */
     4/* $Id: ring.cc,v 1.120 2009-06-04 12:43:27 Singular Exp $ */
    55
    66/*
     
    368368      {
    369369        nlen = strlen(r->names[i]);
    370         Print("%s ",r->names[i]);
     370        PrintS(r->names[i]);
    371371      }
    372372    }
     
    437437      Print("\n//   alternating variables: [%d, %d]", scaFirstAltVar(r), scaLastAltVar(r));
    438438      const ideal Q = SCAQuotient(r); // resides within r!
    439       Print("\n//   quotient of sca by ideal");
     439      PrintS("\n//   quotient of sca by ideal");
    440440
    441441      if (Q!=NULL)
     
    36413641      || (r->typ[j].ord_typ==ro_wp_neg))
    36423642      {
    3643         Print(" w:");
     3643        PrintS(" w:");
    36443644        int l;
    36453645        for(l=r->typ[j].data.wp.start;l<=r->typ[j].data.wp.end;l++)
     
    36483648      else if (r->typ[j].ord_typ==ro_wp64)
    36493649      {
    3650         Print(" w64:");
     3650        PrintS(" w64:");
    36513651        int l;
    36523652        for(l=r->typ[j].data.wp64.start;l<=r->typ[j].data.wp64.end;l++)
  • kernel/ringgb.cc

    r9ef9d0 rca4d0e6  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ringgb.cc,v 1.17 2009-05-06 12:53:49 Singular Exp $ */
     4/* $Id: ringgb.cc,v 1.18 2009-06-04 12:39:32 Singular Exp $ */
    55/*
    66* ABSTRACT: ringgb interface
     
    125125  poly g = pCopy(f);
    126126  int c = 0;
    127   while (g != NULL) {
     127  while (g != NULL)
     128  {
    128129    Print("%d-step RedNF - g=", c);
    129130    wrp(g);
     
    228229  int i = 0;
    229230  int j = 0;
    230   Print("I included?");
     231  PrintS("I included?");
    231232  for (i = 0; i < IDELEMS(I); i++) {
    232233    if (ringNF(I->m[i], GI, currRing) != NULL) {
    233       Print("Not reduced to zero from I: ");
     234      PrintS("Not reduced to zero from I: ");
    234235      wrp(I->m[i]);
    235       Print(" --> ");
     236      PrintS(" --> ");
    236237      wrp(ringNF(I->m[i], GI, currRing));
    237238      PrintLn();
    238239      return(0);
    239240    }
    240     Print("-");
    241   }
    242   Print(" Yes!\nspoly --> 0?");
    243   for (i = 0; i < IDELEMS(GI); i++) {
    244     for (j = i + 1; j < IDELEMS(GI); j++) {
     241    PrintS("-");
     242  }
     243  PrintS(" Yes!\nspoly --> 0?");
     244  for (i = 0; i < IDELEMS(GI); i++)
     245  {
     246    for (j = i + 1; j < IDELEMS(GI); j++)
     247    {
    245248      f = pCopy(GI->m[i]);
    246249      g = pCopy(GI->m[j]);
    247250      h = plain_spoly(f, g);
    248251      nf = ringNF(h, GI, currRing);
    249       if (nf != NULL) {
    250         Print("spoly(");
     252      if (nf != NULL)
     253      {
     254        PrintS("spoly(");
    251255        wrp(GI->m[i]);
    252         Print(", ");
     256        PrintS(", ");
    253257        wrp(GI->m[j]);
    254         Print(") = ");
     258        PrintS(") = ");
    255259        wrp(h);
    256         Print(" --> ");
     260        PrintS(" --> ");
    257261        wrp(nf);
    258262        PrintLn();
     
    263267      pDelete(&h);
    264268      pDelete(&nf);
    265       Print("-");
     269      PrintS("-");
    266270    }
    267271  }
    268272  if (!(rField_is_Domain()))
    269273  {
    270     Print(" Yes!\nzero-spoly --> 0?");
     274    PrintS(" Yes!\nzero-spoly --> 0?");
    271275    for (i = 0; i < IDELEMS(GI); i++)
    272276    {
     
    274278      nf = ringNF(f, GI, currRing);
    275279      if (nf != NULL) {
    276         Print("spoly(");
     280        PrintS("spoly(");
    277281        wrp(GI->m[i]);
    278         Print(", ");
     282        PrintS(", ");
    279283        wrp(0);
    280         Print(") = ");
     284        PrintS(") = ");
    281285        wrp(h);
    282         Print(" --> ");
     286        PrintS(" --> ");
    283287        wrp(nf);
    284288        PrintLn();
     
    287291      pDelete(&f);
    288292      pDelete(&nf);
    289       Print("-");
    290     }
    291   }
    292   Print(" Yes!");
     293      PrintS("-");
     294    }
     295  }
     296  PrintS(" Yes!");
    293297  PrintLn();
    294298  return(1);
Note: See TracChangeset for help on using the changeset viewer.