Lines Matching refs:k
175 double Pyr_eB(double xi[3], int sign[3], int k, int m, int along) in Pyr_eB() argument
180 k--; m--; along--; in Pyr_eB()
184 psi =0.125*(xi[2]*xi[2]-1)*(1+sign[k]*(2*xi[k]*tmp0))*(1+sign[m]*(2*xi[m]*tmp0)); in Pyr_eB()
187 double tmp1 =2*xi[k]*tmp0; in Pyr_eB()
193 double dPeBdxi(double xi[3], int sign[3], int k, int m, int along, int byWhich) in dPeBdxi() argument
200 k--; m--; along--; in dPeBdxi()
202 if (byWhich==k) in dPeBdxi()
203 dPsidxi =-0.25*(1+xi[2])*sign[k]*(1+sign[m]*(2*xi[m]*tmp0)); in dPeBdxi()
205 dPsidxi =-0.25*(1+xi[2])*sign[m]*(1+sign[k]*(2*xi[k]*tmp0)); in dPeBdxi()
207 dPsidxi =0.25*(xi[2]*(1+sign[k]*2*xi[k]*tmp0)*(1+sign[m]*2*xi[m]*tmp0)- in dPeBdxi()
208 (1+xi[2])*tmp0*(sign[k]*xi[k]*(1+sign[m]*2*xi[m]*tmp0)+ in dPeBdxi()
209 sign[m]*xi[m]*(1+sign[k]*2*xi[k]*tmp0))); in dPeBdxi()
211 double tmp1 =2*xi[k]*tmp0; in dPeBdxi()
212 if (byWhich==k) in dPeBdxi()
224 double Pyr_fB (double xi[3], int sign[3], int k, int m, int faceType) in Pyr_fB() argument
237 k--; m--; in Pyr_fB()
240 psi =0.125*(1+sign[k]*2*xi[k]*tmp0)*(1-tmp1*tmp1)*(1-xi[1]*xi[1]); in Pyr_fB()
245 double dPfBdxi(double xi[3], int sign[3], int k, int m, int faceType, int byWhich) in dPfBdxi() argument
267 k--; m--; byWhich--; in dPfBdxi()
268 if (byWhich==k) { in dPfBdxi()
270 dPsidxi =0.25*sign[k]*(1-tmp1*tmp1)*(1+xi[1]); in dPfBdxi()
273 dPsidxi =-(1+sign[k]*2*xi[k]*tmp0)*(xi[m]*tmp0)*(1+xi[1]); in dPfBdxi()
275 double tmp1 =xi[k]*tmp0; in dPfBdxi()
277 dPsidxi =(1+xi[1])*(0.25*sign[k]*tmp1*(1-4*tmp2*tmp2)- in dPfBdxi()
278 (1+2*sign[k]*tmp1)*tmp2*tmp2)- in dPfBdxi()
279 0.25*(1+2*sign[k]*tmp1)*(1-4*tmp2*tmp2)*xi[1]; in dPfBdxi()
995 int k, m, along, j; in PyrShapeAndDrv() local
1001 k =1; m =2; sign[m-1] =-1; along =k; in PyrShapeAndDrv()
1004 k =2; m =1; sign[m-1] =1; along =k; in PyrShapeAndDrv()
1007 k =1; m =2; sign[m-1] =1; along =k; in PyrShapeAndDrv()
1010 k =2; m =1; sign[m-1] =-1; along =k; in PyrShapeAndDrv()
1014 k =1; m =2; sign[k-1] =-1; sign[m-1] =-1; along =3; in PyrShapeAndDrv()
1017 k =2; m =1; sign[k-1] =-1; sign[m-1] =1; along =3; in PyrShapeAndDrv()
1020 k =1; m =2; sign[k-1] =1; sign[m-1] =1; along =3; in PyrShapeAndDrv()
1023 k =2; m =1; sign[k-1] =1; sign[m-1] =-1; along =3; in PyrShapeAndDrv()
1025 EdgeBlend =Pyr_eB (par, sign, k, m, along); in PyrShapeAndDrv()
1027 EdgeBlendDrv[j] =dPeBdxi(par, sign, k, m, along, j); in PyrShapeAndDrv()
1040 EdgeEntity[1] =par[k-1]; in PyrShapeAndDrv()
1042 EdgeEntityDrv[1][j] =(int)(k-1==j); in PyrShapeAndDrv()
1069 int k, m, j; in PyrShapeAndDrv() local
1072 k =1; m =3; sign[k-1] =-1; in PyrShapeAndDrv()
1075 k =3; m =1; sign[k-1] =-1; in PyrShapeAndDrv()
1078 k =1; m =3; sign[k-1] =1; in PyrShapeAndDrv()
1081 k =3; m =1; sign[k-1] =1; in PyrShapeAndDrv()
1084 FaceBlend =Pyr_fB (par, sign, k, m, 3); in PyrShapeAndDrv()
1086 FaceBlendDrv[j] =dPfBdxi(par, sign, k, m, 3, j); in PyrShapeAndDrv()