相关代码 |
|
!综合实例2-2-6 FINI /CLE /FILNAME,EX2-2-6 /TITLE,EX2-2-6 /PREP7 CSYS,1 ! 转到柱坐标系下 !节点生成 /PNUM,NODE,1 ! 打开节点编号显示开关 *DO,I,0,30,1 ! 柱坐标Y方向31份,起始和终结时的节点重合 *DO,J,1,5,1 ! X方向分为5份 N,I*5+J,10+2.5*J,I*12,0 ! 圆环半径为10~20 *ENDDO *ENDDO !单元生成 /PNUM,ELEM,1 ! 打开单元编号显示开关 /PNUM,NODE,0 ! 关闭节点编号显示开关 ET,1,PLANE182 ! 定义PLANE182单元为1号单元 *DO,I,0,29,1 ! 柱坐标Y方向30份 *DO,J,1,4,1 E,I*5+J,I*5+J+1,I*5+J+6,I*5+J+5 *ENDDO *ENDDO NUMMRG,NODE !合并节点 NUMCMP,NODE !压缩节点编号 EPLOT