1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
/*======================================================================
PRINTCOEFFSYSTEM(r,S)
Input
r : a BDigit
S : a system of polynomials
======================================================================*/
#include "qepcad.h"
static Word VarList;
void SETdummy(Word V) { VarList = V; }
void PRINTCOEFFSYS(BDigit r, Word S, Word Vp)
{
Word V, Sp, L;
SWRITE("\n");
if (S == 1) {
SWRITE("system is inconsistent\n\n");
goto Return; }
if (!Vp)
V = VarList;
else
V = Vp;
for(Sp = S; Sp != NIL; Sp = RED(Sp))
{
for(L = FIRST(Sp); L != NIL; L = RED(L))
{
IPDWRITE(r,FIRST(L),V);
SWRITE("\n");
}
SWRITE("\n");
}
Return: /* Prepare to return */
return;
}
|
