[35aab3] | 1 | // emacs edit mode for this file is -*- C++ -*- |
---|
| 2 | /**************************************** |
---|
| 3 | * Computer Algebra System SINGULAR * |
---|
| 4 | ****************************************/ |
---|
[341696] | 5 | // $Id$ |
---|
[35aab3] | 6 | /* |
---|
| 7 | * ABSTRACT: interface between Singular and factory |
---|
| 8 | */ |
---|
| 9 | |
---|
| 10 | |
---|
| 11 | #ifndef INCL_FACTORYSING_H |
---|
| 12 | #define INCL_FACTORYSING_H |
---|
| 13 | |
---|
[599326] | 14 | #include <kernel/structs.h> |
---|
| 15 | #include <kernel/polys.h> |
---|
| 16 | #include <kernel/ideals.h> |
---|
| 17 | #include <kernel/intvec.h> |
---|
| 18 | #include <kernel/matpol.h> |
---|
[661c214] | 19 | #include <kernel/longtrans.h> |
---|
[35aab3] | 20 | |
---|
| 21 | poly singclap_gcd ( poly f, poly g ); |
---|
[91d0e6] | 22 | poly singclap_gcd_r ( poly f, poly g, const ring r ); |
---|
[35aab3] | 23 | napoly singclap_alglcm ( napoly f, napoly g ); |
---|
| 24 | void singclap_algdividecontent ( napoly f, napoly g, napoly &ff, napoly &gg ); |
---|
| 25 | |
---|
| 26 | poly singclap_resultant ( poly f, poly g , poly x); |
---|
| 27 | |
---|
| 28 | BOOLEAN singclap_extgcd ( poly f, poly g, poly &res, poly &pa, poly &pb ); |
---|
[6620d75] | 29 | BOOLEAN singclap_extgcd_r ( poly f, poly g, poly &res, poly &pa, poly &pb, const ring r ); |
---|
[35aab3] | 30 | |
---|
| 31 | poly singclap_pdivide ( poly f, poly g ); |
---|
[d1f231] | 32 | poly singclap_pdivide_r ( poly f, poly g, const ring r ); |
---|
[35aab3] | 33 | |
---|
| 34 | void singclap_divide_content ( poly f ); |
---|
| 35 | |
---|
| 36 | ideal singclap_factorize ( poly f, intvec ** v , int with_exps); |
---|
| 37 | |
---|
[0dd641] | 38 | ideal singclap_sqrfree ( poly f ); |
---|
| 39 | |
---|
[35aab3] | 40 | matrix singclap_irrCharSeries ( ideal I); |
---|
| 41 | |
---|
[2072126] | 42 | #ifdef HAVE_NTL |
---|
[af8863] | 43 | matrix singntl_HNF(matrix A); |
---|
| 44 | intvec* singntl_HNF(intvec* A); |
---|
[9c0b20a] | 45 | matrix singntl_LLL(matrix A); |
---|
| 46 | intvec* singntl_LLL(intvec* A); |
---|
[2072126] | 47 | #endif |
---|
[af8863] | 48 | |
---|
[35aab3] | 49 | BOOLEAN singclap_isSqrFree(poly f); |
---|
| 50 | |
---|
| 51 | char* singclap_neworder ( ideal I); |
---|
| 52 | |
---|
| 53 | poly singclap_det( const matrix m ); |
---|
| 54 | int singclap_det_i( intvec * m ); |
---|
| 55 | |
---|
| 56 | BOOLEAN jjRESULTANT(leftv res, leftv u, leftv v, leftv w); |
---|
| 57 | BOOLEAN jjCHARSERIES(leftv res, leftv u); |
---|
| 58 | #if 0 |
---|
| 59 | BOOLEAN jjIS_SQR_FREE(leftv res, leftv u); |
---|
| 60 | #endif |
---|
| 61 | |
---|
| 62 | #endif /* INCL_FACTORYSING_H */ |
---|
| 63 | |
---|