Changeset 70597c in git


Ignore:
Timestamp:
Apr 29, 2005, 10:55:50 AM (18 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
Children:
06e7dcdf5fd3a0ce08ced31a9146bb37269a674d
Parents:
a021637720f2c66a9c52f1f5c1baf054d9f347a7
Message:
*hannes; RingVarProduct for qhmoduli.lib


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

Legend:

Unmodified
Added
Removed

  • Singular/LIB/qhmoduli.lib

    ra02163 r70597c  
    1717 Max(data)                maximal integer contained in 'data'
    1818 Min(data)                minimal integer contained in  'data'
    19  Table(cmd, i, lb, ub)    list, i-th entry is cmd(i), lb <= i <= ub
    2019";
    2120
    … …  
    717716///////////////////////////////////////////////////////////////////////////////
    718717
    719 proc MonosAndTerms(poly f, wt, int ub)
     718static proc MonosAndTerms(poly f, wt, int ub)
    720719"USAGE:   MonosAndTerms(f, w, ub); poly f, intvec w, int ub
    721720PURPOSE: returns a list of all monomials and terms occuring in f of
    … …  
    753752///////////////////////////////////////////////////////////////////////////////
    754753
    755 proc SelectMonos(parts, intvec wt, int d)
     754static proc SelectMonos(parts, intvec wt, int d)
    756755"USAGE:   SelectMonos(parts, w, d); list/ideal parts, intvec w, int d
    757756PURPOSE: returns a list of all monomials and terms occuring in f of
    … …  
    788787///////////////////////////////////////////////////////////////////////////////
    789788
    790 proc Expand(substitution, degVec, ideal reduceI, intvec w1, int ub, list truncated)
     789static proc Expand(substitution, degVec, ideal reduceI, intvec w1, int ub, list truncated)
    791790"USAGE:   Expand(substitution, degVec, reduceI, w, ub, truncated);
    792791         ideal/list substitution, list/intvec degVec, ideal reduceI, intvec w,
    … …  
    830829///////////////////////////////////////////////////////////////////////////////
    831830
    832 proc PolyProduct(poly g1, poly h1, ideal reduceI, intvec wt, int ub)
     831static proc PolyProduct(poly g1, poly h1, ideal reduceI, intvec wt, int ub)
    833832"USAGE:   PolyProduct(g, h, reduceI, wt, ub); poly g, h; ideal reduceI,
    834833          intvec wt, int ub.
    … …  
    878877///////////////////////////////////////////////////////////////////////////////
    879878
    880 proc PolyPower1(int varIndex, poly f, int e, ideal reduceI, intvec wt, int truncated, int ub)
     879static proc PolyPower1(int varIndex, poly f, int e, ideal reduceI, intvec wt,
     880                       int truncated, int ub)
    881881"USAGE:   PolyPower1(i, f, e, reduceI, wt, truncated, ub);int i, e, ub;poly f;
    882882         ideal reduceI; intvec wt; list truncated;
    … …  
    937937///////////////////////////////////////////////////////////////////////////////
    938938
    939 proc Num(int i)
    940 // Type : void
    941 // Purpose : set basering R, poly f and weight w to ...
    942 {
    943   string p = "poly f = " + example_poly[i];
    944   //string str = "wt = " + example_weight[ex_nr5 + i - 1] + ";";
    945   string r = "ring R = 0, (" + example_vars[i] + "), ls;";
    946   //execute(str);
    947   execute(r);
    948   execute(p);
    949   wt = weight(f);
    950   keepring R;
    951 }
    952 
    953 ///////////////////////////////////////////////////////////////////////////////
    954 
    955 proc RingVarsToList(list @index)
     939static proc RingVarsToList(list @index)
    956940{
    957941  int i;
    … …  
    963947
    964948///////////////////////////////////////////////////////////////////////////////
    965 
     949static
    966950proc APSubstitution(poly f, ideal substitution, ideal reduceIdeal, intvec wt, int ub, int nrs, int nrt)
    967951"USAGE:   APSubstitution(f, subs, reduceI, w, ub, int nrs, int nrt); poly f
    … …  
    11861170///////////////////////////////////////////////////////////////////////////////
    11871171
    1188 proc AllCombinations(list partition, list indices)
     1172static proc AllCombinations(list partition, list indices)
    11891173"USAGE:   AllCombinations(partition,indices); list partition, indices)
    11901174PURPOSE: all combinations for a given partititon
    … …  
    12211205///////////////////////////////////////////////////////////////////////////////
    12221206
    1223 proc AllSingleCombinations(int n, list index)
     1207static proc AllSingleCombinations(int n, list index)
    12241208"USAGE:   AllSingleCombinations(n index); int n, list index
    12251209PURPOSE: all combinations for var(n)
    … …  
    12601244///////////////////////////////////////////////////////////////////////////////
    12611245
    1262 proc AllCombinationsAux(list parts, list index)
     1246static proc AllCombinationsAux(list parts, list index)
    12631247"USAGE:  AllCombinationsAux(parts ,index); list parts, index
    12641248PURPOSE: all compbinations for nonlinear substituiton
    … …  
    12901274///////////////////////////////////////////////////////////////////////////////
    12911275
    1292 proc Partitions(int n, list nr)
     1276static proc Partitions(int n, list nr)
    12931277"USAGE:   Partitions(n, nr); int n, list nr
    12941278PURPOSE: partitions of n consisting of elements from nr
    … …  
    13291313///////////////////////////////////////////////////////////////////////////////
    13301314
    1331 proc NumFactor(int a, int b)
     1315static proc NumFactor(int a, int b)
    13321316" USAGE: NumFactor(a, b); int a, b
    13331317PURPOSE: if b divides a then return b/a, else return 0
    … …  
    13421326///////////////////////////////////////////////////////////////////////////////
    13431327
    1344 proc Table(string cmd, string iterator, int lb, int ub)
     1328static proc Table(string cmd, string iterator, int lb, int ub)
    13451329" USAGE: Table(cmd,i, lb, ub); string cmd, i; int lb, ub
    13461330PURPOSE: generate a list of size ub - lb + 1 s.t. _[i] = cmd(i)

  • Singular/LIB/rinvar.lib

    ra02163 r70597c  
    11// Last change 10.12.2000 (TB)
    22///////////////////////////////////////////////////////////////////////////////
    3 version="$Id: rinvar.lib,v 1.10 2005-04-25 12:37:46 Singular Exp $";
     3version="$Id: rinvar.lib,v 1.11 2005-04-29 08:55:50 Singular Exp $";
    44category="Invariant theory";
    55info="
    … …  
    11141114///////////////////////////////////////////////////////////////////////////////
    11151115
    1116 static proc RingVarProduct(index)
     1116proc RingVarProduct(index)
    11171117// list of indices
    11181118{
Note: See TracChangeset for help on using the changeset viewer.