!++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!+         Strukturanalyse Hochhaus                     +
!+  Datei:                                              +
!+  Autor:                                              +
!+  Datum:                                              +
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++

!Leeren der Datenbasis
 finish
 /clear,start

!Starten des Preprozessors
 /prep7

!Parameter definieren 
!Einheiten in [kN] und [m]

 LAENGEX = 16
 LAENGEY = 16
 BREITEG =  7
 INNENK  =  9
 DICKEB  = 0.3
 WANDB   = 0.2
 HOEHEB = 3

 MYEKX = 30000000                               !E-Modul in Richtung X
 MYEKY = 30000000                               !E-Modul in Richtung Y
 MYEKZ = 30000000                               !E-Modul in Richtung Z
 MYVKX = 0.2                                    !Querkontraktionszahl in Richtung X
 MYVKY = 0.2                                    !Querkontraktionszahl in Richtung Y
 MYVKZ = 0.2                                    !Querkontraktionszahl in Richtung Z

 csys,0
 rectng,0,LAENGEX,0,LAENGEY
 cyl4,LAENGEX,0,INNENK
 cyl4,LAENGEX,0,(BREITEG+INNENK)
 aovlap,all

 lsel,s,loc,x,BREITEG,LAENGEX
 lsel,r,loc,y,LAENGEY
 asll,s,l
 adele,all,,,1
 alls

 lsel,s,loc,x,0,LAENGEX
 lsel,r,loc,y,(-BREITEG/2),-LAENGEY
 asll,s,l
 adele,all,,,1
 alls

 lsel,s,loc,x,LAENGEX-INNENK/2,LAENGEX
 lsel,r,loc,y,INNENK/2
 asll,s,l
 adele,all,,,1
 alls

 numcmp,all

 vext,all,,,,,DICKEB

 et,1,solid185
 keyopt,1,2,0
 mp,ex,1,MYEKX                                !Elementtyp 2 wird E-Modul in x-Richtung zugeordnet
 mp,ey,1,MYEKY                                !Elementtyp 2 wird E-Modul in y-Richtung zugeordnet
 mp,ez,1,MYEKZ                                !Elementtyp 2 wird E-Modul in z-Richtung zugeordnet
 mp,prxy,1,MYVKX                              !Elementtyp 2 wird Querkontraktion in xy-Ebene zugeordnet
 mp,pryz,1,MYVKY                              !Elementtyp 2 wird Querkontraktion in yz-Ebene zugeordnet
 mp,prxz,1,MYVKZ                              !Elementtyp 2 wird Querkontraktion in xz-Ebene zugeordnet
  
 
 local,11,0,0.0,0.0,DICKEB
 cyl4,LAENGEX,0,LAENGEX,180,(LAENGEX-WANDB),90,HOEHEB


/eof










! vmesh,all
! vsweep,all
 
/eof