*DO,I,5,25,5


	/PREP7
	!Delete mesh
	ACLEAR,ALL

	!Meshing (free mesh)
	!Attributes
	ASEL,All
	AATT,1,1
	AESIZE,ALL,I
	AMESH,ALL
	
	!Loads
	!Displacement
	DL,4,,UY,0
	
	!Pressure
	SFL,5,PRES,p0
	SFL,6,PRES,p0
		
	/SOLU
	Solve
	
	/POST1
	PLDISP,1
	/IMAGE,SAVE,CHRVAL(I),BMP
	
*ENDDO