24VAR int ptZmax = INITPT;
38 if ( ! initialized ) {
43 ptZ[0] =
CFArray(1); ptZ[0][0] = 1;
45 for (
i = 1;
i <= INITPT;
i++ ) {
49 for (
j = 1;
j <
i;
j++ )
50 (ptZ[
i])[
j] = (ptZ[
i-1])[
j-1] + (ptZ[
i-1])[
j];
53 for (
i = INITPT+1;
i <= MAXPT;
i++ ) {
73 for (
i = ptZmax+1;
i <= n;
i++ ) {
75 for (
j = 1;
j <
i;
j++ )
76 (ptZ[
i])[
j] = (ptZ[
i-1])[
j-1] + (ptZ[
i-1])[
j];
83 for (
k = n;
k >= 0;
k-- ) {
94 for (
i = MAXPT;
i < n;
i++ )
109 for (
i = ptFmax+1;
i <= n;
i++ ) {
111 for (
j = 1;
j <
i;
j++ )
112 (ptF[
i])[
j] = (ptF[
i-1])[
j-1] + (ptF[
i-1])[
j];
119 for (
k = n;
k >= 0;
k-- ) {
130 for (
i = MAXPT;
i < n;
i++ )
CanonicalForm binomialpower(const Variable &, const CanonicalForm &, int)
factory's class for variables