!Combin14 Elemente
!"schwache Federn"
/PREP7
! Elementtype
ET,1,SOLID185
ET,2,CONTA173
!ET,2,CONTA173,,1 !für penalty func
ET,3,TARGE170
ET,4,14

!Materialkennwert Stahl
MP,EX,1,2E5
MP,NUXY,1,0.3
TB,BISO,1		!data table for material properties, bilinear isotropic hardening using von mises or hill plastic
TBDATA,1,200,1000
!
mp,ex,2,210000
mp,nuxy,2,0.3
!
mp,mu,3,0.1		!Kontaktreibung
!

!Real constants
R,1
R,2,,,100			
R,3
R,4,1		!Federsteifigkeit

!Geometrie
blc4,0,0,100,100,100	!Würfel erstellen mit 100x100x100
esize,10		!Elementgroesse 10
VMES,ALL		
*GET,NMAX,NODE,,NUM,max !größte verwendete Knotenzahl auswählen
I=Nmax+1		!Variable Pilot 1 definieren
J=Nmax+2
K=Nmax+3
L=Nmax+4

n,I,80,20,101
n,J,20,20,101
n,K,20,80,101
n,L,80,80,101

d,I,UZ,0
d,J,UZ,0
d,K,UZ,0
d,L,UZ,0

!Target festelgen
nsel,s,loc,z,100	!Alle Knoten mit z=100 auswählen
TYPE,2
MAT,3
Real,3			
ESURF
allsel
TYPE,3
MAT,3
REAL,3
TSHAP,Quad		!defines simple 2D and 3D geometric surfaces for target segment elements
E,I,J,K,L		!Element an Pilotknoten definieren
allsel

!d,562,UZ,0		!wenn Knoten eingespannt wird keine Bewegung in Z Richtung möglich

asel,s,,,4
nsla,s,0
d,all,UX,0,0,,,UY
allsel
asel,s,,,5
nsla,s,0
d,all,UX,0,0,,,UY
allsel

et,4,14             ! spring element type
keyopt,4,2,3
/com,*********** Construct Weak Springs, Prototype 1 ***********
!*set,_delta,5
type,4
!mat,2
real,4
nsel,all
!*get,_nspr,ndmx
!_nspr=_nspr+1
!esel,s,mat,,1
L=L+1
n,L,0,0,110
d,L,all,0		!Federende einspannen
e,L,122
!
L=L+1
n,L,0,100,110
d,L,all,0
e,L,143
!
L=L+1
n,L,100,100,110
d,L,all,0
e,L,133
!
L=L+1
n,L,100,0,110
d,L,all,0
e,L,123
!
L=L+1
n,L,0,0,10
d,L,all,0
e,L,2
!
L=L+1
n,L,0,100,10
d,L,all,0
e,L,1
!
L=L+1
n,L,100,100,10
d,L,all,0
e,L,12
!
L=L+1
n,L,100,0,10
d,L,all,0
e,L,22

allsel

/SOLU
NLGEOm,ON
SOLCON,ON
NEQIT,50
EQSLV,FRONT
Autots,off
OUTRES,ALL,-5
CSYS

time,1
asel,s,,,1
nsla,s,1
nsubst,100
d,all,uz,1.5
allsel
solve

time,2
nsubst,50
asel,s,,,1
nsla,s,1
ddele,all,all
allsel
solve
!
time,3
nsubst,200
asel,s,,,1
nsla,s,1
f,all,fz,100
KBC,1
allsel
solve

/POST1
/EDGE,,1
/VIEW,,3,1,1
ESEL,U,TYPE,,2,3
EPLO
SET,LAST
/DSCA,,1
/GRA,FULL
PLNS,S,EQV