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
|
/*======================================================================
AFPDWR(r,A,V,N)
Algebraic number field polynomial distributive write.
\Input
\parm{r} is a non-negative $\beta$--integer.
\parm{A} is an element of~$Q(\alpha)[x_1,\ldots,x_r]$,
written out to the output stream.
\parm{V} is a list of at least $r$ distinct variables.
First $r$ variables in $V$ are used.
\parm{N} is the variable name for $\alpha$.
======================================================================*/
#include "qepcad.h"
void AFPDWR(Word r, Word A, Word V, Word N)
{
Word Ap,Vp,rp;
/* hide rp; */
Step1: /* Convert the representation. */
rp = r + 1;
Ap = AFPICR(r,A);
Vp = CONC(LIST1(N),V);
Step2: /* Write it out. */
RPDWRITE(rp,Ap,Vp);
Return: /* Prepare for return. */
return;
}
|
