Changeset 75cc14 in git
- Timestamp:
- Nov 27, 2007, 3:40:11 PM (16 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 7ea9a580aa9a8b278488d17131c78ec09b3b1104
- Parents:
- 29561233f31504ddf5cfdf2aa2c242bb0baa79a7
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/dmod.lib
r2956123 r75cc14 1 1 ////////////////////////////////////////////////////////////////////////////// 2 version="$Id: dmod.lib,v 1.2 2 2007-11-27 11:08:51 SingularExp $";2 version="$Id: dmod.lib,v 1.23 2007-11-27 14:40:11 levandov Exp $"; 3 3 category="Noncommutative"; 4 4 info=" … … 41 41 42 42 annfs(F[,S,eng]); compute Ann F^s0 in D and Bernstein poly for a poly F 43 annfspecial(I, F, m, n); compute Ann F^n from Ann F^s for a poly F and a number n 43 44 Sannfs(F[,S,eng]); compute Ann F^s in D[s] for a poly F 44 45 Sannfslog(F[,eng]); compute Ann^(1) F^s in D[s] for a poly F … … 3745 3746 3746 3747 proc annfspecial(ideal I, poly F, int mir, number n) 3747 "USAGE: annfspecial(I,F,mir, s0); I an ideal, F a poly, int mir, number s03748 "USAGE: annfspecial(I,F,mir,n); I an ideal, F a poly, int mir, number n 3748 3749 RETURN: ideal 3749 PURPOSE: compute the annihilator ideal of f^s0 in the Weyl Algebra for a rational number s03750 PURPOSE: compute the annihilator ideal of F^n in the Weyl Algebra for a rational number n 3750 3751 ASSUME: the basering contains 's' as a variable 3751 3752 NOTE: We assume that the basering is D[s], 3752 3753 @* ideal I is the Ann F^s in D[s] (obtained with e.g. SannfsBM, SannfsLOT, SannfsOT) 3753 3754 @* integer 'mir' is the minimal integer root of the Bernstein polynomial of F 3754 @* and the number s0is rational.3755 @* We compute the real annihilator for any value of s0(both generic and exceptional).3755 @* and the number n is rational. 3756 @* We compute the real annihilator for any rational value of n (both generic and exceptional). 3756 3757 @* The implementation goes along the lines of Saito-Sturmfels-Takayama, Alg. 5.3.15 3757 3758 @* If printlevel=1, progress debug messages will be printed,
Note: See TracChangeset
for help on using the changeset viewer.