/PREP7
*SET,L,1000
*SET,S,50
*SET,elems,201
*DO,i,0,elems,2
	*SET,x,i*S
	K,,x,0	
	K,,x,200+50*SIN(x/200)
*ENDDO
*DO,i,1,elems-3,2
	L,i,i+2
	L,i+1,i+3
*ENDDO
*DO,i,1,elems-8,8
	L,i,i+1
	L,i,i+5
	L,i+4,i+5
	L,i+5,i+8
*ENDDO
ET,1,BEAM188
MPTEMP,1,0  
MPDATA,EX,1,,2e5
MPDATA,PRXY,1,,0.33 
SECTYPE,   1, BEAM, RECT, BEAM1, 0  
SECOFFSET, CENT 
SECDATA,5,5,0,0,0,0,0,0,0,0,0,0 
LMESH,1,10000,1
!NODE function returns the number of 
! node at the given location
D,NODE(0,0,0), , , , , ,ALL
D,NODE(x,0,0), , , , , ,ALL
*DO,task,1,5,1
	/PREP7
	*SET,force,-1000*task
	F,NODE(x/2,0,0),FY,force
	FINISH
	/SOL
	SOLVE   
	FINISH  
	/POST1  
	PLDISP,2
*ENDDO