18{
21 {
22 ideal h1=(ideal)args->
CopyD();
24 ideal s_h1;
25 ideal s_h3;
26 ring orig_ring;
27 ring syz_ring;
29
35
36 if (orig_ring != syz_ring)
37 {
39 }
40 else
41 {
42 s_h1 = h1;
43 }
44
46
47 if (orig_ring != syz_ring)
48 {
54 }
55 else
56 {
58 }
59 res->data=(
void *)s_h3;
62 }
63 else
65}
#define idDelete(H)
delete an ideal
BOOLEAN iiCheckTypes(leftv args, const short *type_list, int report)
check a list of arguemys against a given field of types return TRUE if the types match return FALSE (...
ideal kStd2(ideal F, ideal Q, tHomog h, intvec **w, bigintmat *hilb, int syzComp, int newIdeal, intvec *vw, s_poly_proc_t sp)
generic interface to GB/SB computations, large hilbert vectors
void rChangeCurrRing(ring r)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
ideal idrMoveR_NoSort(ideal &id, ring src_r, ring dest_r)
ideal idrCopyR_NoSort(ideal id, ring src_r, ring dest_r)
ring rAssure_SyzComp(const ring r, BOOLEAN complete)
void rSetSyzComp(int k, const ring r)
void idSkipZeroes(ideal ide)
gives an ideal/module the minimal possible size