Page 539 - Fluid-Structure Interactions Slender Structure and Axial Flow (Volume 1)

NONLINEAR DYNAMICS THEORY APPLIED TO A PIPE CONVEYING FLUID 509

Do[DoEC
If [i==j,
rc [ i , j ] = - ( ar*rl[ j 1 "4 + 2.0 *Sqrt [beta 1 *u*bb 1 i , j 1 1 ,
rc [ i , j ] = - ( 2 . 0 Sqrt [beta 1 *u *bb 1 i , j 1 1 1 ,
If [i== j,
rk[i, j] = -(rl[j1*4 +uA2*cc[i, j1 + gama*ee[i,jl),
rk[i, j] = -(uA2*cc[i, j1 + oams*ee[i,jl)l),
{j,nmode)I,{i,nmode~l;

{lam, vecs ) I ~igensyetem[al;
Clear [mu] ;
DO [print [lam[ Cilll, {i,2*nmoBe)l
ptp[ll = Re[vecs[[llll;
~tpC21 = 1m~vecs[[2111;
ptp[31 = Re[VeCS[[3111;
ptpI41 = ~m[vecs 1141 11 ;
ptem = ~able[ptp[il,{i,2*ne~l;
p = TranBpOSe Ipteml ;
aa = InverseCpl .a.p;
-0.000373452 + 16.1603 I
-0.000373452 - 16.1603 I
-13.9327 + 3.25323 I
-13.9327 - 3.25323 I