Searched refs:PInvMat (Results 1 – 2 of 2) sorted by relevance
| /dports/math/palp/palp-2.20/ |
| H A D | E_Poly.c | 67 PInvMat[POLY_Dmax][POLY_Dmax]; in DYNComplete_Poly() local
89 for (i=0;i<n;i++) for (j=0;j<n;j++) PInvMat[i][j]=LrI(0); in DYNComplete_Poly()
90 for (i=0;i<n;i++) PInvMat[i][i]=LrI(1); in DYNComplete_Poly()
100 y[k]=LrD(y[k],LrP(f,PInvMat[j][k])); } } in DYNComplete_Poly()
106 PInvMat[rank][k]=LrQ(y[k],x[one[rank]]); } in DYNComplete_Poly()
111 PInvMat[j][k]=LrD(PInvMat[j][k],LrP(PInvMat[rank][k],f)); } } in DYNComplete_Poly()
116 Den=(Den/LFgcd(Den,PInvMat[i][j].D))*PInvMat[i][j].D; in DYNComplete_Poly()
118 InvMat[one[i]][j]=(Den/PInvMat[i][j].D)*PInvMat[i][j].N; in DYNComplete_Poly()
|
| H A D | Vertex.c | 753 PInvMat[POLY_Dmax][POLY_Dmax]; in Compute_InvMat() local
756 for (i=0;i<n;i++) for (j=0;j<n;j++) PInvMat[i][j]=LrI(0); in Compute_InvMat()
757 for (i=0;i<n;i++) PInvMat[i][i]=LrI(1); in Compute_InvMat()
767 y[k]=LrD(y[k],LrP(f,PInvMat[j][k])); } } in Compute_InvMat()
773 PInvMat[rank][k]=LrQ(y[k],x[one[rank]]); } in Compute_InvMat()
778 PInvMat[j][k]=LrD(PInvMat[j][k],LrP(PInvMat[rank][k],f)); } } in Compute_InvMat()
783 *Den=(*Den/LFgcd(*Den,PInvMat[i][j].D))*PInvMat[i][j].D; in Compute_InvMat()
785 InvMat[one[i]][j]=(*Den/PInvMat[i][j].D)*PInvMat[i][j].N; in Compute_InvMat()
|