*do,k,11,40,1
sfbeam,k,2,press,(k-11)*20/30,(k-10)*20/30
*enddo