*DO,T,1,200,1
SET,,,1,,T*5/1000
!
/OUTPUT,AZD,OUT,,APPEND
*VWRITE,F*T/200,UZ(NODE(A/2,A/2+R,0))
(E16.8,5X,E16.8)
/OUTPUT
!
/OUTPUT,BZD,OUT,,APPEND
*VWRITE,F*T/200,UZ(NODE(A/2+R,A/2,0))
(E16.8,5X,E16.8)
/OUTPUT
!
/OUTPUT,CXD,OUT,,APPEND
*VWRITE,F*T/200,UX(NODE(A,A/2,0))
(E16.8,5X,E16.8)
/OUTPUT
*ENDDO