fini
/clear
/prep7
!Stab L=100 Aq=1mm²

Emod_=100e3
LAE_=100
AREA_=1
UX_=-10
mp,ex,1,Emod_
mp,prxy,1,0.3
et,1,180
R, 1, AREA_		!Querschnitt 1mm²
n,1
n,2,LAE_
type,1
mat,1
real,1
e,1,2
/eshape,1
eplot
d,1,all
d,2,all
d,2,ux,UX_	!noch lineare Verschiebung
alls
Steif_lin=Emod_*AREA_/LAE_
RFOR_ANA=UX_*Steif_lin
/solu
solve

/post1
/pbc,rfor,,2
/anno,dele
/TLAB, 1.05, -0.87,Steif_anal = %RFOR_ANA% ! Gesamtdämpfung in Annotation schreiben
plnsol,u,x,2

/solu
nlgeom,on
solve

/post1
/pbc,rfor,,2
/anno,dele
/TLAB, 1.05, -0.87,Steif_anal = %RFOR_ANA% ! Gesamtdämpfung in Annotation schreiben
plnsol,u,x,2

!compression only
/prep7
R, 1, AREA_,,-1

/solu
nlgeom,on
solve

/post1
/pbc,rfor,,2
/anno,dele
/TLAB, 1.05, -0.87,Steif_anal = %RFOR_ANA% ! Gesamtdämpfung in Annotation schreiben
plnsol,u,x,2

!Test im Zugverhalten
/prep7
d,2,ux,-UX_

/solu
nlgeom,on
solve

/post1
/pbc,rfor,,2
/anno,dele
/TLAB, 1.05, -0.87,Steif_anal = %RFOR_ANA% ! Gesamtdämpfung in Annotation schreiben
plnsol,u,x,2		!Alles bestens --> keine Reaktionskraft