!aus dem Forum für magerhirn
!Schätzing, 25.12.2010

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

rad=1

/prep7
et,1,plane42
mp,ex,1,2.1e11
mp,nuxy,1,0.3
aa=rad*2
rectng,-aa,aa,-aa,aa
pcirc,rad
asba,1,2
esize,rad/8
amesh,all
!---Lasten---
nsel,s,loc,y,-aa
d,all,all
nsel,s,loc,y,aa
d,all,uy,-rad/4
allsel
!----------------------
/solu
solve
!---------------------------
/post1
plns,s,eqv

!Code:
!--------------------------------------------------------

   ALLS                        !Knoten um Loch 
csys,1
   nSEL,S,LOC,x,rad
 
   *get,nanz,node,0,count            !Knotenanzahl
   *get,nmin,node,0,num,min          !kleinste Knotennummer
   narb=nmin
   *dim,_arr,array,nanz,3
   *do,i,1,nanz                      !Schleifenan 
      *get,S1,node,narb,s,1                                          
      *get,MIS,node,narb,s,eqv                                       
      _arr(i,1)=narb
      _arr(i,2)=S1
      _arr(i,3)=MIS
      narb=ndnext(narb)
   *enddo

!/eof

*create,ausgabe   !Erstellung Makro
*cfopen,werte,txt
*VWRITE,_arr(1,1),_arr(1,2),_arr(1,3)
(1X,F6.0,4X,E12.5,4X,E12.5)
*cfclose
*end  !*create

*use,ausgabe      !Abarbeitung Makro