!aus dem Forum von pettaa
!Kreisbogen mit 300 Punkten
!Schätzing,  21.9.2014

finish  $/clear
*abbr,pettaa2,/input,pettaa2,txt

rad=300e-3        !Radius 
winkel=75         !Winkel
w_anf=180         !Anfangswinkel
anz=300           !Anzahl der Punkte 
kraft=1           !tangentiale Kraft pro Punkt

/prep7
pi=4*atan(1)
et,1,link1   
!------Geometrie------------
wink=w_anf
k,1,rad*cos(wink*pi/180),rad*sin(wink*pi/180)
wink=w_anf+winkel
k,2,rad*cos(wink*pi/180),rad*sin(wink*pi/180)
k,3,0,0

larc,1,2,3,rad

!-------Vernetzung--------
lesize,all,,,anz-1
lmesh,all

!-----tangentiale Kräfte-----------
*do,i,1,anz
   px=nx(i)
   py=ny(i)

   f,i,fx, kraft/rad*py
   f,i,fy,-kraft/rad*px
*enddo

!----Summation----
fxs=0
fys=0
*do,i,1,anz
   *get,fxi,node,i,f,fx
   *get,fyi,node,i,f,fy
   fxs=fxs+fxi
   fys=fys+fyi
*enddo

fxs=fxs
fys=fys