Finish
/clear
/filenam, Prets
/prep7				!Starten des Preprocessors

et,1,plane42		! Flächenvernetzung
et,2,solid45            ! Solid für Klotz
et,3,prets179
et,4,link1

r,3,1
r,4,1

x1=-10e-3

k,1,0,1e-3
k,,-2.5e-3,1e-3
k,,-2.5e-3,0
k,,x1,0
k,,x1,1e-3
k,,x1,20e-3
k,,-2.5e-3,20e-3
k,,0,20e-3

a,1,2,7,8
a,3,4,5,2
a,2,5,6,7

type,1
esize,0.5e-3
amesh,1,3

type,2
esize,,4
Vext,1,3,,,,20e-3

numcmp,node
numcmp,elem
*get,anzn,node,,count
*get,anze,elem,,count
 NSYM,x,anzn,1,anzn,1 
 ESYM,,anzn,1,anze,1 
NUMMRG,NODE,0.0000001,,

N,,-2e-3,0.5e-3,0.1E-01
N,,-2.25e-3,0.5e-3,0.1E-01

secn,2
type,3
real,3

e,1932,8511,8512

secn,1
type,4
real,4

e,8511,6187

ESEL,s,type,,3

SLOAD,1,PL01,TINY,FORC,20