Changeset 73054bb in git for Singular/LIB/finvar.lib


Ignore:
Timestamp:
Oct 26, 2005, 4:11:34 PM (18 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '91e5db82acc17434e4062bcfa44e6efa7d41fd30')
Children:
9c678964f8d20f787f7cf6e524367dbafee976d7
Parents:
a9681886efc9ad4039f412e23673d166e83cb64f
Message:
*Hannes: std-updates


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

Legend:

Unmodified
Added
Removed

  • Singular/LIB/finvar.lib

    ra96818 r73054bb  
    11// last change: 98/11/05
    22///////////////////////////////////////////////////////////////////////////////
    3 version="$Id: finvar.lib,v 1.37 2005-10-18 12:45:34 Singular Exp $"
     3version="$Id: finvar.lib,v 1.38 2005-10-26 14:11:34 Singular Exp $"
    44category="Invariant theory";
    55info="
    … …  
    19491949      }
    19501950      // degBound=dB;
    1951       TEST=std(sP+ideal(test_poly));   // should soon be replaced by next line
    1952       // TEST=std(sP,test_poly,h);        // Hilbert driven std-calculation
     1951      //TEST=std(sP+ideal(test_poly));   // should soon be replaced by next line
     1952      TEST=std(sP,test_poly);            // or, better:
     1953      //TEST=std(sP,test_poly,h);        // Hilbert driven std-calculation
    19531954      test_dim=dim(TEST);
    19541955      // degBound=0;
    … …  
    20272028        }
    20282029        // degBound=dB;
    2029         TEST=std(sP+ideal(test_poly)); // should soon to be replaced by next
     2030        //TEST=std(sP+ideal(test_poly)); // should soon to be replaced by next
    20302031                                       // line
     2032        TEST=std(sP,test_poly);        // or, better:
    20312033        // TEST=std(sP,test_poly,h);      // Hilbert driven std-calculation
    20322034        test_dim=dim(TEST);
    … …  
    25292531    }
    25302532    else
    2531     { int v=#[1];
    2532     }
     2533    { int v=#[1]; }
    25332534  }
    25342535  else
    … …  
    25492550  }
    25502551  if (v && voice==2)
    2551   { "";
    2552   }
     2552  { ""; }
    25532553 //-------------------- initializing variables --------------------------------
    25542554  int dB;
    … …  
    43384338            }
    43394339            if (int(dimmat[i,1])<>counter)
    4340             { TEST=std(TEST+ideal(NF(pp,TEST))); // should be replaced by next
     4340            { // TEST=std(TEST+ideal(NF(pp,TEST))); // should be replaced by next
    43414341                                                 // line soon
    4342             // TEST=std(TEST,NF(pp,TEST));
     4342              TEST=std(TEST,NF(pp,TEST));
    43434343            }
    43444344            else
    … …  
    43984398              }
    43994399              if (int(dimmat[i,1])<>counter)
    4400               { TEST=std(TEST+ideal(NF(B[j],TEST))); // should be replaced by
     4400              { //TEST=std(TEST+ideal(NF(B[j],TEST))); // should be replaced by
    44014401                                                     // next line
    4402               // TEST=std(TEST,NF(B[j],TEST));
     4402                TEST=std(TEST,NF(B[j],TEST));
    44034403              }
    44044404            }
    … …  
    45584558            }
    45594559            if (deg_dim_vec[i]<>counter)
    4560             { TEST=std(TEST+ideal(NF(pp,TEST))); // should be soon replaced by
     4560            { //TEST=std(TEST+ideal(NF(pp,TEST))); // should be soon replaced by
    45614561                                                 // next line
    4562             // TEST=std(TEST,NF(pp,TEST));
     4562              TEST=std(TEST,NF(pp,TEST));
    45634563            }
    45644564            else
    … …  
    46184618              }
    46194619              if (deg_dim_vec[i]<>counter)
    4620               { TEST=std(TEST+ideal(NF(B[j],TEST))); // should be soon replaced
     4620              { //TEST=std(TEST+ideal(NF(B[j],TEST))); // should be soon replaced
    46214621                                                     // by next line
    4622               // TEST=std(TEST,NF(B[j],TEST));
     4622                TEST=std(TEST,NF(B[j],TEST));
    46234623              }
    46244624            }
    … …  
    47744774          else
    47754775          { if (j<>ncols(B))
    4776             { TEST=std(TEST+ideal(NF(B[j],TEST))); // should soon be replaced by
     4776            { //TEST=std(TEST+ideal(NF(B[j],TEST))); // should soon be replaced by
    47774777                                                   // next line
    4778             // TEST=std(TEST,NF(B[j],TEST));
     4778              TEST=std(TEST,NF(B[j],TEST));
    47794779            }
    47804780          }
    … …  
    47844784    else
    47854785    { if (size(deg_vec)==k)
    4786       { k=1;
    4787       }
     4786      { k=1; }
    47884787      else
    4789       { k++;
    4790       }
     4788      { k++; }
    47914789    }
    47924790  }
    47934791  if (v)
    4794   { "";
    4795   }
     4792  { ""; }
    47964793  if (v)
    4797   { "  We're done!";
    4798     "";
    4799   }
     4794  { "  We're done!"; ""; }
    48004795  return(matrix(S));
    48014796}
    … …  
    49354930            }
    49364931            if (counter<>max)
    4937             { TEST=std(TEST+ideal(NF(pp,TEST))); // should soon be replaced by
     4932            { //TEST=std(TEST+ideal(NF(pp,TEST))); // should soon be replaced by
    49384933                                                 // next line
    4939             // TEST=std(TEST,NF(pp,TEST));
     4934              TEST=std(TEST,NF(pp,TEST));
    49404935            }
    49414936            else
    … …  
    49694964            else
    49704965            { if (j<>ncols(B))
    4971               { TEST=std(TEST+ideal(NF(B[j],TEST))); // should soon be replaced
     4966              { //TEST=std(TEST+ideal(NF(B[j],TEST))); // should soon be replaced
    49724967                                                     // by next line
    4973               // TEST=std(TEST,NF(B[j],TEST));
     4968                TEST=std(TEST,NF(B[j],TEST));
    49744969              }
    49754970            }
Note: See TracChangeset for help on using the changeset viewer.