FINISH
/CLEAR

/PREP7 
CYL4, , ,1.5, , , ,30 
ET,1,SOLID187 
vmesh,all

MPTEMP,,,,,,,, 
MPTEMP,1,0 
MPDATA,EX,1,,640000
MPDATA,PRXY,1,,0.3 
 
FINISH 
/SOL

LSCLEAR,ALL
ANTYPE,STATIC,NEW
CSYS,0 
ASELE,,loc,z,30
*GET,afest,area,,num,max
DA,afest,all,0
ALLSEL


moment=100000
ALLSEL
KSEL,,LOC,Z,0
*VGET,mvect,KP,,KLIST
ALLSEL
*GET,manz,PARM,mvect,DIM,1
einzmom=moment/manz
*DO,mvakt,1,manz,1
 *GET,naktx,KP,mvect(mvakt),LOC,X
 *GET,nakty,KP,mvect(mvakt),LOC,Y
 betrag2=naktx**2+nakty**2
 fn=einzmom/betrag2
 fnx=fn*nakty
 fny=-fn*naktx
 fk,mvect(mvakt),FX,fnx
 fk,mvect(mvakt),FY,fny
*ENDDO 

SOLVE

/POST1
ALLSEL
NSEL,NONE
NSEL,A,NODE,,1
NSEL,A,NODE,,2
NSEL,A,NODE,,10
NSEL,A,NODE,,20
NSEL,A,NODE,,30
NSEL,A,NODE,,40

PRNSOL,U



 PRINT U    NODAL SOLUTION PER NODE
 
  ***** POST1 NODAL DEGREE OF FREEDOM LISTING *****                            
 
  LOAD STEP=     1  SUBSTEP=     1                                             
   TIME=    1.0000      LOAD CASE=   0                                         
 
  THE FOLLOWING DEGREE OF FREEDOM RESULTS ARE IN THE GLOBAL COORDINATE SYSTEM  
 
    NODE      UX          UY          UZ          USUM  
       1  -2.4609     0.33857E-02-0.27810E-02  2.4609    
       2 -0.87456E-03 -2.3721    -0.54729E-02  2.3721    
      10  -1.1443      1.9813    -0.84275E-03  2.2880    
      20  0.59423     -2.2374     0.13034E-02  2.3150    
      30 -0.53398    -0.91480     0.98665E-03  1.0592    
      40  -1.0634      1.2706     0.66990E-03  1.6569    

 MAXIMUM ABSOLUTE VALUES
 NODE          1           2           2           1
 VALUE   -2.4609     -2.3721    -0.54729E-02  2.4609