/batch
fini
/clear
/units,si
/filname,Einfahrmechanismus,1
/color,pbak,1,3,5
/device,font,1,Calibri
/device,font,2,Calibri,,,22
/device,font,3,Calibri
/replot
/pnum,kp,1
/pnum,line,1
/pnum,area,1
/pnum,volu,0
/facet,normal
/graphics,full
!btol,1e-7
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

! PARAMETER
!####################################################################################


!#####################################################################################
!############################ START DES PREPROZESSORS ################################
!#####################################################################################
/prep7

! Elementtyp
!===========
et,1,pipe16

! Materialdefinition 
!====================

! Aluminium:

mp,ex,1,70*e9
mp,prxy,1,0.3
mp,dens,1,2700

! Real Constants
!===============
r,1,0.032,0.004

! Geometrie
!===============

x1	= 0
x2	=-0.170257
x3	=-0.207607
x4	=-0.346327
y1	= 0
y2	= 0
y3	= 0
y4	= 0
z1	= 0
z2	=-0.10494
z3	=-0.14405
z4	=-0.931932
w	= 1.5

k,1,x1,y1,z1
k,2,x2,y2,z2
k,3,x3,y3,z3
k,4,x4,y4,z4
k,5,x4+w,y4,z4
k,6,x3+w,y3,z3
k,7,x2+w,y2,z2
k,8,x1+w,y1,z1

k,10,x1,y1,z1
k,20,x2,y2,z2
k,40,x4,y4,z4
k,50,x4+w,y4,z4
k,70,x2+w,y2,z2
k,80,x1+w,y1,z1

l,1,20
l,2,3
l,3,40
l,4,50
l,5,6
l,6,70
l,7,80
l,8,10

! Vernetzung, Lagenzuweisung
!===========================
allsel
lesize,all,0.005
latt,1,1,1
lmesh,all

! Randbedinungen
!===============
allsel
d,all,uy,0

nsel,s,,,732		! Verschiebung
d,all,ux,0

lsel,s,,,8
nsll,s
d,all,uz,0

ksel,s,,,3,6,3
nslk,s
d,all,ux,0
d,all,uy,0
d,all,uz,0
d,all,rotx,0
d,all,rotz,0

ksel,s,,,1,10,9
nslk,s
cp,1,ux,all
cp,2,uy,all
cp,3,uz,all
cp,4,rotx,all
cp,5,rotz,all
d,all,uy,0

ksel,s,,,2,20,18
nslk,s
cp,21,ux,all
cp,22,uy,all
cp,23,uz,all
cp,24,rotx,all
cp,25,rotz,all
d,all,uy,0

ksel,s,,,4,40,36
nslk,s
cp,31,ux,all
cp,32,uy,all
cp,33,uz,all
cp,34,rotx,all
cp,35,rotz,all
d,all,uy,0

ksel,s,,,5,50,45
nslk,s
cp,41,ux,all
cp,42,uy,all
cp,43,uz,all
cp,44,rotx,all
cp,45,rotz,all
d,all,uy,0

ksel,s,,,7,70,63
nslk,s
cp,51,ux,all
cp,52,uy,all
cp,53,uz,all
cp,54,rotx,all
cp,55,rotz,all
d,all,uy,0

ksel,s,,,8,80,72
nslk,s
cp,61,ux,all
cp,62,uy,all
cp,63,uz,all
cp,64,rotx,all
cp,65,rotz,all
d,all,uy,0

! Kraft
! =====

Fz = 48*9.81	! [N]

xFZ=x4+1.467
lsel,s,,,4
nsll,s,1
nsel,r,loc,x,xFZ,xFZ+0.004
f,all,fz,-Fz

allsel
/pbc,all,,2
eplot


fini
/eof

fini

!##########################################################################################
!############################## Start Lösungsalgorithmus ##################################
!##########################################################################################
/solu
allsel
antype,static,new

solve

fini

!##########################################################################################
!############################## Start der Auswertung ######################################
!##########################################################################################
/post1
/graphics,full



fini
/eof