Go to the source code of this file.
◆ mac_poly
◆ mac_destroy()
◆ mac_length()
◆ mac_mult_cons()
◆ mac_p_add_ff_qq()
Definition at line 16 of file tgbgauss.cc.
17{
22 {
24 {
25 (*set_this)=a;
28 }
29 else
30 {
32 {
39 }
40 else
41 {
42
48 {
54 }
55 else
56 {
59 (*set_this)=a;
62 }
63 }
64 }
65 }
67 {
70 }
72 {
75 }
76
77
79 {
83 (*set_this)=mp;
86 }
89}
◆ simple_gauss()
Definition at line 125 of file tgbgauss.cc.
126{
127 int col, row;
129 col=0;
130 row=0;
132 int pn=
mat->get_rows();
136
137
139
141 {
143 {
147 }
148
149 }
152 {
154
155 }
158 {
162 {
167 }
168 }
170 {
172 }
174 {
175
176
177
178
179
180
181
183 {
188 else
190 }
193
196
201 {
202 int first;
206 if(first<col)
207 {
208 col=first;
211 }
212 else
213 {
214 if(first==col)
216 }
217 }
218
221 {
223 {
226#ifndef SING_NDEBUG
229#endif
230
233 {
236 }
237
238 }
239 }
244
246 {
247 row++;
248 continue;
249 }
250
251
252 mat->row_content(row);
253
254
255
257 {
262#ifndef SING_NDEBUG
265#endif
267 {
268
273
275
278 mat->add_lambda_times_row(
i,row,
n1);
285 {
291 {
300 }
305 }
306 else
307 {
315 {
324 }
325 }
326 }
327 else
329 }
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345#ifdef TGB_DEBUG
346 {
349 {
350 int act=
mat->min_col_not_zero_in_row(
i);
352 }
354 {
356 }
357 }
358#endif
359 row++;
360 }
363}
int ksCheckCoeff(number *a, number *b, const coeffs r)
static int index(p_Length length, p_Ord ord)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
static const int bundle_size
◆ simple_gauss2()
Definition at line 365 of file tgbgauss.cc.
366{
367 int col, row;
368 col=0;
369 row=0;
371 int pn=
mat->get_rows();
373
374
375
376
377
378
379
380
381
382
384
385
386
387
388
389
390
393
394
397 {
398
399
400 if(!(
mat->is_zero_entry(
i,col)))
401 {
403 break;
404 }
405 }
407 {
408
411 {
414 if((!(
mat->is_zero_entry(
i,col)))
416 {
419 }
420
421 }
423
424
425 for(
i=row+1;
i<
pn;
i++){
427 if(!(
mat->is_zero_entry(
i,col)))
428 {
434
438 mat->add_lambda_times_row(
i,row,
n1);
440 }
442 }
443 row++;
444 }
445 col++;
446
447
448
449
450
451
452
453
454
455 }
456}