IFEM - ch24 Iso P Triangular
IFEM - ch24 Iso P Triangular
Implementation of
Iso-P Triangular
Elements
24–1
Chapter 24: IMPLEMENTATION OF ISO-P TRIANGULAR ELEMENTS 24–2
TABLE OF CONTENTS
Page
§24.1. Introduction 24–3
§24.2. Gauss Quadrature for Triangles 24–3
§24.2.1. Requirements for Gauss Rules . . . . . . . . . . . . . 24–3
§24.2.2. Superparametric Triangles . . . . . . . . . . . . . 24–4
§24.2.3. Arbitrary Iso-P Triangles . . . . . . . . . . . . . . 24–5
§24.2.4. Implementation . . . . . . . . . . . . . . . . . 24–6
§24.3. Partial Derivative Computation 24–6
§24.3.1. Triangle Coordinate Partials . . . . . . . . . . . . . 24–7
§24.3.2. Solving the Jacobian System . . . . . . . . . . . . . 24–8
§24.4. The Quadratic Triangle 24–9
§24.4.1. Shape Function Module . . . . . . . . . . . . . . . 24–9
§24.4.2. Stiffness Module . . . . . . . . . . . . . . . . . 24–11
§24.4.3. Test on Straight-Sided Triangle . . . . . . . . . . . . 24–12
§24.4.4. Test on Highly Distorted Triangle . . . . . . . . . . . 24–12
§24.5. *The Cubic Triangle 24–14
§24.5.1. *Shape Function Module . . . . . . . . . . . . . . 24–14
§24.5.2. *Stiffness Module . . . . . . . . . . . . . . . . 24–16
§24.5.3. *Test Element . . . . . . . . . . . . . . . . . . 24–17
§24. Notes and Bibliography
. . . . . . . . . . . . . . . . . . . . . . . 24–18
§24. References . . . . . . . . . . . . . . . . . . . . . . . 24–19
§24. Exercises . . . . . . . . . . . . . . . . . . . . . . . 24–20
§24. Solutions to Exercises
. . . . . . . . . . . . . . . . . . . . . . . 24–22
24–2
24–3 §24.2 GAUSS QUADRATURE FOR TRIANGLES
§24.1. Introduction
This Chapter continues with the computer implementation of two-dimensional finite elements. It covers
the programming of isoparametric triangular elements for the plane stress problem. Triangular elements
bring two sui generis implementation quirks with respect to quadrilateral elements:
(1) The numerical integration rules for triangles are not product of one-dimensional Gauss rules, as in
the case of quadrilaterals. They are instead specialized to the triangle geometry.
(2) The computation of x-y partial derivatives and the element-of-area scaling by the Jacobian de-
terminant must account for the fact that the triangular coordinates ζ1 , ζ2 and ζ3 do not form an
independent set.
We deal with these issues in the next two sections.
The numerical integration schemes for quadrilaterals introduced in §17.3 and implemented in §23.2
are built as “tensor products” of two one-dimensional Gauss formulas. On the other hand, Gauss rules
for triangles are not derivable from one-dimensional rules, and must be constructed especially for the
triangular geometry.
Gauss quadrature rules for triangles must possess triangular symmetry in the following sense:
This constraint guarantees that the result of the quadrature process will not depend on element node
numbering.1 If ζ1 , ζ2 , and ζ3 are different, (24.1) forces six equal-weight sample points to be present in
the rule, because 3! = 6. If two triangular coordinates are equal, the six points coalesce to three, and
(24.1) forces three equal-weight sample points to be present. Finally, if the three coordinates are equal
(which can only happen for the centroid ζ1 = ζ2 = ζ3 = 1/3), the six points coalesce to one.2
Additional requirements for a Gauss rule to be numerically acceptable are:
All sample points must be inside the triangle (or on the triangle boundary)
and all weights must be positive. (24.2)
This is called a positivity condition. It insures that the element internal energy evaluated by numerical
quadrature is nonnegative definite.
1 It would disconcerting to users, to say the least, to have the FEM solution depend on how nodes are numbered.
2 It follows that the number of sample points in triangle Gauss quadrature rules that satisfy (24.1) must be of the form 6i +3 j +k,
where i and j are nonnegative integers and k is 0 or 1. Consequently there are no rules with 2, 5 or 8 points.
24–3
Chapter 24: IMPLEMENTATION OF ISO-P TRIANGULAR ELEMENTS 24–4
0.33333 0.33333
0.33333
Figure 24.1. Location of sample points (dark circles) of five Gauss quadrature rules for
straight sided (superparametric) 6-node triangles. Weight written to 5 places near each
sample point; sample-point circle areas are proportional to weight.
A rule is said to be of degree n if it integrates exactly all polynomials in the triangular coordinates of
order n or less when the Jacobian determinant is constant, and there is at least one polynomial of order
n + 1 that is not exactly integrated by the rule.
Remark 24.1. The positivity requirement (24.2) is automatically satisfied in quadrilaterals by using Gauss product
rules, since the points are always inside while weights are positive. Consequently it was not necessary to call
attention to it. On the other hand, for triangles there are Gauss rules with as few as 4 points that violate positivity.
We first consider superparametric straight-sided triangles geometry defined by the three corner nodes.
Over such triangles the Jacobian determinant defined below is constant. The five simplest Gauss rules
that satisfy the requirements (24.1) and (24.2) have 1, 3, 3, 6 and 7 points, respectively. The two rules
with 3 points differ in the location of the sample points. The five rules are depicted in Figure 24.1 over
6-node straight-sided triangles; for such triangles to be superparametric the side nodes must be located
at the midpoint of the sides.
One point rule. The simplest Gauss rule for a triangle has one sample point located at the centroid. For
a straight sided triangle,
1
F(ζ1 , ζ2 , ζ3 ) d ≈ F( 13 , 13 , 13 ), (24.3)
A e
where A is the triangle area
1 1 1
A= d = 2 det x1
1
x2 x3 = 1
2
(x2 y3 − x3 y2 ) + (x3 y1 − x1 y3 ) + (x1 y2 − x2 y1 ) . (24.4)
e y1 y2 y3
This rule is illustrated in Figure 24.1(a). It has degree 1, meaning that it integrates exactly up to linear
polynomials in {ζ1 , ζ2 , ζ3 }. For example, F = 4 − ζ1 + 2ζ2 − ζ3 is exactly integrated by (24.3).
24–4
24–5 §24.2 GAUSS QUADRATURE FOR TRIANGLES
1.0000
0.33333
0.33333
0.33333
0.33333
0.10995 0.12594
(d) rule=6 (e) rule=7 0.13239
0.22338
Figure 24.2. Location of sample points (dark circles) of five Gauss quadrature rules
for curved sided 6-node triangles. Weight written to 5 places near each sample point;
sample-point circle areas are proportional to weight.
Three Point Rules. The next two rules in order of simplicity contain three sample points:
1
F(ζ1 , ζ2 , ζ3 ) d ≈ 13 F( 23 , 16 , 16 ) + 13 F( 16 , 23 , 16 ) + 13 F( 16 , 16 , 23 ). (24.5)
A e
1
F(ζ1 , ζ2 , ζ3 ) d ≈ 13 F( 12 , 12 , 0) + 13 F(0, 12 , 12 ) + 13 F( 12 , 0, 12 ). (24.6)
A e
These are depicted in Figures 24.1(b,c). Both rules are of degree 2; that is, they integrate exactly up
to quadratic polynomials in the triangular coordinates. For example, the function F = 6 + ζ1 + 3ζ3 +
ζ22 − ζ32 + 3ζ1 ζ3 is integrated exactly by either rule. Formula (24.6) is called the midpoint rule.
Six and Seven Point Rules. There is a 4-point rule of degree 3, but it has a negative weight and so violates
(24.2). There are no symmetric rules with 5 points. The next useful rules have six and seven points.
There is a 6-point rule of degree 4 and a 7-point rule of degree 5, which integrate exactly up to quartic
and quintic polynomials in {ζ1 , ζ2 , ζ3 }, respectively. The 7-point rule includes the centroid as sample
point. The abcissas and weights are expressable as rational combinations of square roots of integers
and fractions. The expressions are listed in the Mathematica implementation discussed in §24.2.4. The
sample point configurations are depicted in Figure 24.1(d,e).
24–5
Chapter 24: IMPLEMENTATION OF ISO-P TRIANGULAR ELEMENTS 24–6
TrigGaussRuleInfo[{rule_,numer_},point_]:= Module[
{zeta,p=rule,i=point,g1,g2, info={{Null,Null,Null},0} },
If [p== 1, info={{1/3,1/3,1/3},1}];
If [p== 3, info={{1,1,1}/6,1/3}; info[[1,i]]=2/3];
If [p==-3, info={{1,1,1}/2,1/3}; info[[1,i]]=0 ];
If [p== 6, g1=(8-Sqrt[10]+Sqrt[38-44*Sqrt[2/5]])/18;
g2=(8-Sqrt[10]-Sqrt[38-44*Sqrt[2/5]])/18;
If [i<4, info={{g1,g1,g1},(620+Sqrt[213125-
53320*Sqrt[10]])/3720}; info[[1,i]]=1-2*g1];
If [i>3, info={{g2,g2,g2},(620-Sqrt[213125-
53320*Sqrt[10]])/3720}; info[[1,i-3]]=1-2*g2]];
If [p== 7, g1=(6-Sqrt[15])/21; g2=(6+Sqrt[15])/21;
If [i<4, info={{g1,g1,g1},(155-Sqrt[15])/1200};
info[[1,i]]= 1-2*g1];
If [i>3&&i<7, info={{g2,g2,g2},(155+Sqrt[15])/1200};
info[[1,i-3]]=1-2*g2];
If [i==7, info={{1/3,1/3,1/3},9/40} ]];
If [numer, Return[N[info]], Return[Simplify[info]]];
];
Here J is the Jacobian determinant, which plays the same role as J in the isoparametric quadrilaterals.
If the metric is simply defined by the 3 corners, as in Figure 24.1, the geometry shape functions are
N1 = ζ1 , N2 = ζ2 and N3 = ζ3 . Then the foregoing determinant reduces to that of (24.4), and J = A
everywhere. But for general (curved) geometries J = J (ζ1 , ζ2 , ζ3 ), and the triangle area A cannot be
factored out of the integration rules. For example the one point rule becomes
F(ζ1 , ζ2 , ζ3 ) d ≈ J ( 13 , 13 , 13 ) F( 13 , 13 , 13 ). (24.8)
e
§24.2.4. Implementation
The five rules pictured in Figures 24.1 and 24.2 are implemented in the module TrigGaussRuleInfo
listed in Figure 24.3. The module is invoked as
The module has three arguments: rule, numer and i. The first two are grouped in a two-item list.
Argument rule, which can be 1, 3, −3, 6 or 7, defines the integration formula as follows. Abs[rule]
is the number of sample points. Of the two 3-point choices, if rule is −3 the midpoint rule is picked,
else if +3 the 3-interior point rule is chosen. Logical flag numer is set to True or False to request
floating-point or exact information, respectively
Argument point is the index of the sample point, which may range from 1 through Abs[rule].
The module returns the list {{ζ1 , ζ2 , ζ3 }, w}, where ζ1 , ζ2 , ζ3 are the triangular coordinates of the sample
point, and w is the integration weight. For example, TrigGaussRuleInfo[{ 3,False },1] returns
{ { 2/3,1/6,1/6 },1/3 }. If rule is not implemented, the module returns { { Null,Null,Null },0 }.
24–6
24–7 §24.3 PARTIAL DERIVATIVE COMPUTATION
w = w1 N1 + w2 N2 + w3 N3 + w4 N4 + w5 N5 + w6 N6 = [ w1 w2 w3 w4 w5 w6 ] NT . (24.13)
Symbol w may stand for 1, x, y, u x or u y , which are interpolated in the iso-P representation (24.11),
or other element-varying quantities such as thickness, temperature, etc. Taking partials of (24.13) with
respect to x and y and applying the chain rule twice yields
∂w
∂ Ni
∂ Ni ∂ζ1 ∂ Ni ∂ζ2 ∂ Ni ∂ζ3
= wi = wi + + ,
∂x ∂x ∂ζ1 ∂ x ∂ζ2 ∂ x ∂ζ3 ∂ x
∂w
∂ Ni
∂ Ni ∂ζ1 ∂ Ni ∂ζ2 ∂ Ni ∂ζ3
(24.14)
= wi = wi + + ,
∂y ∂y ∂ζ1 ∂ y ∂ζ2 ∂ y ∂ζ3 ∂ y
24–7
Chapter 24: IMPLEMENTATION OF ISO-P TRIANGULAR ELEMENTS 24–8
But ∂ x/∂ x = ∂ y/∂ y = 1 and ∂1/∂ x = ∂1/∂ y = ∂ x/∂ y = ∂ y/∂ x = 0 because x and y are
independent coordinates. It is shown in Remark 24.2 below that, if Ni = 1, the entries of the first
row of the coefficient matrix are equal to a constant C. These entries can be scaled to unity because the
first row of the right-hand side is null. Consequently we arrive at a system of linear equations of order
3 with two right-hand sides:
∂ζ1 ∂ζ1
1 1 1
∂ Ni ∂ Ni ∂ x ∂y 0 0
x i ∂ Ni xi ∂ζ xi ∂ζ ∂ζ2 ∂ζ2
∂ζ1 2 3 ∂x ∂y = 1 0 . (24.18)
∂ Ni ∂ Ni ∂ Ni
yi ∂ζ yi ∂ζ yi ∂ζ ∂ζ3 ∂ζ3 0 1
1 2 3 ∂x ∂y
in which Jx ji = Jx j − Jxi , Jy ji = Jy j − Jyi and J = 12 det J = 12 (Jx21 Jy31 − Jy12 Jx13 ). Substituting
into (24.14) we arrive at
∂w
∂ Ni
wi ∂ Ni ∂ Ni ∂ Ni
= wi = Jy23 + Jy31 + Jy12 ,
∂x ∂x 2J ∂ζ1 ∂ζ2 ∂ζ3
∂w
∂ Ni
wi ∂ Ni ∂ Ni ∂ Ni
(24.21)
= wi = Jx32 + Jx13 + Jx21 .
∂y ∂y 2J ∂ζ1 ∂ζ2 ∂ζ3
in which the natural derivatives ∂ Ni /∂ζ j can be read off (24.12). Using the 3 × 2 P matrix defined in
(24.20) yields finally the compact form
∂ Ni ∂ Ni ∂ Ni ∂ Ni ∂ Ni P.
∂x ∂y = ∂ζ1 ∂ζ2 ∂ζ3 (24.23)
Remark 24.2. Here is the proof that each first row entry of the 3 × 3 matrix in (24.17) is a numerical constant, say
C. Suppose the shape functions are polynomials of order n in the triangular coordinates, and let Z = ζ1 + ζ2 + ζ3 .
The completeness identity is
S= Ni = 1 = c1 Z + c2 Z 2 + . . . cn Z n , c1 + c2 + . . . + cn = 1. (24.24)
where the ci are element dependent scalar coefficients. Differentiating S with respect to the ζi ’s and setting Z = 1
yields
∂ Ni
∂ Ni
∂ Ni
C= = = = c1 + 2c2 Z + c3 Z 3 + . . . (n − 1)Z n−1 = c1 + 2c2 + 3c3 + . . . + cn−1
∂ζ1 ∂ζ2 ∂ζ3
= 1 + c2 + 2c3 + . . . + (n − 2)cn ,
(24.25)
which proves the assertion. For the 3-node linear triangle, S = Z and C = 1. For the 6-node quadratic triangle,
S = 2Z 2 − Z and C = 3. For the 10-node cubic triangle, S = 9Z 3 /2 − 9Z 2 /2 + Z and C = 11/2. Because the
first equation in (24.18) is homogeneous, the C’s can be scaled to unity.
Jx1 = x1 (4ζ1 −1) + 4(x4 ζ2 + x6 ζ3 ), Jx2 = x2 (4ζ2 −1) + 4(x5 ζ3 + x4 ζ1 ), Jx3 = x3 (4ζ3 −1) + 4(x6 ζ1 + x5 ζ2 ),
Jy1 = y1 (4ζ1 −1) + 4(y4 ζ2 + y6 ζ3 ), Jy2 = y2 (4ζ2 −1) + 4(y5 ζ3 + y4 ζ1 ), Jy3 = y3 (4ζ3 −1) + 4(y6 ζ1 + y5 ζ2 ),
(24.26)
24–9
Chapter 24: IMPLEMENTATION OF ISO-P TRIANGULAR ELEMENTS 24–10
Trig6IsoPShapeFunDer[ncoor_,tcoor_]:= Module[
{ζ 1,ζ 2,ζ 3,x1,x2,x3,x4,x5,x6,y1,y2,y3,y4,y5,y6,
dx4,dx5,dx6,dy4,dy5,dy6,Jx21,Jx32,Jx13,Jy12,Jy23,Jy31,
Nf,dNx,dNy,Jdet}, {ζ 1,ζ 2,ζ 3}=tcoor;
{{x1,y1},{x2,y2},{x3,y3},{x4,y4},{x5,y5},{x6,y6}}=ncoor;
dx4=x4-(x1+x2)/2; dx5=x5-(x2+x3)/2; dx6=x6-(x3+x1)/2;
dy4=y4-(y1+y2)/2; dy5=y5-(y2+y3)/2; dy6=y6-(y3+y1)/2;
Nf={ζ 1*(2*ζ 1-1),ζ 2*(2*ζ 2-1),ζ 3*(2*ζ 3-1),4*ζ 1*ζ 2,4*ζ 2*ζ 3,4*ζ 3*ζ 1};
Jx21= x2-x1+4*(dx4*(ζ 1-ζ 2)+(dx5-dx6)*ζ 3);
Jx32= x3-x2+4*(dx5*(ζ 2-ζ 3)+(dx6-dx4)*ζ 1);
Jx13= x1-x3+4*(dx6*(ζ 3-ζ 1)+(dx4-dx5)*ζ 2);
Jy12= y1-y2+4*(dy4*(ζ 2-ζ 1)+(dy6-dy5)*ζ 3);
Jy23= y2-y3+4*(dy5*(ζ 3-ζ 2)+(dy4-dy6)*ζ 1);
Jy31= y3-y1+4*(dy6*(ζ 1-ζ 3)+(dy5-dy4)*ζ 2);
Jdet = Jx21*Jy31-Jy12*Jx13;
dNx= {(4*ζ 1-1)*Jy23,(4*ζ 2-1)*Jy31,(4*ζ 3-1)*Jy12,4*(ζ 2*Jy23+ζ 1*Jy31),
4*(ζ 3*Jy31+ζ 2*Jy12),4*(ζ 1*Jy12+ζ 3*Jy23)}/Jdet;
dNy= {(4*ζ 1-1)*Jx32,(4*ζ 2-1)*Jx13,(4*ζ 3-1)*Jx21,4*(ζ 2*Jx32+ζ 1*Jx13),
4*(ζ 3*Jx13+ζ 2*Jx21),4*(ζ 1*Jx21+ζ 3*Jx32)}/Jdet;
Return[Simplify[{Nf,dNx,dNy,Jdet}]]
];
From these J can be constructed, and shape function partials ∂ Ni /∂ x and ∂ Ni /∂ y explicitly obtained
from (24.22). Somewhat simpler expressions, however, result by using the following “hierarchical”
side node coordinates:
Geometrically these represent the deviations from midpoint positions; thus for a superparametric element
x4 = x5 = x6 = y4 = y5 = y6 = 0. The Jacobian coefficients become
Jx21 = x21 + 4(x4 (ζ1 −ζ2 ) + (x5 −x6 )ζ3 ), Jx32 = x32 + 4(x5 (ζ2 −ζ3 ) + (x6 −x4 )ζ1 ),
Jx13 = x13 + 4(x6 (ζ3 −ζ1 ) + (x4 −x5 )ζ2 ), Jy12 = y12 + 4(y4 (ζ2 −ζ1 ) + (y6 −y5 )ζ3 ),
Jy23 = y23 + 4(y5 (ζ3 −ζ2 ) + (y4 −y6 )ζ1 ), Jy31 = y31 + 4(y6 (ζ1 −ζ3 ) + (y5 −y4 )ζ2 ).
(24.28)
(Note that if all midpoint deviations vanish, Jx ji = x ji and Jy ji = y ji .) From this one gets J =
1
2
det J = 12 (Jx21 Jy31 − Jy12 Jx13 ) and
1 y23 + 4(y5 (ζ3 −ζ2 ) + (y4 −y6 )ζ1 ) x32 + 4(x5 (ζ2 −ζ3 ) + (x6 −x4 )ζ1 )
P= y31 + 4(y6 (ζ1 −ζ3 ) + (y5 −y4 )ζ2 ) x13 + 4(x6 (ζ3 −ζ1 ) + (x4 −x5 )ζ2 ) .
2J y12 + 4(y4 (ζ2 −ζ1 ) + (y6 −y5 )ζ3 ) x21 + 4(x4 (ζ1 −ζ2 ) + (x5 −x6 )ζ3 )
(24.29)
and the Cartesian derivatives of the shape functions are
(4ζ1 − 1)Jy23 (4ζ1 − 1)Jx32
(4ζ2 − 1)Jy31 (4ζ2 − 1)Jx13
∂NT 1
(4ζ3 − 1)Jy12
∂NT 1
(4ζ3 − 1)Jx21
= , = . (24.30)
∂x 2J 4(ζ2 Jy23 + ζ1 Jy31 ) ∂y 2J 4(ζ2 Jx32 + ζ1 Jx13 )
4(ζ3 Jy31 + ζ2 Jy12 ) 4(ζ3 Jx13 + ζ2 Jx21 )
4(ζ1 Jy12 + ζ3 Jy23 ) 4(ζ1 Jx21 + ζ3 Jx32 )
24–10
24–11 §24.4 THE QUADRATIC TRIANGLE
Trig6IsoPMembraneStiffness[ncoor_,Emat_,th_,options_]:=
Module[{i,k,p=3,numer=False,h=th,tcoor,w,c,
Nf,dNx,dNy,Jdet,Be,Ke=Table[0,{12},{12}]},
If [Length[options]>=1, numer=options[[1]]];
If [Length[options]>=2, p= options[[2]]];
If [!MemberQ[{1,-3,3,6,7},p], Print["Illegal p"]; Return[Null]];
For [k=1, k<=Abs[p], k++,
{tcoor,w}= TrigGaussRuleInfo[{p,numer},k];
{Nf,dNx,dNy,Jdet}= Trig6IsoPShapeFunDer[ncoor,tcoor];
If [numer, {Nf,dNx,dNy,Jdet}=N[{Nf,dNx,dNy,Jdet}]];
If [Length[th]==6, h=th.Nf]; c=w*Jdet*h/2;
Be= {Flatten[Table[{dNx[[i]],0 },{i,6}]],
Flatten[Table[{0, dNy[[i]]},{i,6}]],
Flatten[Table[{dNy[[i]],dNx[[i]]},{i,6}]]};
Ke+=c*Transpose[Be].(Emat.Be);
]; If[!numer,Ke=Simplify[Ke]]; Return[Ke]
];
Figure 24.6. Stiffness matrix module for 6-node plane stress triangle.
p
K =e
hBT EB d ≈ wi F(ζ1i , ζ2i , ζ3i ), where F(ζ1 , ζ2 , ζ3 ) = hBT EB J. (24.31)
e i=1
Here p denotes the number of sample points of the Gauss rule being used, wi is the integration weight
for the i th sample point, ζ1i , ζ2i , ζ3i are the sample point triangular coordinates and J = 12 det J. This
data is provided by TrigGaussRuleInfo. For the 6-node triangle (24.31) is implemented in module
Trig6IsoPMembraneStiffness, listed in Figure 24.6. The module is invoked as
Ke = Trig6IsoPMembraneStiffness[ncoor,Emat,th,options] (24.32)
24–11
Chapter 24: IMPLEMENTATION OF ISO-P TRIANGULAR ELEMENTS 24–12
The one-entry form specifies uniform thickness h. The six-entry form is used to specify
an element of variable thickness, in which case the entries are the six node thicknesses
and h is interpolated quadratically.
options Processing options list. May contain two items: { numer,rule } or one: { numer }.
numer is a logical flag. If True, the computations are forced to proceed in floating-point
arithmetic. For symbolic or exact arithmetic work set numer to False.
rule specifies the triangle Gauss rule as described in §24.2.4; rule may be 1, 3, −3, 6
or 7. For the 6-node element the three point rules are sufficient to get the correct rank.
If omitted rule = 3 is assumed.
The module returns Ke as an 12 × 12 symmetric matrix pertaining to the following arrangement of
nodal displacements:
ue = [ u x1 u y1 u x2 u y2 u x3 u y3 u x4 u y4 u x5 u y5 u x6 u y6 ]T . (24.34)
24–12
24–13 §24.4 THE QUADRATIC TRIANGLE
Figure 24.10. Script to form Ke for the triangle of Figure 24.9, using four integration rules.
For rule=3 the result (printed to 4 places because of the SetPrecision statement in script) is
344.7 75.00 −91.80 21.00 −86.60 −24.00 −124.7 −72.00 −20.78 −36.00 −20.78 36.00
75.00 258.1 −21.00 −84.87 18.00 −90.07 96.00 0 −36.00 20.78 −132.0 −103.9
−91.80 −21.00 −75.00 −86.60 −124.7 −20.78 −36.00 −20.78 36.00
344.7 24.00 72.00
21.00 −84.87 −75.00 258.1 −18.00 −90.07 −96.00 0 132.0 −103.9 36.00 20.78
−86.60 18.00 −86.60 −18.00 214.8 0 41.57 0 −41.57 144.0 −41.57 −144.0
−24.00 −90.07 24.00 −90.07 0 388.0 0 −41.57 −24.00 −83.14 24.00 −83.14
−124.7 −124.7 −96.00 −83.14 −72.00 −83.14
96.00 41.57 0 374.1 0 72.00
−72.00 −41.57 −72.00 −166.3 −166.3
0 72.00 0 0 0 374.1 72.00
−20.78 −36.00 −20.78 132.0 −41.57 −24.00 −83.14 −72.00 374.1 0 −207.8 0
−36.00 20.78 −36.00 −103.9 144.0 −83.14 −72.00 −166.3 0 374.1 0 −41.57
−20.78 −132.0 −20.78 36.00 −41.57 24.00 −83.14 72.00 −207.8 0 374.1 0
36.00 −103.9 36.00 20.78 −144.0 −83.14 72.00 −166.3 0 −41.57 0 374.1
(24.37)
24–13
Chapter 24: IMPLEMENTATION OF ISO-P TRIANGULAR ELEMENTS 24–14
For rule=-3:
566.4 139.0 129.9 21.00 79.67 8.000 −364.9 −104.0 −205.5 −36.00 −205.5 −28.00
139.0 405.9 −21.00 62.93 50.00 113.2 64.00 −129.3 −36.00 −164.0 −196.0 −288.7
129.9 −21.00 −139.0 −8.000 −364.9 −205.5 −205.5 36.00
566.4 79.67 104.0 28.00
21.00 62.93 −139.0 405.9 −50.00 113.2 −64.00 −129.3 196.0 −288.7 36.00 −164.0
79.67 50.00 79.67 −50.00 325.6 0 −143.2 0 −170.9 176.0 −170.9 −176.0
8.000 113.2 −8.000 113.2 0 646.6 0 −226.3 8.000 −323.3 −8.000 −323.3
−364.9 −364.9 −64.00 −143.2 −104.0
64.00 0 632.8 0 120.1 120.1 104.0
−104.0 −129.3 −129.3 −226.3 −104.0 0
104.0 0 0 485.0 0 104.0
−205.5 −36.00 −205.5 196.0 −170.9 8.000 120.1 −104.0 521.9 −64.00 −60.04 0
−36.00 −164.0 28.00 −288.7 176.0 −323.3 −104.0 0 −64.00 595.8 0 180.1
−205.5 −196.0 −205.5 36.00 −170.9 −8.000 120.1 104.0 −60.04 0 521.9 64.00
−28.00 −288.7 36.00 −164.0 −176.0 −323.3 104.0 0 0 180.1 64.00 595.8
(24.38)
The stiffness for rule=6 is omitted to save space. For rule=7:
661.9 158.5 141.7 21.00 92.53 7.407 −432.1 −117.2 −190.2 −29.10 −273.8 −40.61
158.5 478.8 −21.00 76.13 49.41 125.3 50.79 −182.7 −29.10 −156.6 −208.6 −341.0
141.7 −21.00 −158.5 −7.407 −432.1 −273.8 −190.2 29.10
661.9 92.53 117.2 40.61
21.00 76.13 −158.5 478.8 −49.41 125.3 −50.79 −182.7 208.6 −341.0 29.10 −156.6
92.53 49.41 92.53 −49.41 387.3 0 −139.8 0 −216.3 175.4 −216.3 −175.4
7.407 125.3 −7.407 125.3 0 753.4 0 −207.0 7.407 −398.5 −7.407 −398.5
−432.1 −432.1 −50.79 −139.8 −117.2
50.79 0 723.6 0 140.2 140.2 117.2
−117.2 −182.7 −182.7 −207.0 −117.2 4.884
117.2 0 0 562.6 4.884 117.2
−190.2 −29.10 −273.8 208.6 −216.3 7.407 140.2 −117.2 602.8 −69.71 −62.78 0
−29.10 −156.6 40.61 −341.0 175.4 −398.5 −117.2 4.884 −69.71 683.3 0 207.9
−273.8 −208.6 −190.2 29.10 −216.3 −7.407 140.2 117.2 −62.78 0 602.8 69.71
−40.61 −341.0 29.10 −156.6 −175.4 −398.5 117.2 4.884 0 207.9 69.71 683.3
(24.39)
The eigenvalues of these matrices are:
Rule Eigenvalues of Ke
3 702.83 665.11 553.472 553.472 481.89 429.721 429.721 118.391 118.391 0 0 0
−3 1489.80 1489.80 702.833 665.108 523.866 523.866 481.890 196.429 196.429 0 0 0
6 1775.53 1775.53 896.833 768.948 533.970 533.970 495.570 321.181 321.181 0 0 0
7 1727.11 1727.11 880.958 760.719 532.750 532.750 494.987 312.123 312.123 0 0 0
(24.40)
Since the metric of this element is highly distorted near its boundary, the stiffness matrix entries and
eigenvalues change significantly as the integration formulas are advanced from 3 to 6 and 7 points.
However as can be seen the matrix remains rank-sufficient.
The 10-node cubic triangle, depicted in Figure 24.11, is rarely used as such in applications because of the difficulty
of combining it with other elements. Nevertheless the derivation of the element modules is instructive as this
triangle has other and more productive uses as a generator of more practical elements with “drilling” rotational
degrees of freedom at corners for modeling shells. Such transformations are studied in advanced FEM courses.
The geometry of the triangle is defined by the coordinates of the ten nodes. A notational warning: the interior node
is labeled as 0 instead of 10 (cf. Figure 24.8) to avoid confusion with notation such as x12 = x1 − x2 for coordinate
differences.
24–14
24–15 §24.5 *THE CUBIC TRIANGLE
The shape functions obtained in Exercise 18.1 are N1 = 12 ζ1 (3ζ1 − 1)(3ζ1 − 2), N2 = 12 ζ2 (3ζ2 − 1)(3ζ2 − 2),
N3 = 12 ζ3 (3ζ3 −1)(3ζ3 −2), N4 = 92 ζ1 ζ2 (3ζ1 −1), N5 = 92 ζ1 ζ2 (3ζ2 −1), N6 = 92 ζ2 ζ3 (3ζ2 −1), N7 = 92 ζ2 ζ3 (3ζ3 −1),
N8 = 92 ζ3 ζ1 (3ζ3 − 1), N9 = 92 ζ3 ζ1 (3ζ1 − 1) and N0 = 27ζ1 ζ2 ζ3 . Their natural derivatives are
2 −2ζ +3ζ 2 0 0
9 1 1
0
2
−2ζ2 +3ζ22 0
2
9
0 0
2
9
−2ζ 3 +3ζ3
ζ2 (6ζ1 −1) ζ1 (3ζ1 −1) 0
∂NT
∂NT
∂NT
9 ζ2 (3ζ2 −1) 9 ζ1 (6ζ2 −1) 9 0
= 2 , = 2 , = 2 . (24.41)
∂ζ1 0 ∂ζ2 ζ3 (6ζ2 −1) ∂ζ3 ζ2 (3ζ2 −1)
ζ3 (3ζ3 −1) ζ2 (6ζ3 −1)
0
ζ3 (3ζ3 −1) 0 ζ1 (6ζ3 −1)
ζ3 (6ζ1 −1) 0 ζ1 (3ζ1 −1)
6ζ2 ζ3 6ζ1 ζ3 6ζ1 ζ2
3
As in the case of the 6-node triangle it is convenient to introduce
the deviations from thirdpoints and centroid: x4 = x4 − 8 7
1
3
(2x1 +x2 ), x5 = x5 − 13 (x1 +2x2 ), x6 = x6 − 13 (2x2 +x3 ),
x7 = x7 − 13 (x2 +2x3 ), x8 = x8 − 13 (2x3 +x1 ), x9 = x9 − 9 6
0
1
3
(x3 +2x1 ), x0 = x0 − 13 (x1 +x2 +x3 ), y4 = y4 − 13 (2y1 +y2 ), 2
y5 = y5 − 13 (y1 +2y2 ), y6 = y6 − 13 (2y2 +y3 ), y7 = y7 − 4 5
1
1
3
(y2 +2y3 ), y8 = y8 − 13 (2y3 +y1 ), y9 = y9 − 13 (y3 +2y1 ),
and y0 = y0 − 13 (y1 + y2 + y3 ). Figure 24.11. The 10-node cubic triangle.
Using (24.22) and (24.41), the shape function partial derivatives can be worked out to be
Jy23 ( 29 − 2ζ1 + 3ζ12 /2) Jx32 ( 29 − 2ζ1 + 3ζ12 /2)
Jy31 ( 29 − 2ζ2 + 3ζ22 /2) Jx13 ( 29 − 2ζ2 + 3ζ22 /2)
Jy12 ( 9 − 2ζ3 + 3ζ3 /2)
2 2 Jx21 ( 9 − 2ζ3 + 3ζ3 /2)
2 2
Jy31 ζ1 (3ζ1 − 1) + Jy23 ζ2 (6ζ1 − 1) Jx13 ζ1 (3ζ1 − 1) + Jx32 ζ2 (6ζ1 − 1)
∂N T
9 Jy23 ζ2 (3ζ2 − 1) + Jy31 ζ1 (6ζ2 − 1)
, ∂N T
9 Jx32 ζ2 (3ζ2 − 1) + Jx13 ζ1 (6ζ2 − 1)
.
= =
∂x 4J
Jy12 ζ2 (3ζ2 − 1) + Jy31 ζ3 (6ζ2 − 1)
∂y 4J
Jx21 ζ2 (3ζ2 − 1) + Jx13 ζ3 (6ζ2 − 1)
Jy31 ζ3 (3ζ3 − 1) + Jy12 ζ2 (6ζ3 − 1) Jx13 ζ3 (3ζ3 − 1) + Jx21 ζ2 (6ζ3 − 1)
Jy23 ζ3 (3ζ3 − 1) + Jy12 ζ1 (6ζ3 − 1) Jx32 ζ3 (3ζ3 − 1) + Jx21 ζ1 (6ζ3 − 1)
J ζ (3ζ − 1) + J ζ (6ζ − 1) J ζ (3ζ − 1) + J ζ (6ζ − 1)
y12 1 1 y23 3 1 x21 1 1 x32 3 1
6(Jy12 ζ1 ζ2 + Jy31 ζ1 ζ3 + Jy23 ζ2 ζ3 ) 6(Jx21 ζ1 ζ2 + Jx13 ζ1 ζ3 + Jx32 ζ2 ζ3 )
(24.42)
where the expressions of the Jacobian coefficients are
Jx21 = x21 + 9
x4 ζ1 (3ζ1 −6ζ2 −1)+ζ2 + x5 ζ2 (1−3ζ2 +6ζ1 )−ζ1 + x6 ζ3 (6ζ2 −1)
2
24–15
Chapter 24: IMPLEMENTATION OF ISO-P TRIANGULAR ELEMENTS 24–16
Trig10IsoPShapeFunDer[ncoor_,tcoor_]:= Module[
{ζ 1,ζ 2,ζ 3,x1,x2,x3,x4,x5,x6,x7,x8,x9,x0,y1,y2,y3,y4,y5,y6,y7,y8,y9,y0,
dx4,dx5,dx6,dx7,dx8,dx9,dx0,dy4,dy5,dy6,dy7,dy8,dy9,dy0,
Jx21,Jx32,Jx13,Jy12,Jy23,Jy31,Nf,dNx,dNy,Jdet},
{{x1,y1},{x2,y2},{x3,y3},{x4,y4},{x5,y5},{x6,y6},{x7,y7},
{x8,y8},{x9,y9},{x0,y0}}=ncoor; {ζ 1,ζ 2,ζ 3}=tcoor;
dx4=x4-(2*x1+x2)/3; dx5=x5-(x1+2*x2)/3; dx6=x6-(2*x2+x3)/3;
dx7=x7-(x2+2*x3)/3; dx8=x8-(2*x3+x1)/3; dx9=x9-(x3+2*x1)/3;
dy4=y4-(2*y1+y2)/3; dy5=y5-(y1+2*y2)/3; dy6=y6-(2*y2+y3)/3;
dy7=y7-(y2+2*y3)/3; dy8=y8-(2*y3+y1)/3; dy9=y9-(y3+2*y1)/3;
dx0=x0-(x1+x2+x3)/3; dy0=y0-(y1+y2+y3)/3;
Nf={ζ 1*(3*ζ 1-1)*(3*ζ 1-2),ζ 2*(3*ζ 2-1)*(3*ζ 2-2),ζ 3*(3*ζ 3-1)*(3*ζ 3-2),
9*ζ 1*ζ 2*(3*ζ 1-1),9*ζ 1*ζ 2*(3*ζ 2-1),9*ζ 2*ζ 3*(3*ζ 2-1),
9*ζ 2*ζ 3*(3*ζ 3-1),9*ζ 3*ζ 1*(3*ζ 3-1),9*ζ 3*ζ 1*(3*ζ 1-1),54*ζ 1*ζ 2*ζ 3}/2;
Jx21=x2-x1+(9/2)*(dx4*(ζ 1*(3*ζ 1-6*ζ 2-1)+ζ 2)+
dx5*(ζ 2*(1-3*ζ 2+6*ζ 1)-ζ 1)+dx6*ζ 3*(6*ζ 2-1)+dx7*ζ 3*(3*ζ 3-1)+
dx8*ζ 3*(1-3*ζ 3)+dx9*ζ 3*(1-6*ζ 1)+6*dx0*ζ 3*(ζ 1-ζ 2));
Jx32=x3-x2+(9/2)*(dx4*ζ 1*(1-3*ζ 1)+dx5*ζ 1*(1-6*ζ 2)+
dx6*(ζ 2*(3*ζ 2-6*ζ 3-1)+ζ 3)+dx7*(ζ 3*(1-3*ζ 3+6*ζ 2)-ζ 2)+
dx8*ζ 1*(6*ζ 3-1)+dx9*ζ 1*(3*ζ 1-1)+6*dx0*ζ 1*(ζ 2-ζ 3)) ;
Jx13=x1-x3+(9/2)*(dx4*(6*ζ 1-1)*ζ 2+dx5*ζ 2*(3*ζ 2-1)+
dx6*ζ 2*(1-3*ζ 2)+dx7*ζ 2*(1-6*ζ 3)+dx8*(ζ 3*(3*ζ 3-6*ζ 1-1)+ζ 1)+
dx9*(ζ 1*(1-3*ζ 1+6*ζ 3)-ζ 3)+6*dx0*ζ 2*(ζ 3-ζ 1));
Jy12=y1-y2-(9/2)*(dy4*(ζ 1*(3*ζ 1-6*ζ 2-1)+ζ 2)+
dy5*(ζ 2*(1-3*ζ 2+6*ζ 1)-ζ 1)+dy6*ζ 3*(6*ζ 2-1)+dy7*ζ 3*(3*ζ 3-1)+
dy8*ζ 3*(1-3*ζ 3)+dy9*ζ 3*(1-6*ζ 1)+6*dy0*ζ 3*(ζ 1-ζ 2));
Jy23=y2-y3-(9/2)*(dy4*ζ 1*(1-3*ζ 1)+dy5*ζ 1*(1-6*ζ 2)+
dy6*(ζ 2*(3*ζ 2-6*ζ 3-1)+ζ 3)+dy7*(ζ 3*(1-3*ζ 3+6*ζ 2)-ζ 2)+
dy8*ζ 1*(6*ζ 3-1)+dy9*ζ 1*(3*ζ 1-1)+6*dy0*ζ 1*(ζ 2-ζ 3)) ;
Jy31=y3-y1-(9/2)*(dy4*(6*ζ 1-1)*ζ 2+dy5*ζ 2*(3*ζ 2-1)+
dy6*ζ 2*(1-3*ζ 2)+dy7*ζ 2*(1-6*ζ 3)+dy8*(ζ 3*(3*ζ 3-6*ζ 1-1)+ζ 1)+
dy9*(ζ 1*(1-3*ζ 1+6*ζ 3)-ζ 3)+6*dy0*ζ 2*(ζ 3-ζ 1));
Jdet = Jx21*Jy31-Jy12*Jx13;
dNx={Jy23*(2/9-2*ζ 1+3*ζ 1^2),Jy31*(2/9-2*ζ 2+3*ζ 2^2),Jy12*(2/9-2*ζ 3+3*ζ 3^2),
Jy31*ζ 1*(3*ζ 1-1)+Jy23*ζ 2*(6*ζ 1-1),Jy23*ζ 2*(3*ζ 2-1)+Jy31*ζ 1*(6*ζ 2-1),
Jy12*ζ 2*(3*ζ 2-1)+Jy31*ζ 3*(6*ζ 2-1),Jy31*ζ 3*(3*ζ 3-1)+Jy12*ζ 2*(6*ζ 3-1),
Jy23*ζ 3*(3*ζ 3-1)+Jy12*ζ 1*(6*ζ 3-1),Jy12*ζ 1*(3*ζ 1-1)+Jy23*ζ 3*(6*ζ 1-1),
6*(Jy12*ζ 1*ζ 2+Jy31*ζ 1*ζ 3+Jy23*ζ 2*ζ 3)}/(2*Jdet/9);
dNy={Jx32*(2/9-2*ζ 1+3*ζ 1^2),Jx13*(2/9-2*ζ 2+3*ζ 2^2),Jx21*(2/9-2*ζ 3+3*ζ 3^2),
Jx13*ζ 1*(3*ζ 1-1)+Jx32*ζ 2*(6*ζ 1-1),Jx32*ζ 2*(3*ζ 2-1)+Jx13*ζ 1*(6*ζ 2-1),
Jx21*ζ 2*(3*ζ 2-1)+Jx13*ζ 3*(6*ζ 2-1),Jx13*ζ 3*(3*ζ 3-1)+Jx21*ζ 2*(6*ζ 3-1),
Jx32*ζ 3*(3*ζ 3-1)+Jx21*ζ 1*(6*ζ 3-1),Jx21*ζ 1*(3*ζ 1-1)+Jx32*ζ 3*(6*ζ 1-1),
6*(Jx21*ζ 1*ζ 2+Jx13*ζ 1*ζ 3+Jx32*ζ 2*ζ 3)}/(2*Jdet/9);
Return[Simplify[{Nf,dNx,dNy,Jdet}]]
];
and
Jy12 = y12 − 9
y4 ζ1 (3ζ1 −6ζ2 −1)+ζ2 + y5 (ζ2 (1−3ζ2 +6ζ1 )−ζ1 ) + y6 ζ3 (6ζ2 −1)
2
24–16
24–17 §24.5 *THE CUBIC TRIANGLE
Trig10IsoPMembraneStiffness[ncoor_,Emat_,th_,options_]:=
Module[{i,k,l,p=6,numer=False,h=th,tcoor,w,c,
Nf,dNx,dNy,Jdet,Be,Ke=Table[0,{20},{20}]},
If [Length[options]>=1, numer=options[[1]]];
If [Length[options]>=2, p= options[[2]]];
If [!MemberQ[{1,3,-3,6,7},p], Print["Illegal p"]; Return[Null]];
For [k=1, k<=Abs[p], k++,
{tcoor,w}= TrigGaussRuleInfo[{p,numer},k];
{Nf,dNx,dNy,Jdet}= Trig10IsoPShapeFunDer[ncoor,tcoor];
If [numer, {Nf,dNx,dNy,Jdet}=N[{Nf,dNx,dNy,Jdet}]];
If [Length[th]==10, h=th.Nf]; c=w*Jdet*h/2;
Be= {Flatten[Table[{dNx[[i]],0 },{i,10}]],
Flatten[Table[{0, dNy[[i]]},{i,10}]],
Flatten[Table[{dNy[[i]],dNx[[i]]},{i,10}]]};
Ke+=c*Transpose[Be].(Emat.Be);
]; If[!numer,Ke=Simplify[Ke]]; Return[Ke]
];
Module Trig10IsoPMembraneStiffness, listed in Figure 24.13, implements the computation of the element
stiffness matrix of the 10-node cubic plane stress triangle. The module is invoked as
Ke = Trig10IsoPMembraneStiffness[ncoor,Emat,th,options] (24.45)
this has the same arguments of the quadratic triangle module invoked in (24.32), with the following changes. The
node coordinate list ncoor contains 10 entries: { { x1,y1 },{ x2,y2 },{ x3,y3 }, . . .,{ x9,y9 },{ x0,y0 } }. If the
plate thickness varies, th is a list of 10 entries: { h1,h2,h3,h4,. . .,h9,h0 }. The triangle Gauss rule specified in
options as { numer,rule } should be 6 or 7 to produce a rank sufficient stiffness. If omitted rule = 6 is assumed.
The module returns Ke as an 20 × 20 symmetric matrix pertaining to the following arrangement of nodal displace-
ments:
ue = [ u x1 u y1 u x2 u y2 u x3 u y3 u x4 u y4 . . . u x9 u y9 u x0 u y0 ]T . (24.46)
Remark 24.3. For symbolic work with this element the 7-point rule should be preferred because the exact
expressions of the abcissas and weigths at sample points are simpler than for the 6-point rule, as can be observed
in Figure 24.3. This speeds up algebraic simplification. For numerical work the 6-point rule is slightly faster.
The returned stiffness matrix using either 6- or 7-point integration is the same, since for a superparametric element
the integrand is quartic in the triangular coordinates. For the given combination of inputs the entries are exact
integers:
24–17
Chapter 24: IMPLEMENTATION OF ISO-P TRIANGULAR ELEMENTS 24–18
[ 26397. 16597. 14937. 12285. 8900.7 7626.2 5417.8 4088.8 3466.8 3046.4
(24.48)
1751.3 1721.4 797.70 551.82 313.22 254.00 28.019 0 0 0 ]
The 3 zero eigenvalues pertain to the three independent rigid-body modes in two dimensions. The 17 other
eigenvalues are positive. Consequently the computed Ke has the correct rank of 17.
24–18
24–19 §24. References
References
Referenced items moved to Appendix R.
24–19
Chapter 24: IMPLEMENTATION OF ISO-P TRIANGULAR ELEMENTS 24–20
24–20
24–21 §24. References
EXERCISE 24.5 [A/C:40] (Research paper level) Characterize the most general form of the Bi (i = 1, 2, 3)
matrices that produce the same stiffness matrix Ke in (E24.4). (Entails solving an algebraic Riccati equation.)
EXERCISE 24.6 [A/C:25]. Derive the 4-node transition triangle by forming the 6-node stiffness and applying
MFCs to eliminate 5 and 6. Prove that this technique only works if sides 1–3 and 2–3 are straight with nodes 5 and
6 initially at the midpoint of those sides.
24–21