!EX5.2 BEAM18X系列后处理示例
!1.创建模型，定义截面...............................
FINISH
/CLEAR
/PREP7
K,1
K,2,5
K,3,5,5
L,1,2
ET,1,BEAM189
KEYOPT,1,4,2
MP,EX,1,2E11
MP,PRXY,1,0.3
SECTYPE,1,BEAM,RECT
SECDATA,0.24,0.3,2,2
LATT,1,,1,,3,,1
ENO=20
LESIZE,ALL,,,ENO
LMESH,ALL
DK,1,ALL
FK,2,FY,-100000.0
!绘图和列表显示栅格、栅点及积分点信息
SECPLOT,1,1
SLIST,1,1,,1,ALL
!2.求解并进入后处理..................................
FINISH
/SOLU
SOLVE
/POST1
/ESHAPE,1
PLESOL,S,EQV
/PNUM,SVAL,1
PLNSOL,S,X
PRSSOL,S,COMP
PRSSOL,,PRIN
!3.得到各单元最大和最小正应力.......................
*DIM,V1,,ENO
*DIM,V2,,ENO
*DO,I,1,ENO
*GET,V1(I),SECR,I,S,X,MAX
*GET,V2(I),SECR,I,S,X,MIN
*ENDDO
!4.得到各单元各节点截面各角栅点的应力分量SXX,SXZ,SXY....
CSNNUM=81
*DIM,MYSSS,,ENO,CSNNUM
*DO,I,1,ENO
*DO,K,1,CSNNUM
ETABLE,VAR%K%,LS,K
*ENDDO
*DO,J,1,CSNNUM
*GET,MYSSS(I,J),ELEM,I,ETAB,VAR%J%
*ENDDO
*ENDDO
!.................................................
!5.输出到文件（必须用读入文件方式执行，即/INPUT).........
*CFOPEN,MYRES,TXT
*VWRITE
('*********单元最大应力和最小应力*********')
*VWRITE
('单元号 最大应力 最小应力')
*DO,I,1,ENO
A1=V1(I)
A2=V2(I)
*VWRITE,I,A1,A2
(F6.0,2X,E15.6,5X,E15.6)
*ENDDO
*VWRITE
('**********各单元各节点截面各角栅点应力分量***********')
*DO,I,1,ENO
*VWRITE,I
('单元编号=',F6.0)
*VWRITE
('顺序号',8X,'应力')
*DO,J,1,CSNNUM/3
A1=MYSSS(I,3*J-2)
A2=MYSSS(I,3*J-1)
A3=MYSSS(I,3*J)
*VWRITE,J,A1,A2,A3
(F6.0,8X,E15.6,2X,E15.6,2X,E15.6)
*ENDDO
*ENDDO
*CFCLOSE
每次执行到
*VWRITE
('*********单元最大应力和最小应力*********')就会提示 “********is not a recognized POST1 command,abbreviation,or macro. 请问这是什么情况 我用的 ANSYS12.1 版本