Changeset b8cf6c in git
- Timestamp:
- Feb 26, 2009, 3:07:04 PM (14 years ago)
- Branches:
- (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
- Children:
- d0207e95ed305d5305c318e2bf6c1acf7bb30320
- Parents:
- 982e0181ff465b667d7d64681f4247eabf628b8c
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/redcgs.lib
r982e01 rb8cf6c 1 1 ////////////////////////////////////////////////////////////////////////////// 2 version="$Id: redcgs.lib,v 1. 3 2008-10-09 09:31:58Singular Exp $";2 version="$Id: redcgs.lib,v 1.4 2009-02-26 14:07:04 Singular Exp $"; 3 3 category="General purpose"; 4 4 info=" 5 LIBRARY: redcgs.lib Reduced Comprehe sive Groebner Systems.5 LIBRARY: redcgs.lib Reduced Comprehensive Groebner Systems. 6 6 PURPOSE: Comprehensive Groebner Systems. Canonical Forms. 7 7 The library contains Monte's algorithms to compute disjoint, reduced … … 73 73 reached, and if so, to give a Warning. The warning does not invalidate the 74 74 output, but it only recognizes that the theoretical objective is not 75 completely reached by the actual c ampcting methods and that some segments75 completely reached by the actual computing methods and that some segments 76 76 that can be packed have not been packed with a single basis. 77 77 … … 130 130 of ideal J (non repeated). Integer factors are ignored, 131 131 even 0 is ignored. It can be called from ideal @R, but 132 the given ideal J must only contain po ynomials in the132 the given ideal J must only contain polynomials in the 133 133 parameters. 134 134 redspec(N,W); Given null and non-null conditions depending only on the … … 1914 1914 int i; ideal W12; poly ff1; poly g1=0; ideal GG; 1915 1915 int tt=1; 1916 // detect w eather f1 reduces to 0 on segment 21916 // detect whether f1 reduces to 0 on segment 2 1917 1917 ff1=pnormalform(f1,N2,W2); 1918 1918 if (ff1==0) 1919 1919 { 1920 // detect w eather N1 is included in N21920 // detect whether N1 is included in N2 1921 1921 def RR=basering; 1922 1922 setring @P; … … 1936 1936 if (tt==1) 1937 1937 { 1938 // detect w eather W1 intersect W2 is non-empty1938 // detect whether W1 intersect W2 is non-empty 1939 1939 for (i=1;i<=size(W1);i++) 1940 1940 {
Note: See TracChangeset
for help on using the changeset viewer.