/COM,ANSYS MEDIA REL. 2024R2 (05/10/2024) REF. VERIF. MANUAL: REL. 2024R2
/VERIFY,VMP09-T4-188
/TITLE,VMP09-T4-188, CANTILEVER WITH OFF-CENTRE POINT MASSES
/COM,REFERENCE: TEST 4 FROM NAFEMS FVB

/PREP7
N,1,0.0
N,2,1.0
N,3,2.0
N,4,3.0
N,5,4.0
N,6,5.0
N,7,6.0
N,8,7.0
N,9,8.0
N,10,9.0
N,11,10.0
ET,1,188
SECN,1
N,101,5.0,5.0
N,201,10.0,0.0,5.0
E,1,2,101
E,2,3,101
E,3,4,101
E,4,5,101
E,5,6,101
E,6,7,101
E,7,8,101
E,8,9,101
E,9,10,101
E,10,11,101
SECT,1,BEAM,CSOLID
SECD,0.25
MP,EX,1,200E9
MP,NUXY,1,0.3
MP,DENS,1,8000.0
D,1,ALL
ET,2,188
TYPE,2
MP,EX,2,1.0E16
MP,NUXY,2,0.0
MP,DENS,2,0.0
MAT,2
REAL,2
SECN,2
SECT,2,BEAM,CSOLID
SECD,1.0
N,21,10.0,2.0
N,31,10.0,-2.0
E,11,21,201
E,11,31,201
ET,3,MASS21
TYPE,3
REAL,3
SECN,3
R,3,10000.0,10000.0,10000.0
E,21
ET,4,MASS21
TYPE,4
REAL,4
SECN,4
R,4,1000.0,1000.0,1000.0
E,31
/out,scratch
/SOLU
ANTYPE,MODAL
MODOPT,LANB,6
MXPAND,6
LUMPM,ON
SOLVE
FINISH
/out
/POST1
*DIM,FREQ,ARRAY,6
*GET,FREQ(1,1),MODE,1,FREQ
*GET,FREQ(2,1),MODE,2,FREQ
*GET,FREQ(3,1),MODE,3,FREQ
*GET,FREQ(4,1),MODE,4,FREQ
*GET,FREQ(5,1),MODE,5,FREQ
*GET,FREQ(6,1),MODE,6,FREQ
R1=FREQ(1,1)/1.723
R2=FREQ(2,1)/1.727
R3=FREQ(3,1)/7.413
R4=FREQ(4,1)/9.971
R5=FREQ(5,1)/18.155
R6=FREQ(6,1)/26.957

*DIM,VALUE,,6,2
*DIM,LABEL,CHAR,6
*DIM,RATIO,,6,1
LABEL(1) = 'FREQ 1','FREQ 2','FREQ 3','FREQ 4','FREQ 5','FREQ 6'
*VFILL,VALUE(1,1),DATA,1.723,1.727,7.413,9.972,18.155,26.957
*VFILL,VALUE(1,2),DATA,FREQ(1,1),FREQ(2,1),FREQ(3,1),FREQ(4,1),FREQ(5,1),FREQ(6,1)
*VFILL,RATIO(1,1),DATA,R1,R2,R3,R4,R5,R6

/COM
/COM
/COM,------------- VMP09-T4-188 RESULTS COMPARISON ---------------------
/COM,
/COM,         |   TARGET   |   Mechanical APDL   |   RATIO
/COM,
*VWRITE,LABEL(1),VALUE(1,1),VALUE(1,2),RATIO(1,1)
(1X,A8,'   ',F10.3,'  ',F14.3,'   ',1F13.3)
FINISH

/POST26
*DIM,LABEL1,CHAR,6
LABEL1(1) = ' MODE1',' MODE2',' MODE3',' MODE4',' MODE5',' MODE6'
*DIM,LABEL2,CHAR,6
*DIM,LABEL3,CHAR,6
LABEL2(1) = 'vmp09-t4','vmp09-t4','vmp09-t4','vmp09-t4','vmp09-t4','vmp09-t4'
LABEL3(1) = '-188','-188','-188','-188','-188','-188'

/OUT,vmp09-t4-188,vrt
/COM
/COM,-------------------- VMP09-T4 RESULTS COMPARISON ---------------------
/COM,
/COM,            |   Mechanical APDL   |   RATIO  |         INPUT         |
/COM,
/COM, BEAM188
*VWRITE,LABEL1(1),VALUE(1,2),RATIO(1,1),LABEL2(1),LABEL3(1)
(1X,A8,'      ',F12.4,'      ',F7.4,'        ',A8,A4)
/COM,
/COM,----------------------------------------------------------------
/OUT

FINISH
*LIST,vmp09-t4-188,vrt