XANSYS Message: 84 [Go back to message list]
[bookmark on del.icio.us]
No rating yet
Subject: Re: Matrix27 help!
Author: Charles Rajakumar
Date: 1998-12-18 08:49:00INPUT FOR UNBALANCE RESPONSE - Page 1
Attached below is a sample input data that uses MATRIX27 for a simple
rotordynamic
model. The parameterized REAL (and RMORE) command can be tailored to
input a
matrix (perhaps this will simplify a little bit!).
Charles Rajakumar
Ansys, Inc.
charles.rajakumar@a...
/PREP7
/TITLE, EXAMPLE ON ROTOR DYNAMICS * HARMONIC ANALYSIS
C*** FOR UNBALANCE RESPONSE.
ANTYPE,HARMIC * (UNSYMMETRIC ELEMENT MATRICES)
C*** GYROSCOPIC TERM NONZERO
C*** RDYN2 (CRK)
C***
RSIZE,144
C*** SET PARAMETERS
C*** SUPPORT STIFFNESS COEFFICIENTS
KXX=1.14E8 * | KXX KXY |
KXY= .1E7 * | |
KYX= .1E7 * | KYX KYY |
KYY= .72E8
C*** SUPPORT DAMPING COEFFICIENTS
CXX= .59E6 * | CXX CXY |
CXY=.1E5 * | |
CYX=.1E5 * | CYX CYY |
CYY= .17E6
C***
MA=566 * ROTOR MASS,
IT=18.1 * TRANSVERSE INERTIA,
IP=36.2 * POLAR MASS MOMENT OF INERTIA
UNB=1E-5 * AND UNBALANCE MASS*RADIUS
C***
ET,1,27,,1,4,1 * SPRING SUPPORTS (LEFT HAND SIDE)
N,1 $N,2
E,2,1
ET,2,27,,,5,1 * DAMPER SUPPORTS (LEFT HAND SIDE)
TYPE,2 $REAL,2
E,2,1
ET,3,27,,,2,1 * MASS AND TRANSVERSE INERTIA
N,3,,,.10925
N,6,,,.10925
TYPE,3 $REAL,3
E,3,6
ET,4,27,,1,5,1 * GYROSCOPIC MOMENT
TYPE,4 $REAL,4
E,3,6
N,4,,,.437 * SPRING SUPPORTS (RIGHT HAND SIDE)
N,5,,,.437
TYPE,1 $REAL,1
E,4,5
TYPE,2 $REAL,2 * DAMPER SUPPORTS (RIGHT HAND SIDE)
E,4,5
ET,5,59 * SHAFT ELEMENT (STIF59 IS A PIPE
C*** ELEMENT AND IT IS USED AS A BEAM
C*** ELEMENT HERE SINCE IT GENERATES
C*** CONSISTENT MASS MATRIX AND HAS THE
C*** CORRECT SHEAR DEFLECTION CHARACTER-
C*** ISTICS FOR A SOLID CROSS SECTION)
R,5,.091
EX,,.2E12
DENS,,.775E4
TYPE,5 $REAL,5
E,2,3
E,3,4
KBC,1 $KRF,1
D,1,ALL,0,0,5,4 * FIX THE SUPPORTS
D,6,ALL,0,0 * SUPPRESS THE DEGREES OF FREEDOM OF THE NODE
C*** USED TO DEFINE MASS MATRIX AND GYROSCOPIC
C*** COUPLING TERMS IN THE DAMPING MATRIX
D,2,UZ,0,0,4,1,ROTZ
C***
FQN=20
FIN=10
*CREATE,MAC * GENERATE UNBALANCE FORCE AND GYROSCOPIC
C*** TERM FOR EACH FREQUENCY OF THE HARMONIC
C*** RESPONSE CALCULATIONS
HARF,FQN,FQN
OME=FQN*6.2832
GYRO=OME*IP
C***
F1=OME*OME
FORC=F1*UNB
F,3,FX, FORC
F,3,FY,,-FORC
LWRITE
FQN=FQN+FIN
*END
*USE,MAC
REPEAT,29
C*** *** SPECIFY REAL CONSTANTS ***
C*** SUPPORT STIFFNESS
R,1,KXX,KXY $RMORE,-KXX,-KXY
$RMORE,KYY,,,,,-KYX
RMORE,-KYY $RMORE $RMORE
RMORE $RMORE $RMORE
RMORE,,,,KXX,KXY $RMORE,,,,KYY $RMORE
RMORE $RMORE,KYX $RMORE
RMORE,,,,-KXX,-KXY $RMORE,,,,-KYX,-KYY
$RMORE,,,,KYX
C*** SUPPORT DAMPING
R,2,CXX,CXY $RMORE,-CXX,-CXY
$RMORE,CYY,,,,,-CYX
RMORE,-CYY $RMORE $RMORE
RMORE $RMORE $RMORE
RMORE,,,,CXX,CXY $RMORE,,,,CYY $RMORE
RMORE $RMORE,CYX $RMORE
RMORE,,,,-CXX,-CXY $RMORE,,,,-CYX,-CYY
$RMORE,,,,CYX
C*** MASS AND TRANSVERSE INERTIA
R,3,MA $RMORE,-MA $RMORE,MA
RMORE,-MA $RMORE
$RMORE,,,,IT
RMORE,,,,-IT $RMORE,IT $RMORE,-IT
RMORE,,,,MA $RMORE,,,,MA $RMORE
RMORE,IT,,,IT
C*** GYROSCOPIC MOMENT DATA
R,4 $RMORE $RMORE
RMORE $RMORE
$RMORE,,,,,-GYRO
RMORE,,,,,GYRO $RMORE,,,,,,-GYRO $RMORE
RMORE $RMORE $RMORE
RMORE,,-GYRO $RMORE
$RMORE,,,,GYRO
RMORE $RMORE $RMORE
RMORE $RMORE,,,,,GYRO $RMORE
RMORE,-GYRO $RMORE,GYRO
FINISH
/SOLVE
SOLVE
FINISH
/POST26
/SHOW,RDYN2,grph,1
C*** PLOT THE X AND Y DISPLACEMENTS AT MID SPAN
DISP,2,2,UX
DISP,3,3,UX
DISP,4,4,UX
DISP,5,2,UY
DISP,6,3,UY
DISP,7,4,UY
PRVAR,2,3,4,5,6,7
LOG,,1
YLABEL,DFLN
XRANGE,0,300
PLVAR,3,6
FINISH
> -----Original Message-----
> From: John Swanson
> Sent: Thursday, December 17, 1998 4:21 PM
> To: Charles Rajakumar
> Subject: FW: [xansys] Matrix27 help!
> Do we have any examples which would help?
> John
> -----Original Message-----
> From: rtong@v... [SMTP:rtong@v...]
> Sent: Thursday, December 17, 1998 11:27 AM
> To: xansys@o...
> Subject: [xansys] Matrix27 help!
> From: rtong@v...
> Hi, xansys,
> I am struggling with Matrix27 to model stiffness, mass and dumping.
> Stiffness and mass seem to be easier. But damping is quite difficult
> for
> me. I am trying to use it to model the gyrocopic effect for a
> generator. I
> wonder if any one has more experience with Matrix27 and gives me some
> suggestions. Thanks a lot in advance!
> Ruicheng