Derivation of Thick Plate Equations

Differential Form

Introduction

This notebook derives the governing differential equations for a thick, anisotropic plate. First-order shear deformation theory is used. This formulation is used in all of the MSC sandwich analyses.

The derivation is based on developing a general expression for the strain energy density. The govenering equations can then be derived using the variational approach.

<<Calculus`VariationalMethods`

Kinematic Equations

The assumed displacement field will include rotations about the midplane that are independent of the slope of the displacement w. The rotations are designated ψ_xand ψ_y. The assumed displacements are functions of x and y. The full displacement field is then

u[x, y, z] = ψ_x[x, y] z ; v[x, y, z] = ψ_y[x, y] z ; w[w, x, z] = w[x, y] ;

For small displacements, we use the conventional definitions of strain. The following vector is in the order {ϵ_x, ϵ_y, ϵ_z, γ_yz, γ_xz, γ_xy}.

strain =
{D[u[x,y,z],x],
D[v[x,y,z],y],
D[w[x,y],z],
D[w[x,y],y]+D[v[x,y,z],z],
D[w[x,y],x]+D[u[x,y,z],z],
D[u[x,y,z],y]+D[v[x,y,z],x]}

{z ψ_x^(1, 0)[x, y], z ψ_y^(0, 1)[x, y], 0, ψ_y[x, y] + w^(0, 1)[x, y], ψ_x[x, y] + w^(1, 0)[x, y], z ψ_x^(0, 1)[x, y] + z ψ_y^(1, 0)[x, y]}

where an expression such as ψ_x^(1, 0)[x, y] implies the first derivative of ψ_x with respect to the first argument (x).

Strain Energy Density

Assume a plane stress stiffness matrix for an anisotropic (monoclinic) material

stiff = {{q[1,1],q[1,2],q[1,3],0,0,q[1,6]},
         {q[1,2],q[2,2],q[2,3],0,0,q[2,6]},
         {q[1,3],q[2,3],q[3,3],0,0,q[3,6]},
         {0,0,0,q[4,4],q[4,5],0},
         {0,0,0,q[4,5],q[5,5],0},
         {q[1,6],q[2,6],q[3,6],0,0,q[6,6]}};

Next, form the strain energy density in 3D. The substitutions that follow implicitely integrate through the thickness, so that A, B, and D have conventional lamination theory definitions. Note that the nature of the assumed displacement field precludes the coupling matrix B from ever appearing any of the final equations. The terms A_44, A_45, and A_55are effective transverse shear stiffnesses. Although the following operation implies direct of the properties to obtain these quantities, it is know that better accuracy will be obtained if effective properties are used that account for the true distribution of the interlaminar stress.

strainEnergy = Expand[strain . stiff . strain] /2/.
   {z^2*q[i_, j_] :→Subscript[D,ToString[i]<>ToString[j]],
    z*q[i_, j_] :→Subscript[B,ToString[i]<>ToString[j]],
    q[i_, j_] :→Subscript[A,ToString[i]<>ToString[j]]};

Work Contribution Due to Pressure Load

External work will be performed by an applied, pressure distribution P[x,y]. This can be expressed as follows.

Wpressure = {P[x, y], 0, 0} . {w[w, x, z], ψ_x[x, z, z], ψ_y[x, y, z]} ;

In[28]:=

{153, 204, 153}/204

Out[28]=

{3/4, 1, 3/4}

Work Contribution Due to Interaction with Membrane Loads

Direct membrane forces result in work when they interact with finite out-of-plane rotations. The work can be conveniently derived as follows.

strain2 =
{D[w[x,y],x],
D[w[x,y],y]};

The applied membrane load intensities are N_1, N_2, and N_6.

load = {{N_1, N_6}, {N_6, N_2}} ;

Wmembrane = Expand[strain2 . load . strain2]/2 ;

Work Contribution Due to Kinetic Energy

For dynamic analysis, there is a kinetic energy term. The following is a vector of  derivatives of the displacements with respect to time (velocity).

velocity = {Overscript[w, .][x, y], Overscript[ψ_x, .][x, y], Overscript[ψ_y, .][x, y]} ;

ρ is the areal density of the plate (lb/in) while Overscript[ρ, _] is the first moment of the density distributon through the thickness, Overscript[ρ, _]=∫_ (-h/2)^(h/2) ρ z z.

density = {{ρ, 0, 0}, {0, Overscript[ρ, _], 0}, {0, 0, Overscript[ρ, _]}} ;

The kinetic energy density is then.

Wkinentic = Expand[velocity . density . velocity]/2

1/2 (ρ Overscript[w, .][x, y]^2 + Overscript[ρ, _] Overscript[ψ_x, .][x, y]^2 + Overscript[ρ, _] Overscript[ψ_y, .][x, y]^2)

For a vibration problem, one can assume that displacments have the form w[x,y,t]=w[x,y] Sin[ω t]. In that case, the energy can be expressed as

