/TITLE, 2-D Two-Story reinforcement problem - Maximize fundamental frequency
A=0.25 ! Prepare Model
B=5
C=0.375
D=8
E=3.75
/PREP7
K,1
K,2,C
K,3,C+A
K,4,B/2
K,5,,E
K,6,C,E
K,7,C+A,E
K,8,B/2,E
KSEL,S,,,5,8
KGEN,2,ALL,,,,A
KSEL,S,,,9,12
KGEN,2,ALL,,,,E
KSEL,S,,,13,16
KGEN,2,ALL,,,,A
ALLSEL
A,1,2,6,5
A,5,6,10,9
A,9,10,14,13
A,13,14,18,17
A,2,3,7,6
A,6,7,11,10
A,10,11,15,14
A,14,15,19,18
A,3,4,8,7
A,7,8,12,11
A,11,12,16,15
A,15,16,20,19
ET,1,82 ! Define two element type regions
ET,2,82 ! 1 - optimized region
ASEL,S,,,4,8 ! 2 - non-optimized region
ASEL,A,,,10,12,2
TYPE,2
ESIZE,0.1
AMESH,ALL
ASEL,INVE
TYPE,1
AMESH,ALL
ALLSEL
MP,EX,1,100 ! Material of structure
MP,NUXY,1,0.3
MP,DENS,1,1.0D-6
MP,EX,2,100 ! Material of concentrated masses
MP,NUXY,2,0.3
MP,DENS,2,5.0D-6
ASEL,S,,,6,8,2
ESLA,S,1
EMODIF,ALL,MAT,2 ! Define concentrated masses
ALLSEL
LOCAL,11,0,2.5
ARSYM,X,ALL ! Full model
NUMM,KP
NUMM,ELEM
NUMM,NODE
LSEL,S,,,14
LSEL,A,,,45
NSLL,S,1
D,ALL,ALL
ALLSEL
FINISH
TOFREQ,FREQ1,SING,1 ! Define single frequency function (1st)
TOVAR,FREQ1,OBJ ! Define objective for topological optimization
TOVAR,VOLUME,CON, ,14,ACTUAL ! Define volume constraint (upper bound = 14)
TOTYPE,SCP ! Select SCP solution approach
TODEF,0.00001, ! Initialize topological optimization process,
accuracy = 0.00001
TOLOOP,40,1 ! Perform up to 40 iterations
FINISH
TOPLOT,1 ! Plot final pseudo-densities
TOGRAPH,OBJ ! Graph final objective (1st frequency) history
TOGRAPH,CON ! Graph final constraint (volume) history
相关文章
- 2021-08-30电气CAD实例教程AutoCAD 2010中文版 [左昉 等编著] 20
- 2021-08-24经典实例学设计AutoCAD 2016从入门到精通 [李轲 编著]
- 2021-08-21AutoCAD 2013建筑设计与实例精讲中文版 [本社 编] 201
- 2021-08-21AutoCAD 2013建筑设计与施工图绘制实例教程中文版 [麓
- 2021-08-21AutoCAD 2013机械绘图实例教程中文版 [陈志民 等编著]
- 2021-08-20AutoCAD 2012机械绘图基础与实例中文版 [田蕴 编] 201
- 2021-08-18完全实例自学AutoCAD 2012机械绘图 [唯美科技工作室
- 2021-08-18完全实例自学AutoCAD 2012建筑绘图 [唯美科技工作室
- 2021-08-12AutoCAD 2012机械绘图基础与实例中文版 [田蕴 编] 201
- 2021-08-09中文版AutoCAD 2013机械制图实例教程 [曹利杰,韩炬,王宝