19 PrintS(
"This is a Test\n");
35 PrintS(
"This is a Test 2\n");
45 for(
int i=1;
i<=3;
i++) {
120 PrintS("polynomial\n");
121 number * poly = new number[5];//(number *)omAlloc( (5) * sizeof( number ) );//new number[5];
122 //poly[0] = n_Init(6,coef);
123 //poly[1] = n_Init(0,coef);
124 //poly[2] = n_Init(5,coef);//positiv imagin??r, negatic reelle wurzeln
125 //poly[3] = n_Init(0,coef);
126 //poly[4] = n_Init(1,coef);
127 poly[0] = n_Init(-1,coef);
128 poly[1] = n_Init(0,coef);
129 poly[2] = n_Init(0,coef);
130 poly[3] = n_Init(3,coef);
131 poly[4] = n_Init(1,coef);
133 //coeffs rea = nInitChar(n_long_R,NULL);
134 //setGMPFloatDigits( prec, prec);
135 //number abc = n_Init(1,rea);
136 //abc = n_Div(abc,n_Init(3333,rea),rea);
139 bigintmat * gitter = NULL;PrintS("Call function\n");
140 gitter = minkowksi(elementarray,4,poly,4,coef,prec);
142 gitter->Print();PrintS("\n");
143 //cout << "CoeffType of gitter: " << getCoeffType(gitter->basecoeffs()) << '\n';
144 coeffs rea = gitter->basecoeffs();
145 number sqrt = squareroot(n_Init(100,rea),rea,prec);
bigintmat * enumerate_all(number a)
static FORCE_INLINE number n_Init(long i, const coeffs r)
a number representing i in the given coeff field/ring r
bigintmat * bimAdd(bigintmat *a, bigintmat *b)
Matrix-Add/-Sub/-Mult so oder mit operator+/-/* ? : NULL as a result means an error (non-compatible m...
void set(int i, int j, number n, const coeffs C=NULL)
replace an entry with a copy (delete old + copy new!). NOTE: starts at [1,1]
ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
Coefficient rings, fields and other domains suitable for Singular polynomials.
The main handler for Singular numbers which are suitable for Singular polynomials.
void PrintS(const char *s)
number temp_test2(number a)
static FORCE_INLINE n_coeffType getCoeffType(const coeffs r)
Returns the type of coeffs domain.
void Print()
IO: simply prints the matrix to the current output (screen?)
coeffs basecoeffs() const
bigintmat * temp_test(bigintmat &a)