梁弯距 剪力影响线
说明：看了很多影响线的程序，都是位移的，我做了个弯距和剪力的。碰到的问题有以下几个：1）beam3梁的 keyopt,1,6,1!! 感觉和后面的单元定义表没什么关系（具体见下面的apdl）
2）delt=1!! 这个我不是很清楚 ，谁能解释下，好像是时间间距，但是我得循环语句中已经定义了
3) kbc,1 !==加载方式,这个重要吗？这个事例我没验证，谁有时间的话做一下
4）nsubst,5!!不知取1结果会有多大差别？这个也没验证
其他的面上加移动荷载正在做，我做的是shell43建的箱涵 ， !! 请参考<algor ansys 在桥梁分析中的应用>
!!说明：跨长12.6m，127个节点，126个单元，中间截面弯距、剪力取63号单元64号节点
!!更详细的见http://www.engineersky.com/BBS/printpage.asp?BoardID=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 好好学习学习一下
页:
[1]