梁弯距 剪力影响线

xugangseu

说明：  看了很多影响线的程序，都是位移的，我做了个弯距和剪力的。碰到的问题有以下几个：
1）beam3  梁的 keyopt,1,6,1  !! 感觉和后面的单元定义表没什么关系（具体见下面的apdl）
2）delt=1  !! 这个我不是很清楚 ，谁能解释下，好像是时间间距，但是我得循环语句中已经定义了
3) kbc,1 !==加载方式,这个重要吗？这个事例我没验证，谁有时间的话做一下
4）nsubst,5  !!  不知取1结果会有多大差别？  这个也没验证

其他的面上加移动荷载正在做，我做的是shell43建的箱涵 ，

xugangseu

!! 请参考<algor ansys 在桥梁分析中的应用>
!!说明：跨长12.6m，127个节点，126个单元，中间截面弯距、剪力取63号单元64号节点
!!更详细的见http://www.engineersky.com/BBS/p ... rdID=18&ID=9993
!! 上面的链接我运行了一下 ，感觉有不少问题，谁修改好的话给我下。QQ 461068444
fini
/clear
/title,yingxiangxian
/prep7
et,1,beam3
keyopt,1,6,1  !! 感觉和后面的单元定义表没什么关系
mp,ex,1,3e7
mp,dens,1,2.6
mp,prxy,1,0.3

r,1,1,1/12,1

n,1
n,127,12.6
fill,1,127

*do,i,1,126,1
e,i,i+1
*enddo

d,1,uy,,,,,ux
d,127,uy
fini

/solu
antype,trans
kbc,1 !==加载方式,这个重要吗？
tim=0
delt=1  !! 这个我不是很清楚 ，谁能解释下
timint,on
*do,i,1,127,1
tim=tim+1
time,tim
fdele,all,all
allsel
nsel,s,loc,x,(i-1)*0.1
f,all,fy,-250
allsel
nsubst,5  !!  不知取1结果会有多大差别？
outres,all,all
solve
*enddo
save
fini
!!  跨中截面弯距 剪力  ，可以验算
/post1
set,64,last
/eshape,1
ETABLE,,SMISC,6
ETABLE,,SMISC,12
ETABLE,,SMISC,2
ETABLE,,SMISC,8　　　!将节点弯矩、剪力制表
PRETAB　　　　　　　　　　　!列表显示单元的弯矩、剪力

/TITLE,SHEAR FORCE DISTRIBUTION　　　　　!设置剪力分布图的标题
PLLS,smis2,smis8,-1,0　　　　　　　　　　　　!绘制剪力分布图
/TITLE,BENDING MOMENT IDSTRIBUTION　　　　!设置弯矩分布图的标题
plls,smis6,smis12,-1,0　　　　　　　　　!绘制弯矩分布图

!!1/3跨截面弯距 剪力  可以验算
/post1
set,43,last
/eshape,1
ETABLE,,SMISC,6
ETABLE,,SMISC,12
ETABLE,,SMISC,2
ETABLE,,SMISC,8　　　!将节点弯矩、剪力制表
PRETAB　　　　　　　　　　　!列表显示单元的弯矩、剪力

/TITLE,SHEAR FORCE DISTRIBUTION　　　　　!设置剪力分布图的标题
PLLS,smis2,smis8,-1,0　　　　　　　　　　　　!绘制剪力分布图
/TITLE,BENDING MOMENT IDSTRIBUTION　　　　!设置弯矩分布图的标题
plls,smis6,smis12,-1,0　　　　　　　　　!绘制弯矩分布图
!!  时间历程后处理
!! 如何设置跨中截面的剪力和弯距影响线图？
/post26
/axlab,y,uy  !跨中变形影响线图
nsol,2,64,u,y,middle cross
plvar,2


/post26   !跨中弯距影响线图
/axlab,y,jianli
esol,3,63,64,m,z,wanju
plvar,3   !弯距随时间变化曲线
prvar,3  ! 列表显示

/post26   !跨中剪力影响线图
/axlab,y,wanju
esol,4,63,64,f,y,jianli
plvar,4
prvar,4

hntjayang

好好学习学习一下