!aus dem Forum von xsefa
!Schätzing, 16.5.2016


FINISH
/CLEAR
*abbr,xsefa3,/input,xsefa3,txt


/prep7						

MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,10000000   
MPDATA,PRXY,1,,0.48 
TB,BISO,1,1,2,  
TBTEMP,0
TBDATA,,848.7,10,,,,    !10 = Tangenten Modul
!*  
ET,1,PLANE182
!*  
KEYOPT,1,1,0
KEYOPT,1,3,2
KEYOPT,1,6,0
!*

! --- Rechteckfläche ---
abm=5      !Hauptabmessnung
kante=0.5
rectng,kante-kante/5,kante+kante/5,0,-kante/5
cyl4,kante,0,kante*3
rectng,0,abm,0,-abm                     

! --- Verkleben der Flächen --- 
aovlap,all,all
adele,5
numcmp,area
!A1: Kantennähe  A3:Nähe Kante A2:Rest

!--------Vernetzung-----------
ESIZE,kante/20				! Elementgröße global
amesh,1

esize,kante/5
amesh,3

esize,abm/10
AMESH,2

!--- Berechnung Belastungsvorgang 1 -------------------------------
!--- Randbedingungen ---
nsel,s,loc,x,0
d,all,ux,0
nsel,s,loc,x,abm
d,all,ux,0
nsel,s,loc,y,-abm
d,all,uy,0

!-----Lasten-------------
nsel,s,loc,x,0,kante
nsel,r,loc,y,0
cp,1,uy,all
*get,n1,node,,num,min
f,n1,fy,1

allsel
! -----------------------------------------------------------------------------------
! --- Solution ---
! -----------------------------------------------------------------------------------
 /solu
!--- Art der Analyse: statisch ---
antype,static		! antype,abtyoe,status,ldstep,substep,action
!--- nichtlineare Geometrie ---
nlgeom,on	! nlgeom,key
!--- Festlegen der Substeps ---
nsubst,14,0,0	! nsubst,nsbstp,nsbmx,nsbmn,carry
!--- Ausgabe aller Iterationsschritte---
outres,all,all	! outres,ite,freq,cname
!--- automatisches time stepping ---
autots,on	! Autos,key



solve

!-------Auswertung-----
/post1
plns,s,eqv