!Topologie-Optimierung
!eine Last
finish  $/clear
*abbr,topopti,/input,topopti,txt

!-------Parameter-----
breit=3      !Breite
hoch=1       !Höhe
basbrei=0.4  !Basis-Breite
/prep7
et,1,plane82
et,2,plane82
mp,ex,1,118e9
mp,nuxy,1,0.3
!-----Geometrie--------------
rectng,0,basbrei,0,hoch
rectng,basbrei,breit,0,hoch
aglue,all
!A1:Basis   A3:Material

!/eof

!------Vernetzung-----------------
esize,hoch/20
type,2
amesh,1
type,1
!mshkey,0
!mshape,1,2D
amesh,3
!----Randbedingungen-----------
!---Einspannung----------
nsel,s,loc,x,0
d,all,ux,0
d,all,uy,0
!-----Last---------
nsel,s,loc,x,breit
nsel,r,loc,y,0
f,all,fy,-1000
allsel
!------------------
/solu
topdef,50,1   !Materialeinsparung
topiter,100,1  !Iterationszahl
!--------------
/post1
plns,topo