!aus dem Forum von observant
!Schätzing, 8.10.2015

finish  $/clear
*abbr,observant,/input,observant2.txt


finish
/clear,start

*abbr,observant,/input,observant2.txt

/prep7

et,1,solid185

mp,ex,1,210000      ! E-Modul in N/mm^2
mp,prxy,1,0.3        ! Querkontraktion
mp,dens,1,7.8 ! Dichte in g/mm^3

block,0,1,0,1,0,1,  
block,0,1,0,1,1,2,  
block,0,1,0,1,2,3,

mshkey,1
vmesh,all

nummrg,node
nummrg,kp

!-----Randbedingung-----
nsel,s,loc,y,0
d,all,all
!------Lasten------
nsel,s,loc,y,1
d,all,uy,0.01


!--------Lösung-------
allsel
/solu
solve

!------Auswertung-------
/post1

allsel
!vsel,s,,,1
!vsel,s,,,2
vsel,s,,,3
nslv,r,1
plns,s,eqv

*get,KNOTEN,node,,count ! Knotenanzahl wird ermittelt
*dim,stress_KNOTEN,array,KNOTEN,2 ! Erstellen der Maske

!*vget,STAT_KNOTEN(1),node,1,nsel ! Status der Knoten

*get,n_min,node,,num,min
n_arb=n_min

*do,i,1,knoten
stress_knoten(i,1)=n_arb
*get,spannung,node,n_arb,s,eqv
stress_knoten(i,2)=spannung
n_arb=ndnext(n_arb)
*enddo

/eof

*stat,stress_knoten