Home
last modified time | relevance | path

Searched refs:InvMat (Results 1 – 4 of 4) sorted by relevance

/dports/science/getdp/getdp-3.4.0-source/Kernel/
H A DGet_Geometry.cpp1359 InvMat->c11 = InvMat->c22 = InvMat->c33 = 1.; in Get_InverseMatrix()
1360 InvMat->c12 = InvMat->c21 = 0.; in Get_InverseMatrix()
1361 InvMat->c13 = InvMat->c31 = 0.; in Get_InverseMatrix()
1362 InvMat->c23 = InvMat->c32 = 0.; in Get_InverseMatrix()
1366 InvMat->c11 = 1. / Mat->c11; in Get_InverseMatrix()
1367 InvMat->c22 = 1. / Mat->c22; in Get_InverseMatrix()
1368 InvMat->c33 = 1. / Mat->c33; in Get_InverseMatrix()
1369 InvMat->c12 = InvMat->c21 = 0.; in Get_InverseMatrix()
1370 InvMat->c13 = InvMat->c31 = 0.; in Get_InverseMatrix()
1371 InvMat->c23 = InvMat->c32 = 0.; in Get_InverseMatrix()
[all …]
H A DGet_Geometry.h76 MATRIX3x3 * Mat, MATRIX3x3 * InvMat) ;
/dports/math/palp/palp-2.20/
H A DVertex.c749 Long InvMat[POLY_Dmax][POLY_Dmax]){ in Compute_InvMat()
822 Compute_InvMat(n, _E, OrdFac, BasFac, &Den, InvMat); in Complete_Poly()
848 for(i=0;i<n;i++) yDen[i]+=InvMat[i][k]; in Complete_Poly()
975 yDen[i] += InvMat[i][n-1] * lmin; in lastline()
978 for (i=0;i<n;i++) yDen[i]+=InvMat[i][n-1];} in lastline()
980 yDen[i] -= InvMat[i][n-1] * (lmax+1); in lastline()
984 y[i] = yDen[i] + InvMat[i][n-1] * lmin; in lastline()
992 y[i] = yDen[i] + InvMat[i][n-1] * lmax; in lastline()
1056 yDen[i]-=(_E->e[BasFac[k]].c+1)*InvMat[i][k]; in QComplete_Poly()
1057 yDen[i]-=_E->e[BasFac[n-1]].c*InvMat[i][n-1];} in QComplete_Poly()
[all …]
H A DE_Poly.c62 Long MaxDist[EQUA_Nmax], InvMat[POLY_Dmax][POLY_Dmax], Den=1; in DYNComplete_Poly() local
118 InvMat[one[i]][j]=(Den/PInvMat[i][j].D)*PInvMat[i][j].N; in DYNComplete_Poly()
123 for(k=0;k<n;k++) s+=((long long) (InvMat[k][i]))* in DYNComplete_Poly()
146 for(i=0;i<n;i++) yDen[i]-=_E->e[BasFac[k]].c*InvMat[i][k]; } in DYNComplete_Poly()
148 for(i=0;i<n;i++) yDen[i]-=(_E->e[BasFac[k]].c+1)*InvMat[i][n-1]; in DYNComplete_Poly()
151 for(i=0;i<n;i++) yDen[i]+=InvMat[i][k]; in DYNComplete_Poly()
156 for (i=0;i<n;i++) yDen[i]-=MaxDist[BasFac[k]]*InvMat[i][k]; }} in DYNComplete_Poly()