!
! Zuglasche
!   Name des Studierenden:
!   
!
fini
/clear
/BATCH
! Definition jobname
/FILNAM,Zuglasche
/title,Zuglasche
!***
!***   Einlesen von Geometriedaten
!***
! die folgenden Parameter sind zu aendern, bis s_eqv =< s_zul ist
a=85
b=10
c=50
!
!
t1=2.5
ri1=25
lang=160
/input, ZuglascheGeo,txt
aplot
!***
!***   Parameter

F0=2000
q0=F0/ri1

!***
! Materialdaten

EST = 210000.0
NUST = 0.3 	

! Belastungen


C***
C***   Preprocessor
C***
/PREP7
!
! ** Element

et,1,plane183
keyopt,1,3,3


! ** Geometrie

r,1,t1


!
! ** Material

MP,EX,1,EST			! E-Modul
MP,PRXY,1,NUST		! Querkontraktion

!
! ** Vernetzung

smrtsize,8
amesh,all
aref,all,,,2           ! ??????????????????????????????????????????????????????????????????????

!
! ** Lagerbedingungen  ! ??????????????????????????????

DL,12,1,uy
DL,51,1,uy
DL,52,1,uy
DL,17,1,uy

Local,11,1,160,0,0
CSYS,11
NROTAT,all
LSEL,s,line,,7
LSEL,a,line,,9
NSLL,s,1
DL,all,1,rotx
DL,all,1,roty


CSYS,0
ALLSEL

!
! ** Lasten
! Linienlast auf Kurbelbolzen

sfl,2,pres,q0/t1


SAVE
FINISH
C***
C***   Solution
C***
/SOLUTION
SOLVE				! Lösen des Gleichungssystems
SAVE
FINISH
/POST1
plesol,s,eqv                   !Ungemittelte Vergleichsspannung anzeigen