下面是ls-dyna程序，那位高手指点一下，轧辊怎么旋转？

wujingwei1218

/FILNAME,roll   
/PREP7  
/title,roll
ET,1,SOLID164   
MP,DENS,1,7600
MP,EX,1,1.17E11
MP,NUXY,1,0.36  
TB,BISO,1   
TBDAT,1,1.24E8  
TBDAT,2,1.3E7   
EDMP,RIGI,2,7,7
MP,DENS,2,7850
MP,EX,2,2.1E11  
MP,NUXY,2,0.3   
CYLIND,150, ,0,1200,0,360,  
wpoff,100,-147,300  
BLOCK,0,1000,0,-10,0,600,   
TYPE,   1   
MAT,       1
REAL,   
ESYS,       0   
SECNUM,
FLST,5,4,4,ORDE,4   
FITEM,5,12  
FITEM,5,14  
FITEM,5,-15
FITEM,5,17  
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
LESIZE,_Y1,30, , , , , , ,1
FLST,5,4,4,ORDE,2   
FITEM,5,19  
FITEM,5,-22
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
LESIZE,_Y1,30, , , , , , ,1  
FLST,5,4,4,ORDE,4   
FITEM,5,11  
FITEM,5,13  
FITEM,5,16  
FITEM,5,18  
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
LESIZE,_Y1,20, , , , , , ,1   
CM,_Y,VOLU  
VSEL, , , ,       2
CM,_Y1,VOLU
CHKMSH,'VOLU'   
CMSEL,S,_Y   
VSWEEP,_Y1   
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2   
VPLOT   
TYPE,   1   
MAT,       2
REAL,   
ESYS,       0   
SECNUM,
FLST,2,1,5,ORDE,1   
FITEM,2,1   
AESIZE,P51X,30,
CM,_Y,VOLU  
VSEL, , , ,       1
CM,_Y1,VOLU
CHKMSH,'VOLU'   
CMSEL,S,_Y  
VSWEEP,_Y1  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
EDPART,CREATE   
EDCGEN,ASTS,       1,       2,0.45,0.3,0,0,0, , , , ,0,10000000,0,0
VSEL,S, , ,       2
CM,SLAB,NODE
VPLOT   
vlist, all  
/REPLO  
ASEL,S, , ,       8
NSLA,S,1
FLST,2,735,1,ORDE,4
FITEM,2,1   
FITEM,2,-627
FITEM,2,1363
FITEM,2,-1470   
D,P51X, , , , , ,UX, , , , ,
EDVE,VELO,SLAB,2.88,0,0,0,0,0, , , , , ,
*DIM,TIME,ARRAY,2,1,1,,,
*DIM,VELOCITY,ARRAY,2,1,1,,,
*SET,TIME(2,1,1,1),0.25
*SET,VELOCITY(2,1,1),-2.62  
EDLOAD,ADD,RBRZ,0,       2,TIME,VELOCITY, 0, , , , ,
/SOLU
allsel  
aplot   
EDENERGY,1,1,1,1
TIME,0.024,  
EDOPT,ADD,blank,BOTH
EDRST,200,  
EDHTIME,1000,   
EDDUMP,1,   
EDOUT,RCFORC
EDWRITE,BOTH,'roll','K',''  
solve   
FINISH  
/POST1  
SET,1,120,1
/EFACE,1
AVPRIN,0,   
PLNSOL,S,EQV,0,1
/DSCALE,1,1.0   
! /PEPLOT   
PLNS,S,EQV  
ANDATA,0.5,,0,0,0,10,1