扇形网格生成INP

wrj001

*PARAMETER
B=1    定义板厚;
R=10  内弧半径;
H=25  扇形宽;
NE=50    弧上单元数;
NEE=25  扇形宽上单元数;
NL=NE+1    弧上节点数、内弧上节点最大编号；
NE2=NE+2  弧上第二排首个节点编号；
NE3=NE+3  弧上第二排第二节点编号；
NC=NEE+1 扇形宽上节点行数；
NA=(NE+1)*(NEE+1)  扇形部分总节点数，外弧上节点最大编号；
NO=NA+1      圆心节点编号;
NW=NA-NE    外弧上首个节点编号;
H1=H+R        外弧半径;
*NODE  定义圆心及四个角节点;
<NO>,0,0,0
1,0, <R>,0.0   
<NL>,<R>,0, 0.0
<NW>,0 ,<H1> , 0.0   
<NA>,<H1>,0,0.0   
*NGEN,LINE=C, NSET=SOUTH  内弧节点;
1,<NL>,1, <NO>
*NGEN,LINE=C, NSET=NORTH  外弧节点;
<NW>, <NA>, 1,<NO>
*NFILL, NSET=PLATE  扇形填充节点;
SOUTH, NORTH, <NEE>, <NL>
*ELEMENT, TYPE=S4  首个单元定义;
1,1,2,<NE3>,<NE2>
*ELGEN, ELSET=SHELL  单元生成;
1,<NE>,1,1,<NEE>,<NL>,<NE>
*Shell Section, elset=SHELL, MATERIAL=STEEL
<B>
*Material, name=STEEL
*Elastic
210000.,0.3
*density
1.85e-9
*STEP
*FREQUENCY, eigensolver=lanczos
20
*END STEP

wrj001

这样，可不使用Abaqus 界面，直接使用文本方式编辑后，后缀改成INP
CMD提交即可