`prim', `cont'
--------------

prim(POLY[,V])
     :: POLY の原始的部分 (primitive part).

cont(POLY[,V])
     :: POLY の容量 (content).

RETURN POLY
     有理数係数多項式

V
     不定元

   * POLY の主変数 (引数 V がある場合には V) に関する原始的部分,
     容量を求める.

     [0] E=(y-z)*(x+y)*(x-z)*(2*x-y);
     (2*y-2*z)*x^3+(y^2-3*z*y+2*z^2)*x^2+(-y^3+z^2*y)*x+z*y^3-z^2*y^2
     [1] prim(E);
     2*x^3+(y-2*z)*x^2+(-y^2-z*y)*x+z*y^2
     [2] cont(E);
     y-z
     [3] prim(E,z);
     (y-z)*x-z*y+z^2

参照
     *Note `var': var, *Note `ord': ord.