Wkinentic = Expand[velocity . density . velocity]/2/.{Overscript[w, .][x, y] ω w[ ... [x, y] ω ψ_x[x, y], Overscript[ψ_y, .][x, y] ω ψ_y[x, y]}

1/2 (ρ ω^2 w[x, y]^2 + ω^2 Overscript[ρ, _] ψ_x[x, y]^2 + ω^2 Overscript[ρ, _] ψ_y[x, y]^2)

where it is implied that all displacements are multiplied by Sin[ω t]

Equations for Deflection of a Plate Under an Applied Pressure Load

Variational approach for deriving the governing equations.

pressureEq = EulerEquations[kmat + Wpressure, {w[x, y], ψ_x[x, y], ψ_y[x, y]}, {x, y}]//Simplify ;

The operation results in the following three, coupled differential equations.

P(x, y) A_44 (ψ_y^(0, 1)(x, y) + w^(0, 2)(x, y)) + A_45 (ψ_x^(0, 1)(x, y) + ψ_y^(1, 0)(x, y) + 2 w^(1, 1)(x, y)) + A_55 (ψ_x^(1, 0)(x, y) + w^(2, 0)(x, y))

A_45 (ψ_y(x, y) + w^(0, 1)(x, y)) + A_55 (ψ_x(x, y) + w^(1, 0)(x, y)) D_26 & ... _x^(0, 2)(x, y) + ψ_y^(1, 1)(x, y)) + D_11 ψ_x^(2, 0)(x, y) + D_16 ψ_y^(2, 0)(x, y)

A_44 (ψ_y(x, y) + w^(0, 1)(x, y)) + A_45 (ψ_x(x, y) + w^(1, 0)(x, y)) D_22 & ... ^(0, 2)(x, y) + 2 ψ_y^(1, 1)(x, y)) + D_16 ψ_x^(2, 0)(x, y) + D_66 ψ_y^(2, 0)(x, y)

Equations for Linear Buckling

Variational approach for deriving the governing equations.

bucklingEq = EulerEquations[kmat + Wmembrane, {w[x, y], ψ_x[x, y], ψ_y[x, y]}, {x, y}]//Simplify ;

Linear buckling will occur when the following three coupled differential equations are satisfied for non-trivial (zero) displacements.

N_2 w^(0, 2)(x, y) + A_44 (ψ_y^(0, 1)(x, y) + w^(0, 2)(x, y)) + A_55 ψ_x^(1, 0)(x, y ... ) + ψ_y^(1, 0)(x, y) + 2 w^(1, 1)(x, y)) + A_55 w^(2, 0)(x, y) + N_1 w^(2, 0)(x, y) 0

A_45 (ψ_y(x, y) + w^(0, 1)(x, y)) + A_55 (ψ_x(x, y) + w^(1, 0)(x, y)) D_26 & ... _x^(0, 2)(x, y) + ψ_y^(1, 1)(x, y)) + D_11 ψ_x^(2, 0)(x, y) + D_16 ψ_y^(2, 0)(x, y)

A_44 (ψ_y(x, y) + w^(0, 1)(x, y)) + A_45 (ψ_x(x, y) + w^(1, 0)(x, y)) D_22 & ... ^(0, 2)(x, y) + 2 ψ_y^(1, 1)(x, y)) + D_16 ψ_x^(2, 0)(x, y) + D_66 ψ_y^(2, 0)(x, y)

Equations for Vibration

Variational approach for deriving the governing equations.

vibrationEq = EulerEquations[kmat + Wkinentic, {w[x, y], ψ_x[x, y], ψ_y[x, y]}, {x, y}]//Simplify ;

The equations for steady-state vibration follow. The natural frequency is the value of ω that satisfies the coupled equations for non-trivial displacmements.

ρ ω^2 w(x, y) A_44 (ψ_y^(0, 1)(x, y) + w^(0, 2)(x, y)) + A_45 (ψ_x ... (x, y) + ψ_y^(1, 0)(x, y) + 2 w^(1, 1)(x, y)) + A_55 (ψ_x^(1, 0)(x, y) + w^(2, 0)(x, y))

Overscript[ρ, _] ψ_x(x, y) ω^2 + A_45 (ψ_y(x, y) + w^(0, 1)(x, y)) + A_55  ... _x^(0, 2)(x, y) + ψ_y^(1, 1)(x, y)) + D_11 ψ_x^(2, 0)(x, y) + D_16 ψ_y^(2, 0)(x, y)

Overscript[ρ, _] ψ_y(x, y) ω^2 + A_44 (ψ_y(x, y) + w^(0, 1)(x, y)) + A_45  ... ^(0, 2)(x, y) + 2 ψ_y^(1, 1)(x, y)) + D_16 ψ_x^(2, 0)(x, y) + D_66 ψ_y^(2, 0)(x, y)


Created by Mathematica  (July 9, 2004)