命令流:
/COM,ANSYS MEDIA REL. 7.1 (03-13-2003) REF. VERIF. MANUAL: REL. 7.1
/VERIFY,VM34
/PREP7
/TITLE, VM34, BENDING OF A TAPERED PLATE (BEAM)
! INTROD. TO STRESS ANALYSIS, HARRIS, 1ST PRINTING, PAGE 114, PROB. 61
! PLATE ELEMENTS (SHELL63)
ANTYPE,STATIC ! STATIC ANALYSIS
ET,1,SHELL63,2
R,1,.5 ! THICKNESS = 0.5
MP,EX,1,30E6
MP,NUXY,1,0 ! POISSON'S RATIO IS ZERO
N,1
N,8,20,-1.5
FILL
N,11
N,18,20,1.5
FILL
E,1,2,12
E,2,3,12
E,13,12,3
E,3,4,14
E,14,13,3
EGEN,3,2,2,5
CP,1,UZ,2,12 ! COUPLE APPROPRIATE DEGREES OF FREEDOM
CP,2,ROTY,2,12
CPSGEN,6,1,1,2 ! GENERATE 6 SETS OF EQUATIONS
OUTPR,ALL,ALL
D,8,ALL,,,18,10
D, ALL,ROTX,0 ! REMOVE "TORSIONAL" DEGREES OF FREEDOM
F,1,FZ,-10
FINISH
/SOLU
SOLVE
FINISH
/POST1
ETABLE,STRS,S,1 ! STORE S1(TOP) FOR SHELL63
ESORT,STRS ! SORT ELEMENTS BASED ON S1(TOP)
*GET,SMAX,SORT,,MAX ! GET MAXIMUM S1 AS SMAX
PRNSOL,DOF ! PRINT NODAL DISPLACEMENTS
LFT_NODE = NODE (0,0,0)
*GET,DEFL,NODE,LFT_NODE,U,Z
*DIM,LABEL,CHAR,2,2
*DIM,VALUE_C1,,2,3
LABEL(1,1) = 'DEFLECTI','MX_PRIN_'
LABEL(1,2) = 'ON (in) ','STRS psi'
*VFILL,VALUE_C1(1,1),DATA,-.042667,1600
*VFILL,VALUE_C1(1,2),DATA,DEFL,SMAX
*VFILL,VALUE_C1(1,3),DATA,ABS(DEFL/.042667 ) ,ABS( SMAX/1600 )
SAVE,TABLE_1
FINISH
/CLEAR, NOSTART
/PREP7
/TITLE, VM34, BENDING OF A TAPERED PLATE (BEAM)
! TAPERED BEAM ELEMENTS (BEAM44)
ANTYPE,STATIC ! STATIC ANALYSIS
ET,1,BEAM44
*DO,I,1,10 ! CREATE DO LOOP FOR REAL CONSTANTS
R,I, 1,1,.003125*(I-1),.25,1
RMORE,1,1,.003125* I ,.25,1
*ENDDO
RMOD,1,3,.5E-3 ! GIVE FREE END A POSITIVE MOMENT OF INERTIA
RLIST
MP,EX,1,30E6
MP,GXY,1,30E6/2.6
N,1
N,11,20
FILL
N,12,,,1 ! NODE 12 FOR ALIGNING BEAM AXES
NGEN,10,1,12 ! NODES 12 TO 21 ARE COINCIDENT
E,1,2,12
EGEN,10,1,1,,,,,1 ! GENERATE ELEMENTS WITH REAL CONSTANT INCREASED BY 1
D,11,ALL
D,1,UY,,,10,,ROTX,ROTZ
F,1,FZ,-10
OUTPR,ALL,ALL
FINISH
/SOLU
SOLVE
FINISH
/POST1
ETABLE,STRS,NMISC,1 ! STORE SMAX (MAXIMUM STRESS) FOR BEAM44
ESORT,STRS ! SORT ELEMENTS BASED ON SMAX (MAXIMUM STRESS)
*GET,SMAX,SORT,,MAX ! GET MAXIMUM STRESS AS SMAX
PRNSOL,DOF ! PRINT NODAL DISPLACEMENTS
LFT_NODE = NODE (0,0,0)
*GET,DEFL,NODE,LFT_NODE,U,Z
*DIM,LABEL,CHAR,2,2
*DIM,VALUE_C2,,2,3
LABEL(1,1) = 'DEFLECTI','MX_PRIN_'
LABEL(1,2) = 'ON (in) ','STRS psi'
*VFILL,VALUE_C2(1,1),DATA,-.042667,1600
*VFILL,VALUE_C2(1,2),DATA,DEFL,SMAX
*VFILL,VALUE_C2(1,3),DATA,ABS(DEFL/.042667 ) ,ABS( SMAX/1600 )
SAVE,TABLE_2
RESUME,TABLE_1
/COM
/OUT,vm34,vrt
/COM,------------------- VM34 RESULTS COMPARISON ---------------
/COM,
/COM, | TARGET | ANSYS | RATIO
/COM,
/COM,RESULTS USING SHELL63:
/COM,
*VWRITE,LABEL(1,1),LABEL(1,2),VALUE_C1(1,1),VALUE_C1(1,2),VALUE_C1(1,3)
(1X,A8,A8,' ',F12.6,' ',F12.6,' ',1F5.3)
/NOPR
RESUME,TABLE_2
/GOPR
/COM,
*VWRITE,LABEL(1,1),LABEL(1,2),VALUE_C2(1,1),VALUE_C2(1,2),VALUE_C2(1,3)
(1X,A8,A8,' ',F12.6,' ',F12.6,' ',1F5.3)
/COM,-----------------------------------------------------------
/OUT
FINISH
*LIST,vm34,vrt |