Changeset 17070
- Timestamp:
- 01/08/14 13:14:20 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/Elements/PentaRef.cpp
r17065 r17070 1401 1401 basis[29]=-(32./3.)*gauss->coord1*gauss->coord2*(zeta-1.0)*zeta*(zeta+0.5)*(zeta+1.); 1402 1402 return; 1403 1403 case P1xP3Enum : 1404 1404 /*Corner nodes*/ 1405 1405 basis[ 0]=-(9.)/(16.)*gauss->coord1*(zeta-1)*(zeta-1./3.)*(zeta+1./3.); … … 1834 1834 dbasis[NUMNODESP2*2+14] = 2.*gauss->coord1*gauss->coord2*(2.*zeta+1.); 1835 1835 return; 1836 1837 1836 case P2xP4Enum : 1838 1837 /*Nodal function 1*/ … … 1956 1955 dbasis[NUMNODESP2xP4*1+29] = -(32./3.)*(- (SQRT3/6.)*gauss->coord2- (SQRT3/6.)*gauss->coord1 ) *(zeta - 1.)*(zeta)*(zeta+0.5)*(zeta +1. ) ; 1957 1956 dbasis[NUMNODESP2xP4*2+29] = -(32./3.)* gauss->coord1*gauss->coord2 *((2.*zeta -1. )*(zeta+0.5)*(zeta +1) + zeta*(zeta -1.)*( 2.*zeta + (3./2.))); 1958 return; return;1957 return; 1959 1958 case P1xP3Enum : 1960 1959 /*Nodal function 1*/
Note:
See TracChangeset
for help on using the changeset viewer.