/filname,ch05
/title,static analysis of an allen wrench
/units,si
*afun,deg
*set,exx,2.07e11
*set,high,0.01
*set,l_side,high*tan(30)
*set,l_shank,0.075
*set,l_handle,0.2
*set,bendrad,0.01
*set,l_elem,0.0075
*set,no_div_side,2
/prep7
et,1,mesh200
et,2,solid45
keyopt,1,1,6
keyopt,1,2,0
mp,ex,1,exx
mp,prxy,1,0.3
rpoly,6,l_side
k,7,0,0,0
k,8,0,0,-l_shank
k,9,0,-l_handle,-l_shank
l,7,8
l,8,9
lfillt,7,8,bendrad
save
lesize,1,,,no_div_side
lesize,2,,,no_div_side
lesize,3,,,no_div_side
lesize,4,,,no_div_side
lesize,5,,,no_div_side
lesize,6,,,no_div_side
type,1
mshape,0,2D
mshkey,1
amap,1,1,3,5
type,2
esize,l_elem
vdrag,1,,,,,,7,9,8
aclear,all
finish
/solu
antype,static
asel,s,loc,z,0
lsel,s,ext
nsll,s,1
d,all,all
allsel,all
nsel,s,loc,x,l_side/2,l_side
nsel,a,loc,y,l_handle,l_handle-3*l_elem
*get,miny,node,,mnloc,y
*get,maxy,node,,mxloc,y
*set,presval,100/(high*(maxy-miny))
sf,all,pres,presval
allsel,all
lswrite,1
*set,presdown,20/(l_side*(maxy-miny))
nsel,s,loc,z,-(l_shank+high/2)
nsel,s,loc,y,l_handle,l_handle-3*l_elem
sf,all,pres,presdown
allsel,all
lswrite,2
save
lssolve,1,2
finish
/post1
set,1
prrsol,
plnsol,s,eqv,0,1.0
set,2
prrsol,
plnsol,s,eqv,0,1.0 |