/PREP7
SMRT,OFF
/units,si
/TITLE, VM66, VIBRATION OF A FLAT PLATE
C*** VIBRATION PROBS. IN ENGR., TIMOSHENKO, 3RD. ED., PAGE 338, ART. 53
C*** USING SHELL63 ELEMENTS WITH SHELL OPTION
ANTYPE,MODAL ! MODE-FREQUENCY ANALYSIS
ET,1,SHELL63
R,1,0.002 ! THICKNESS = 0.002
MXPAND,8 ! EXPAND FIRST MODE
MODOPT,LANB,5,,,2 ! PRINT ALL REDUCED MODE SHAPES
MP,EX,1,2E11
MP,DENS,1,7.86E3
MP,NUXY,1,0.3
K,1,,0 !Defines a keypoint,NPT, X, Y;
K,2,0.38,0
KGEN,2,1,2,1,,0.3 !产生额外的2个keypoint,DY=0.6
L,1,3 !Defines line
L,2,4
LESIZE,ALL,,,8 ! 分割线段, NL1=all,ndiv=8;
A,1,2,4,3 ! 分割线段的关键点走向,1,2点,4,3点直线
ESIZE,,8 ! 定义默认线段划分数 NDIV=4
AMESH,1 ! Generates nodes and area elements within areas
!NSEL,S,LOC,Y,0.15 ! 选择一系列点,S 选择新的系列,Y =0.3
!M,ALL,UZ ! Defines master degrees of freedom for reduced and superelement generation analyses.
/pnum,line,1 !Controls entity numbering/coloring on plots.
LPLOT, All
dl,2,,uz !Defines DOF constraints on lines. DL, LINE, AREA, Lab, Value1, Value2(x=0.38)
dl,1,,ux !Defines DOF constraints on lines. DL, LINE, AREA, Lab, Value1, Value2(x=0)
dl,1,,uy
dl,1,,uz
dl,1,,Rotx
dl,1,,Rotz
BETAD,0.01
UTPR,ALL,1
FINISH
*CREATE,SOLVIT,MAC ! CREATE MACRO TO SOLVE AND RETRIEVE RESULTS
/SOLU
SOLVE
*GET,FREQ,MODE,1,FREQ
*DIM,LABEL,CHAR,1,2
*DIM,VALUE,,1,3
LABEL(1,1) = ' f, '
LABEL(1,2) = 'Hz '
*VFILL,VALUE(1,1),DATA,128.09
*VFILL,VALUE(1,2),DATA,FREQ
*VFILL,VALUE(1,3),DATA,ABS(FREQ/128.09)
FINISH
*END
SOLVIT ! EXECUTE MACRO TO SOLVE AND RETRIEVE RESULTS
SAVE,TABLE_1
|