Moving and Repeating Load in APDL PDF
Moving and Repeating Load in APDL PDF
By:
Dr. Hani Aziz Ameen , Birth date 1971 in Baghdad- Iraq, has Ph.D. in
Mechanical Engineering – Applied Mechanics – from the University of
Technology –Iraq in 1998. He has more than 60 published papers and he is an
expert in the ANSYS software and finite element analysis.
E-mail: haniazizameen@yahoo.com
! This APDL for moving and repeating load
/config,nres,100000
/prep7
l=6
b=0.01
h=0.01
damp=0.0
f0=-11.772
f1= 1.6416
f2= 4.5262
f5=22.030
f10=89.061
dx=l/10
e=330.529e9
mp,ex,1,e
mp,dens,1, 10000
et,1,beam3
a=b*h
iz=b*h*h*h/12
r,1,a,iz,h/2
k=0
*do,x,0,l,dx
k=k+1
n,k,x
*enddo
nd=k
*do,k,2,nd
e,k-1,k
*enddo
/triad,lbot
!/window,1,top
/plopts,info,1
/plopts,logo,1
/pbc,rfor,0
gplot
d,1,All,0
d,nd,All,0
BEAM-STATIC.TXT
nr=(nd+1)/2
f,nr,fy,f0
/solu
antype,static,new
solve
finish
/post1
plnsol,u,y
BEAM-TRANSIENT.TXT
/solu
!alphad,damp
!betad,damp
nr=(nd+1)/2
ncycle=1
tsay=ncycle*(nd-1)
alpha=0.25
t1=1/f1
t0=t1/(2*alpha)
dt=t0/(nd-1)
t10=1/f10
ddt=t10/(nd-1)
antype,trans,new
outres,all,all
kbc,0
deltim,ddt
t=0
x=1
*do,ta,1,tsay+2- nd,(nd-1)
*if,ta,eq,x,then
*do,k,2,nd
f,k-1,fy,0
f,k,fy,f0
t=t+dt
time,t
solve
gplot
*enddo
x=x+((nd-1)*2)
*else
*do,k,nd-1,1,(-1)
f,k+1,fy,0
f,k,fy,f0
t=t+dt
time,t
solve
gplot
*enddo
*endif
gplot
*enddo
finish
/post26
file,,rdsp
nsol,2,nr,u,y
EXTREM,2
*get,maxy,VARI,2,extrem,vmin
*get,tmaxy,VARI,2,extrem,tmin
Note
The structural model consists of beam element has 2 nodes and 3 degrees of freedom. The
modeled as moving point loads as it shown in figure below. To facilitate the solution, the beam is
simply supported at the both end.