!Ermittlung einer Linienlänge
!Forum marciobv
!Schätzing, 27.11.2009

finish  $/clear
*abbrm,linlang3,/input,linlang3,txt


abst=1.2    !Abstand der Einspannungen
dick=0.05   !Dicke des Balken
versch=0.3  !Verschiebung in -y
last_ort=abst/3


/prep7
et,1,plane182
mp,ex,1,2.1e11
mp,nuxy,1,0.3

!----Geometrie-----
rectng,0,abst,0,dick

!----vernetzung-----
esize,dick/3
amesh,1
!Damit liegen vernetzte Linien vor

!-----Rand------
nsel,s,loc,x,0
nsel,a,loc,x,abst
d,all,ux,0
d,all,uy,0

nsel,all
!-----Last------
n_last=node(last_ort,dick,0)
d,n_last,uy,-versch

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

!-------Auswertung------
/post1
/dscale,1,1
pldi,1



upcoord,1

!----Linie festlegen------
lsel,s,loc,y,0     !untere Linie
!lsel,s,loc,y,dick  !obere Linie
nsll,s,1

!----Länge ermitteln-----
*get,n_anz,node,,count
*get,n_min,node,,num,min


lang=0    !Startwert für die Länge
!Startknoten, der mit der kleinsten Nummer
n_arb=n_min

*do,i,1,n_anz-1
n_next=nnear(n_arb)
lang=lang+distnd(n_arb,n_next)
nsel,u,,,n_arb
n_arb=n_next
*enddo


lang_alt=abst
lang_neu=lang
relation=lang_neu/lang_alt