Wing Flutter PDF
Wing Flutter PDF
Wing Flutter PDF
INTRODUCTION
1.1 Aeroelasticity
MATHEMATICAL FORMULATIONS
Y Fig-2.1 (a)
y0 y
c
Fig-2.1 (b)
. c
x
x
ELASTIC AXIS AND INERTIA AXIS
y
w x
L
Fig-2.2(c)
Thus let w and be the deviations from the equilibrium state, and
let the inertia, elastic and aerodynamic forces correspond also to the
deviations from the steady-state values; then, for small disturbances,
the principle of superposition holds, and we have the following
equations of motion.
2 2w 2w 2
EI 2 + m 2 + my 2 + L = 0 --------- (2.1)
x 2 x t t
2 2w
GJ + I 2 + my 2 + M = 0 ---------- (2.2)
x x t t
where EI and GJ are the bending and torsional rigidity of the wing, m
and I are the mass and mass moment of inertia about the elastic axis of
the wing section at x, per unit length along the span, and L and M are
the aerodynamic lift and moment per unit span, respectively,
where,
U 2
L= cCL ----------- (2.3)
2
U 2 U 2 x
M= c CM =
2
c 2 (CM ) LE + 0 CL ----------- (2.4)
2 2 c
in which the lift and moment coefficients are given by the quasi-steady
subsonic aerodynamic theory as
dCL 1 dh 1 3 d
CL =
d + U dt + U 4 c x0 dt ----------- (2.5)
c d 1
( CM ) l . e . = CL ----------- (2.6)
8U dt 4
The aerodynamic forces and moments are obtained by using the
quasi-steady strip theory, whereby local lift coefficient is
proportional to the instantaneous angle of attack . The derivative
dCL/d is considered to be constant, with a theoretical value of 2 for
incompressible flow and an experimental value of somewhat less than
2. Moreover the aerodynamic analysis is subject to the quasi-steady
assumption, which implies that only the instantaneous deformation is
important and the history of motion may be neglected.
Equations 2.5 and 2.6 give the lift and moment for variable w and .
2 2w 2w 2 U 2 dCL 1 w c 3 y0
EI 2 + m 2 + my 2 + c
U t + U 4 c t = 0
+
x 2 x t t 2 d
0< x<L
2w 2 U 2 2
GJ + my 2 + I 2 c
x x t t 2
c y0 1 dCL 1 w c 3 y0
+ + + = 0
8U t c 4 d U t U 4 c t
0< x< L
w
w= = = 0 at x=0
x
2 w 3 w
= = =0 at x= L ---------- (2.9)
x 2 x3 x
Since Eqs (2.7) and (2.8) are linear equations with constant
coefficients, the solution can be written in the usual form
w( x, t ) = W ( x ) e t ( x, t ) = ( x ) e t
--------- (2.10)
---------(2.11a)
U 2 y 1 dC U
( GJ ) ' '
c2 0 L
2 c 4 d 2
y 1 dC y 1 3 y dC
c 2 0 L W + c 0 0 L +
c 4 d c 4 4 c d 8
2 ( my W + I ) = 0
-----------(2.11b)
d d2
( ) = ( ) ( ) = 2( )
' "
where and
dx dx
( GJ ' ) + 2 ( my W + I ) = 0
'
--------- (2.12b)
0< x< L
The system can be shown to be self-adjoint and positive definite.
n n+m
W = a j j = a j j ----------(2.13)
j =1 j = n +1
where j are the modal functions, which should satisfy the boundary
conditions as shown before.
The independent pure bending modes and pure torsional modes of the
uniform cantilever beam with symmetric sections (zero shear center
offset) are suitable modal functions.
Pure jth beam bending mode for the classical Euler beam with
cantilever boundary condition is given as [34]
(cosh an L cos an L)
where, n =
(sinh an L sin an L )
Cantilever boundary conditions satisfied are
j ( x = 0) = 0 j ' ( x = 0) = 0 j = 1, 2,3.........n
cos( an L).cosh( an L) + 1 = 0
2k 1
j = sin x j = n+k ; k = 1,2,3m
2L
----------(2.14b)
'j ( x = L ) = 0
n n n+m
a ( EI ) a m a my
"
j j
"
+ 2
j j + 2
j j =0 -----------(2.15a)
j =1 j =1 j = n +1
n+ m n n+m
a j ( GJ j ) + a my
'
' 2
j j + 2
a j I j = 0 -------(2.15b)
j = n +1 j =1 j = n +1
Multiplying equation (2.15a) by i (I=1,2n) and equation (2.15b) by
i (i=n+1,n+2,n+m), and integrating both results over the interval
0 x L we obtain algebraic Eigen value problem
n+m n+m
k a
j =1
ij j + 2
m a
j =1
ij j =0 (i=1,2n+m) -------(2.16)
kij = i ( EI j ) dx =
L L
'' "
EI i" j " dx = kij
0 0
kij = 0 for i j
0 0
i, j = n + 1, n + 2,...n + m
-------(2.17b)
Again kij = 0 for i j is the orthogonality condition
and
L
mij = m ji = mi j dx
0
i , j = 1,.n
--------(2.17c)
L
mij = m ji = my i j dx i = 1,2,n; j = n+1,n+2,...n+m
0
L
mij = m ji = I i j dx i , j = n + 1, n + 2,...n + m
0
---------(2.17d)
Ka = -2 Ma ----------(2.18)
mode}
2.3 Flutter analysis of the wing:
Flutter analysis of the wing is also carried out using the same
elementary beam model. The quasi-steady aerodynamic theory is used
to obtain the aerodynamic forces interacting with the structure. First
the problem is solved taking one bending mode and one torsion mode
as a first estimate and then the result has been improved taking higher
modes. The same is solved in NASTRAN in pk-method. The results
obtained in NASTRAN matches the results obtained through the code.
The flutter speed obtained through the code has shown conservative
values.
[K + U2H + UL + 2M ] a = 0 ----------(2.19)
The matrices H and L are not symmetric. Their elements can be
shown to have the expressions
hij = 0 i, j = 1, 2,.....n
dCL L
hij =
2 d 0
ci j dx i = 1, 2,.....n; j = n + 1, n + 2,.......n + m
dCL L y 1
hij =
2 d 0
c 2 0 i j dx i, j = n + 1, n + 2,.......n + m
c 4
-----------.(2.20a)
dCL L
i, j = 1, 2,.....n
lij =
2 d 0
ci j dx
dCL L 3 y i = 1, 2,.....n
lij =
2 d
0
c 2 0 i j dx
4 c
j = n + 1, n + 2,.......n + m
dCL L y 1 i = n + 1, n + 2,.......n + m ;
lij =
2 d 0
c 2 0 i j dx
c 4
j = 1, 2,.....n
L y 1 3 y dC
2
lij = c 3 0 0 L i j dx
0
8 c 4 4 c d
i, j = n + 1, n + 2,.....n + m -------------(2.20b)
Using the same procedure, we can reduce the eigenvalue problem to
the standard form
where
T T
a* = aT bT = aT aT (2.22)
is a 2 (n + m) vector and
0 1
K* =
( K + U H ) UL
2
1 0
M* = (2.23 a, b)
0 M
are 2 (n + m) x 2 (n + m) matrices.
The critical value Ucr of interest here is the lowest value of U for
which
= Re = 0
Stable
U<Ucr
Unstable (Flutter)
U>Ucr
Flutter boundary
U=Ucr
0 U
Ucr
i 0 1 0
0 i 0 1
det =0
k11 U 2 h12 i m11 + Ul11 i m12 + Ul12
0 k22 + U 2 h22 i m12 + Ul21 i m22 + Ul22
------------ (2.24)
Equation (2.24) yields
-----------(2.25)
so that substituting into the real part of Eq. 19, we can write the
quadratic equation in U2
AU 4 + BU 2 + C = 0
-----------(2.26)
where,
A = ( h12l21 + h22 l11 )
( h12l21 + h22l11 ) ( m11m22 m12 2 ) ( l11l22 l12l21 h12 m12 + h22 m11 )
m12 ( l12 + l21 ) ( m11l22 + m22l11 )
B = 2 ( h12 l21 + h22l11 )( k22 l11 k11l22 ) ( m11m22 m12 2 )
( h12l21 + h22 l11 )( k 22 m11 + k11m22 ) + ( k 22l11 k11l22 )( l11l22 l12l21 h12 m12 + h22 m11 )
m12 ( l12 + l21 ) ( m11l22 + m22l11 )
B 1
U2 = B 2 4 AC -------------(2.27)
2A 2A
The first estimate of the critical value Ucr is the smallest positive
value of U that can be obtained.
2.4 Discretization and integration for tapered wing
(SARAS)
Bending:
L N xr +1
kij = EI i j dx ( EI )r
" "
i
"
j
"
dx
0 r =1 xr
L N xr +1
mij = mi j dx mr i, j = 1, 2, 3.........n
0 r =1
dx
xr
i j
--------------(2.28)
Torsion:
L N xr +1
kij = GJ i j dx ( GJ )r
' '
i
'
j
'
dx
0 r =1 xr
L N xr +1
mij = I i j dx ( I )r dx i j
0 r =1 xr
i , j = n + 1, n + 2........n + m
----------- (2.29)
Coupled inertia:
L N xr +1
mij = my i j dx mr y r dx
i j i = 1, 2.......n
0 r =1 xr
j = n + 1, n + 2.........n + m
---------(2.30)
The aerodynamic parameters of equations (2.20) can be likewise
obtained by piecewise integrations, where
L N xr +1
c dx c dx
0
i j
r =1
r
xr
i j
2 ( 0 )r
L
y0 1 N y 1 r+1
x
0 c c 4 i j dx i j dx
2
cr
r =1 c
r 4 x
and
L
y0 1 3 y0 dl L N
3 y0 r 1 3 y0 r r+1
x
0 c 8 c 4 4 c d i j dx cr i j dx
3
r =1 8 c r 4 4 c r xr
---------- (2.31)
These expressions are substituted in the eqn. (2.19) for flutter analysis
of tapered beam
NUMERICAL RESULTS
Numerical data:
The following properties of the cantilever beam are used for the
analysis:
Length = 5m
Width = 2m
Thickness = 0.04m
Youngs Modulus of elasticity = E = 70 * 109 N/m2
Poissons ration = = 0.33
Shear Modulus of rigidity = G = 26.3 * 109 N/m2
Density of the material = s = 2700 kg/m3
Density of air = = 1.225 kg/m3
U SHEAR CENTER AND CENTROID
x 2m
5m 0.04m
Table 3.1
Numerical data:
The numerical data used for the actual wing and also for the wings
with reduced stiffness parameters are as shown below.
Sl. Ele L in ZG in m YG in m
No. m x 10-3 x 10-3
1 0.350 -355.430 36.300
2 0.315 -432.248 -137.681
3 0.285 -379.560 -199.990
4 0.300 -434.200 -278.100
5 0.325 -161.000 -9.200
6 0.315 -1.648 39.906
7 0.315 -9.040 11.800
8 0.325 -6.333 7.034
9 0.325 -8.275 -3.881
10 0.325 -19.418 -0.664
11 0.325 -18.830 -3.497
12 0.325 -10.425 13.077
13 0.325 -16.588 -4.718
14 0.325 -14.829 -5.609
15 0.325 -6.369 -12.955
16 0.350 -0.028 -10.495
17 0.350 -2.468 8.142
18 0.300 2.517 -8.635
19 0.210 1.100 -7.300
20 0.350 -1.173 -6.608
21 0.370 -0.851 -5.770
22 0.370 -1.952 -5.314
The above numerical data are used for the analysis of the
subsonic wing. The wing is visualized as a collection of stepped beam
elements, each having its respective properties as shown in the above
tables. The natural frequencies obtained for the wing for each case are
given below.
Table 3.5
Natural frequencies of the subsonic wing case (1)
Table 3.7
Natural frequencies of the subsonic wing with E*=0.1E case (2b)
Table 3.8
Uniform beam Flutter results
UNIFORM BEAM
1.00E+00
REAL PART OF THE EIGEN VALUES ( )---->
0.00E+00
0.00E+00 5.00E+01 1.00E+02 1.50E+02 2.00E+02 2.50E+02
-1.00E+00
2nd bending
-2.00E+00 2nd torsion
1st torsion
3rd torsion
-3.00E+00
1st bending
3rd bending
-4.00E+00
4th bending
-5.00E+00
-6.00E+00
-7.00E+00
SPEED (U) (m/s)
PRESENT ANALYSIS
Fig 3.4 (a) Plot of Velocity (U) v/s real part () of the eigen value
NASTRAN
UNIFORM BEAM
250
1st bending
200 1st torsion
3rd bending
4th torsion
150
2nd bending
2nd torsion
100
3rd torsion
4th bending
50
0
0 20 40 60 80 100 120 140 160 180 200
SPEED (U) (m/s)
PRESENT ANALYSIS
Fig 3.4 (b) Plot of Velocity (U) v/s imaginary part () of the eigen value
3.2.2 Aircraft wing
The flutter analysis of the wing is also carried in the same way
with the inclusion of effect of shear center offset. The clean wing
modeled as having stepped beam elements is analysed as mentioned
before. The velocity v/s the real part of eigen values and velocity v/s
the imaginary part of eigen values are plotted from the complex eigen
values obtained from the present analysis and also from the
NASTRAN.
The velocity v/s damping curves i.e., v-g curves and the velocity
v/s frequency curves i.e., v-f curves can also be plotted. The relation
between the damping (g) values and eigen values and the relation
between the frequency (f) values and eigen values are as given below.
g= x 2 and f =
2
Hence the v-g and v-f curves can be plotted from the eigen
values and the same can also be obtained from NASTRAN.
The velocity v/s Real part and velocity v/s Imaginary part are
also plotted for the wing with reduced stiffness parameters. All the
graphs obtained are shown below in the Figs 3.5, 3.6, and 3.7
NASTRAN
SARAS WING
0
0 100 200 300 400 500 600 700 800
2nd bending
-5
3rd bending
-10
1st torsion
>
-15
3rd torsion
-30
-35
PRESENT ANALYSIS
Fig 3.5 (a) Plot of Velocity (U) v/s real part () of the eigen value
NASTRAN
SARAS WING
1200
IMAG PART OF THE EIGEN VALUE ( )------>
1000
800
1st bending
2nd bending
3rd bending
600 4th bending
1st torsion
2nd torsion
400 3rd torsion
200
0
0 100 200 300 400 500 600 700
PRESENT ANALYSIS
Fig 3.5 (b) Plot of Velocity (U) v/s imaginary part () of the eigen value
NASTRAN
10
REAL PART OF THE EIGEN VALUES ( )---->
0
0 100 200 300 400 500 600 2nd bending
3rd bending
1st torsion
-5
1st bending
3rd torsion
2nd torsion
-10
-15
-20
PRESENT ANALYSIS
Fig 3.6 (a) Plot of Velocity (U) v/s real part () of the eigen value
NASTRAN
900
IMAG PART OF THE EIGEN VALUE ( )------>
800
700
1st bending
600
2nd bending
500 3rd bending
2nd torsion
400 1st torsion
4th bending
300
3rd torsion
200
100
0
0 100 200 300 400 500 600
SPEED (U) (m/s)
PRESENT ANALYSIS
Fig 3.6 (b) Plot of Velocity (U) v/s imaginary part () of the eigen value
NASTRAN
2
REAL PART OF THE EIGEN VALUES ( )---->
0
0 50 100 150 200 250
-2 2nd bending
3rd bending
1st torsion
-4 2nd torsion
3rd torsion
1st bending
-6
-8
-10
SPEED (U) (m/s)
PRESENT ANALYSIS
Fig 3.7 (a) Plot of Velocity (U) v/s real part () of the eigen value
NASTRAN
400
IMAG PART OF THE EIGEN VALUE ()------>
350
300
1st bending
250 2nd bending
3rd bending
100
50
0
0 50 100 150 200 250
PRESENT ANALYSIS
Fig 3.7 (b) Plot of Velocity (U) v/s imaginary part () of the eigen value
The flutter speeds obtained from the graphs for the actual wing and for
the wing with reduced stiffness parameters are shown in the following
Table 3.9
Table 3.9
CONCLUSIONS
The beam model used yields reasonably good results for natural
frequencies. The natural frequencies obtained are in good agreement
with previously obtained natural frequencies of the clean wing through
NASTRAN (Ref [32] PD ST-0314) showing the validity of the present
analysis.
For the flutter analysis of the clean wing, the aerodynamic forces
are obtained by the quasi-steady subsonic aerodynamic theory. The
flutter results obtained by the present method are compared with those
obtained from the NASTRAN. The present analysis gives a
conservative value of flutter speed as compared to NASTRAN values.
The flutter graphs obtained from present analysis and through
NASTRAN are shown in the previous chapter. The comparison shows
the validity of present method for flutter analysis.
For the clean wing analysis of the SARAS aircraft, the flutter
speed is found to be beyond the subsonic regime, i.e., the wing does
not flutter in the subsonic flow. Even for the case of flutter speed that
exceeds the limit of subsonic regime, agreement of results show that
the method adopted is reasonably reliable. Analysis is carried out with
reduced stiffness parameters so that the flutter speed falls in the
subsonic regime. Again results agree with those from NASTRAN.
DIMENSION FUN(51000),SUMKT(10,10),SUMMT(10,10)
DIMENSION SUMKB(10,10),SUMMB(10,10),SUMMC(10,10)
DIMENSION STIFF(50,50),FMASS(50,50)
DIMENSION SUMH2(10,10),SUMH4(10,10)
DIMENSION SUML1(10,10),SUML2(10,10),SUML3(10,100),SUML4(10,10)
DIMENSION FHMAT(10,10),FLMAT(10,10)
DIMENSION TORSIONK(10,10),TORSIONM(10,10)
DIMENSION BENDINGK(10,10),BENDINGM(10,10)
DIMENSION COUPLEDM(10,10)
DIMENSION AEROH2(10,10),AEROH4(10,10)
DIMENSION AEROL1(10,10),AEROL2(10,10),AEROL3(10,10),AEROL4(10,10)
DIMENSION STIFF2(50,50),FMASS2(50,50)
DIMENSION WR(100),WI(100),FMASS1(50,50),STIFF1(50,50)
DIMENSION anl(10),a(10)
OPEN(1,FILE='wing.in')
OPEN(2,FILE='wing.out')
DO 9999 N = 1,4
DO 9999 M = 1,4
TORSIONK (N, M) = 0.0
TORSIONM (N, M) = 0.0
BENDINGK (N, M) = 0.0
BENDINGM (N, M) = 0.0
COUPLEDM (N, M) = 0.0
AEROH2 (N, M) = 0.0
AEROH4 (N, M) = 0.0
AEROL1 (N, M) = 0.0
AEROL2 (N, M) = 0.0
AEROL3 (N, M) = 0.0
AEROL4 (N, M) = 0.0
9999 CONTINUE
! Reading all the data of each section (material and inertia properties of each section)
PI=4.0*ATAN (1.0)
!----------------------------------------------------------------------------------
DO 500 N=1,MO
DO 500 M=1,MO
H=(U-FL)/ND
N1=ND+1
S1=0.0
S2=0.0
S3=0.0
S4=0.0
S5=0.0
S6=0.0
S7=0.0
S8=0.0
S9=0.0
S10=0.0
S11=0.0
PI=4.0*ATAN(1.0)
DO 60 I=1,N1
X=FL+(I-1)*H
CALL MT(N,M,X,UL,RHOM,FIXX,FFMT)
FUN(I)=FFMT
S2=2.0*FUN(I)+S2
60 CONTINUE
S2=S2-FUN(1)-FUN(N1)
SUMMT(N,M) = S2*H/2.0
TORSIONM(N,M) = TORSIONM(N,M) + SUMMT(N,M)
! aerodynamic matrices
DO 200 I=1,N1
X=FL+(I-1)*H
CALL HH2(N,M,X,UL,FH2)
FUN(I)=FH2
S6=2.0*FUN(I)+S6
200 CONTINUE
S6=S6-FUN(1)-FUN(N1)
SUMH2(N,M) = ((RHOA*PI)*S6*H/2.0)
AEROH2(N,M) = AEROH2(N,M) + SUMH2(N,M)
DO 210 I=1,N1
X=FL+(I-1)*H
CALL HH4(N,M,X,UL,YTHETA,FH4)
FUN(I)=FH4
S7=2.0*FUN(I)+S7
210 CONTINUE
S7=S7-FUN(1)-FUN(N1)
SUMH4(N,M) = ((RHOA*PI)*S7*H/2.0)
AEROH4(N,M) = AEROH4(N,M) + SUMH4(N,M)
DO 220 I=1,N1
X=FL+(I-1)*H
CALL LL1(N,M,X,UL,FFL1)
FUN(I)=FFL1
S8=2.0*FUN(I)+S8
220 CONTINUE
S8=S8-FUN(1)-FUN(N1)
SUML1(N,M) = RHOA*PI * S8*H/2.0
AEROL1(N,M) = AEROL1(N,M) + SUML1(N,M)
DO 230 I=1,N1
X=FL+(I-1)*H
CALL LL2(N,M,X,UL,YTHETA,FFL2)
FUN(I)=FFL2
S9=2.0*FUN(I)+S9
230 CONTINUE
S9=S9-FUN(1)-FUN(N1)
SUML2(N,M) = RHOA * PI * S9*H/2.0
AEROL2(N,M) = AEROL2(N,M) + SUML2(N,M)
DO 240 I=1,N1
X=FL+(I-1)*H
CALL LL3(N,M,X,UL,YTHETA,FFL3)
FUN(I)=FFL3
S10=2.0*FUN(I)+S10
240 CONTINUE
S10=S10-FUN(1)-FUN(N1)
SUML3(N,M) = -( (RHOA * PI ) * S10*H/2.0)
AEROL3(N,M) = AEROL3(N,M) + SUML3(N,M)
DO 250 I=1,N1
X=FL+(I-1)*H
CALL LL4(N,M,X,UL,DCL,YTHETA,FFL4)
FUN(I)=FFL4
S11=2.0*FUN(I)+S11
250 CONTINUE
S11=S11-FUN(1)-FUN(N1)
SUML4(N,M) = (0.5*RHOA)*S11*H/2.0
AEROL4(N,M) = AEROL4(N,M) + SUML4(N,M)
500 CONTINUE
WRITE (2,*) '"STIFFNESS MATRIX FOR PURE TORSION"'
DO 111 N=1,MO
DO 110 M=1,MO
WRITE (2,15) TORSIONK(N,M)
110 CONTINUE
WRITE (2,*)
111 CONTINUE
15 FORMAT (F15.4,$)
16 FORMAT (F19.15,$)
5555 CONTINUE
STOP
END
!--------------------------------------------------------------------------------------------------------------
! SUBROUTINES FOR THE COMPUTATION OF MODAL FUNCTIONS
!-------------------------------------------------------------------------------------------------------------
DIMENSION anl(10),a(10)
PI=4.0*ATAN(1.0)
anl(1) = 1.8753
anl(2) = 4.6941
anl(3) = 7.8547
anl(4) = 10.9953
a(1) = 1.8753/U
a(2) = 4.6941/U
a(3) = 7.8547/U
a(4) = 10.9953/U
AA = (a(N))**2
BB = (a(M))**2
RETURN
END
!-----------------------------------------------------------------------
! MASS MATRIX FOR BENDING
SUBROUTINE MB(N,M,X,U,RHOM,AREA,FMB)
DIMENSION anl(10),a(10)
PI=4.0*ATAN(1.0)
anl(1) = 1.8753
anl(2) = 4.6941
anl(3) = 7.8547
anl(4) = 10.9953
a(1) = 1.8753/U
a(2) = 4.6941/U
a(3) = 7.8547/U
a(4) = 10.9953/U
RETURN
END
!------------------------------------------------------------------------
! STIFFNESS MATRIX FOR TORSION
SUBROUTINE KT(N,M,X,U,G,FJ,FKT)
PI=4.0*ATAN(1.0)
A = ((2.0*N-1)*PI*X)/(2.0*U)
B = ((2.0*M-1)*PI*X)/(2.0*U)
C = (2.0*N-1)*PI/(2.0*U)
D = (2.0*M-1)*PI/(2.0*U)
FKT = G * FJ * (COS(A)*COS(B)) * C * D
RETURN
END
!------------------------------------------------------------------------
! MASS MATRIX FOR TORSION
SUBROUTINE MT(N,M,X,U,RHOM,FIXX,FFMT)
PI=4.0*ATAN(1.0)
A = ((2*N-1)*PI*X)/(2*U)
B = ((2*M-1)*PI*X)/(2*U)
RETURN
END
!--------------------------------------------------------------------
! COUPLED MASS MATRIX (IF THERE IS SHEAR CENTER OFFSET)
SUBROUTINE MC(N,M,X,U,AREA,YTHETA,FMC)
DIMENSION anl(10),a(10)
PI=4.0*ATAN(1.0)
anl(1) = 1.8753
anl(2) = 4.6941
anl(3) = 7.8547
anl(4) = 10.9953
a(1) = 1.8753/U
a(2) = 4.6941/U
a(3) = 7.8547/U
a(4) = 10.9953/U
B = ((2*M-1)*PI*X)/(2*U)
!-------------------------------------------------------------------------
! AERO DYNAMIC MATRICES
SUBROUTINE HH2(N,M,X,U,CHORD,FH2)
DIMENSION anl(10),a(10)
PI=4.0*ATAN(1.0)
anl(1) = 1.8753
anl(2) = 4.6941
anl(3) = 7.8547
anl(4) = 10.9953
a(1) = 1.8753/U
a(2) = 4.6941/U
a(3) = 7.8547/U
a(4) = 10.9953/U
B = ((2*M-1)*PI*X)/(2*U)
FH2 = CHORD*FH21*FH22
RETURN
END
!------------------------------------------------------------------------
SUBROUTINE HH4(N,M,X,U,YTHETA,CHORD,FH4)
PI=4.0*ATAN(1.0)
A = ((2*N-1)*PI*X)/(2*U)
B = ((2*M-1)*PI*X)/(2*U)
Y0 = (CHORD/2.0) - YTHETA
RETURN
END
SUBROUTINE LL1(N,M,X,U,CHORD,FFL1)
DIMENSION anl(10),a(10)
PI=4.0*ATAN(1.0)
anl(1) = 1.8753
anl(2) = 4.6941
anl(3) = 7.8547
anl(4) = 10.9953
a(1) = 1.8753/U
a(2) = 4.6941/U
a(3) = 7.8547/U
a(4) = 10.9953/U
FFL1 = CHORD*(FL11*FL12)
RETURN
END
!------------------------------------------------------------------------
SUBROUTINE LL2(N,M,X,U,YTHETA,CHORD,FFL2)
DIMENSION anl(10),a(10)
PI=4.0*ATAN(1.0)
anl(1) = 1.8753
anl(2) = 4.6941
anl(3) = 7.8547
anl(4) = 10.9953
a(1) = 1.8753/U
a(2) = 4.6941/U
a(3) = 7.8547/U
a(4) = 10.9953/U
B = ((2*M-1)*PI*X)/(2*U)
Y0 = (CHORD/2.0) - YTHETA
PI=4.0*ATAN(1.0)
anl(1) = 1.8753
anl(2) = 4.6941
anl(3) = 7.8547
anl(4) = 10.9953
a(1) = 1.8753/U
a(2) = 4.6941/U
a(3) = 7.8547/U
a(4) = 10.9953/U
B = ((2*N-1)*PI*X)/(2*U)
FL31= SIN(B)
FL32= (COSH(a(M)*X)-COS(a(M)*X)) - (SIG2 * (SINH(a(M)*X) - SIN(a(M)*X)))
Y0 = (CHORD/2.0) - YTHETA
RETURN
END
!------------------------------------------------------------------------
SUBROUTINE LL4(N,M,X,U,DCL,YTHETA,CHORD,FFL4)
PI=4.0*ATAN(1.0)
A = ((2*N-1)*PI*X)/(2*U)
B = ((2*M-1)*PI*X)/(2*U)
Y0 = (CHORD/2.0) - YTHETA
RETURN
END
!------------------------------------------------------------------------
APPENDIX I B
kc = zeros(4,4)
% "H1 MATRIX"
h1 = zeros(4,4);
% "H3 MATRIX"
h3 = zeros(4,4);
% stiffness matrix
stiff1 = [kb;kc];
stiff2 = [kc;kt];
stiff = [stiff1,stiff2];
ss = stiff
% mass matrix
mass1 = [mb;mc];
mass2 = [mc;mt];
mass = [mass1,mass2];
mm = mass
% aerodynamic matrices
aeroh1 = [h1;h3];
aeroh2 = [h2;h4];
hh = [aeroh1,aeroh2];
aerol1 = [l1;l3];
aerol2 = [l2;l4];
ll = [aerol1,aerol2];
% n = number of modes
n=4
u=-50.0;
for nn=1:17
u = u + 50.0
uu(nn) = u ;
a1 = zeros(2*n);
a2 = eye(2*n);
a3 = -( ss + (uu(nn)^2 * (hh)) );
a4 = -uu(nn)*(ll);
aa1 = [a1,a2];
aa2 = [a3,a4];
aa = [aa1;aa2];
b1 = eye(2*n);
b2 = zeros(2*n);
b3 = zeros(2*n);
b4 = mm;
bb1 = [b1,b2];
bb2 = [b3,b4];
bb = [bb1;bb2];
[v2,d2] = eig(aa,bb,'qz');
dd = (sort(diag(d2)))
end