/NOPR   ! Suppress printing of UNDO process 
/PMACRO ! Echo following commands to log    
FINISH  ! Make sure we are at BEGIN level   
/CLEAR,NOSTART  ! Clear model since no SAVE found   
/PREP7  
smrt,off
/NOPR   
ANTYPE,STATIC           ! STATIC ANALYSIS   
NLGEOM,ON               ! LARGE DEFLECTION OPTION   
LUMPM,ON
!   
ET,1,BEAM188
ET,2,MPC184,6   
ET,3,MPC184,1   
MP,EX,1,30E5
MP,PRXY,1,0.33  
MP,DENS,1,10.0  
SECTYPE, 1, BEAM, RECT  
SECDATA, .1, .1 
!   
LOCAL,11,0, 0,0,0,0,0,-90   
LOCAL,12,0, 0,0,0,0,0,-90   
CSYS,0  
!   
TB,JOIN,10,1,5,JNS4            !Change table data   
TBPT,,0.0,0 
TBPT,,0.2,2 
TBPT,,0.4,2.1   
TBPT,,0.6,5 
TBPT,,0.8,5.1   
!   
n,1,0,0,0   
n,2,0,1,0   
n,3,0,1,0   
n,4,1,1,0   
!   
TYPE,1  
MAT, 1  
SECNUM,1
e,1,2   
e,3,4   
TYPE,3  
e,1,2   
e,3,4   
!   
SECTYPE,2,JOIN,REVO,TESTING04      ! DEFINING REVOLUTE JOINT
SECJ,,11,12 
!   
TYPE,2  
SECNUM,2
MAT,10  
e,2,3   
!   
!   
d,1,all 
f,4,mz,5.1  
!*  
FINISH  
/SOL
solcontrol,on   
outpr,all   
OUTRES,all,all  
DELTIM,0.01, 0.002, 0.1 
NEQIT,150   
SOLVE                  ! SOLVE FIRST LOAD STEP  
FINISH  
!   
/POST26 
NUMVAR,200  
SOLU,191,NCMIT  
STORE,MERGE 
FILLDATA,191,,,,1,1 
REALVAR,191,191 
!*  
NSOL,2,4,ROT,Z, ROTZ_2  
RFORCE,3,1,M,Z, MZ_3
STORE,MERGE 
XVAR,1  
!*  
PLVAR,2,
)/GOP    ! Resume printing after UNDO process   
)! We suggest a save at this point