fini   $   /cle
/title, test

!-------------Geometriedaten

!---Materialdaten---
E=210000000000	!E-Modul  [N/m^2]
v=0.3	!Querkontraktionszahl definieren
lambda1=30

!--------------------PREP7----------------------
/prep7		!Preprocessor starten

!---Materialvereinbarung----
mp, ex,1,E	!E-Modul für Material 1
mp, nuxy,1,v	!Querdehnung für Material 1
mp, kxx , 1, lambda1

!---Elementvereinbarung---




!---Geometrievereinbarung----
rectng, 0,0.0075,0.03 ,0.032
rectng, -0.0001,0,0.032,0.045
rectng, 0,0.0075,0.032,0.045
rectng, 0,0.0075,0.045,0.047
aglue,all

k,123,0,0,0
k,1234,0.1

VROTAT, all, , , , , , 123, 1234, 90, 1
!---Vernetzung---


et,2,55
type,2
lsel,s,loc,x,0,-0.0001
lsel,r,loc,z,0
lesize,all,0.0002
allsel
lsel,s,,,2
lsel,a,,,17
lsel,a,,,22
lesize,all,0.001
allsel
lsel,s,,,15
lsel,a,,,3
LESIZE, all, 0.0008, , , 0.1, 
allsel
lsel,s,,,1
lsel,a,,,19
LESIZE, all, 0.0008, , , 10, 
allsel
asel,s,loc,z,0
mshkey,2
amesh,all

et,1,solid70
mat,1
type,1
esize,0.001
vsweep,1,1,9
vsweep,2,5,13
vsweep,3,6,17
vsweep,4,7,21


/solu

csys,0
!leistung in die platte durch reibung
vsel,s,,,3
nslv,s,1
BF,all,HGEN,3752304
allsel

csys,1
*do,i,1,100
  asel,s,,,16
  nsla,s,1
  nsel,r,loc,y,0.0032+((i-1)*(0.0045-0.0032)/100),0.0032+(i*(0.0045-0.0032)/100)
  sf,all,conv,50,95+i*(10/100)
  allsel	
*enddo


allsel

fini		!Verlassen des Preprozessors

/solu
solve
                
fini		!Verlassen des Solutionsprozessors

!--------------------POST1---------------------- 
/post1		!Postprozessor starten
PLNSOL, TEMP,, 0