!Vernetzung für MGebhardt
!Schätzing, 4.12.2008

finish  $/clear
*abbr,vernetzung,/input,Vernetzung3d,txt

dick=20e-3    !Dicke
breit=3*dick  !Breite
lang1=dick
lang2=lang1+dick/2
lang3=lang2+dick
lang4=lang3+dick/4
lang5=lang4+dick
!-------------------------------
/prep7
block,0,breit,0,dick,0,lang1
block,0,breit,0,dick,lang1,lang2
block,0,breit,0,dick,lang2,lang3
block,0,breit,0,dick,lang3,lang4
block,0,breit,0,dick,lang4,lang5
vglue,all
/view,,1,1,1
numcmp,volu
vplot
!---Vernetzung------
et,1,solid186

esize,dick/2
vmesh,1
esize,dick/4
vmesh,3
esize,dick/8
vmesh,5

mshape,1
esize
vmesh,2
vmesh,4