finish
/Cle

/prep7

et, 1,4			

!Material definieren
ex,   1,210000			
nuxy, 1,0.3			
dens, 1,0			
r,1,10,10,10,10,10,

N,1,0,0,0
N,2,100,0,0
N,3,100,0,0
N,4,100,100,0

type, 1
mat,  1
real, 1

e,1,2
e,3,4

pi=atan(1)*4
p=5

CE,1,0,2,ROTX,1/(2*pi),3,UX,-1/P
CE,1,0,2,ux,1,3,ux,-1

/Solu

D,1,all

d,4,all
D,1,ROTX,0.01*pi

F,3,FX,100

Solve

/POST1 

PLDISP,1

PRNSOL,u,x



SAVE