!aus dem Forum von EriTu

finish  $/clear

*abbr,eritu,/input,eritu,txt

abm=10e-3

/prep7
et,1,plane223,1
mp,ex,1,210e9
mp,nuxy,1,0.3

rectng,0,abm*2,0,abm
!esize,abm/4
amesh,1
!----Randbedingugen---------
nsel,s,loc,y,0
d,all,uy,0
nsel,s,loc,x,0
d,all,ux,0
allsel

!-----Lasten------
n1=node(abm*2,abm,0)
d,n1,ux,-abm/8
d,n1,uy,-abm/6
allsel
!------Lösung-----
/solu
solve
!------Auswertung-----

/com ---------1. Teil---Spannungswerte------------

!--Maximalspannung ermitteln--

/post1

plnsol,s,1                  !Ergebnisse plotten

*get,smax_s1,plnsol,,max    !Maximalspannung 1.HS

nsle,u,mid                  !deselektiert Mittenknoten


/com *** Array einrichten ***
*GET,n_anz,node,,count      !Anzahl selektierte Knoten
*DIM,tab,array,n_anz,5      !Array mit 1=nodenumber , 2=vmask , 3=1. HS , 4=Boolsche Operator , 5=Knotenfläche

!----Array füllen--------
*GET,n_min,NODE,,num,min      !kleinste Knotennummer
n_arb=n_min

*do,i,1,n_anz
*get,sp,node,n_arb,s,1
tab(i,1)=n_arb
tab(i,3)=sp
n_arb=ndnext(n_arb)
*enddo