/solu
nlgeom,on
solcon,on
neqit,50
eqslv,front
autots,on
outres,all,all
rescontrol,define,all,1
! hier wenns klappt zwischenspeichern
time,1
nsubst,100
lsel,s,,,4
nsll,s,1		!wähle linke Außenkontur des Würfels
dl,all,,ux,0		!einspannen dieser Linie in X-Richtung
lsel,s,,,2		!wähle untere Außenkontur des Würfels
nsll,s,1
dl,all,,uy,0		!einspannen dieser Linie in Y-Richtung
asel,s,,,1		!wähle Kreis
nsla,s,1
da,all,uy,-1		!Verschiebung von -1 in Y-Richtung des Kreises
allsel
inis,write,1,,,,S