梁载荷布设置（小事例），初学者看看

xugangseu

!!这个是我做的一个小例子，比较简单，可以验算,下面我会再做个荷载组合的
fini
/cle
/prep7
et,1,beam3
r,1,1,1/12,1
mp,ex,1,2.07e11
n,1
n,13,12
fill,1,13
e,1,2
egen,12,1,1,1
fini
allsel
/solu
antype,static
d,1,ux,0,,,,uy
d,13,uy,0
f,7,fy,-100  !!  第一个集中荷载，作用位置在中点
lswrite
sfbeam,all,1,pres,10  !  再加一个荷载，这个是叠加的
                      ! 如果换成f,7,fy,-200 则是取代 叠加的话加个sfcum命令
lswrite  
fdele,all,all
sfedele,all,all,all
sfbeam,all,1,pres,10  !  再加一个荷载，这个是单独的均部荷载作用
lswrite  

lssolve,1,3
fini
/post1
set,1
/title,step1
pldisp,1
ETABLE,,SMISC,6
ETABLE,,SMISC,12
plls,smis6,smis12,-1,0　　　　　　　　　!绘制弯矩分布图

set,2
/title,step2
pldisp,2
ETABLE,,SMISC,6
ETABLE,,SMISC,12
plls,smis6,smis12,-1,0　　　　　　　　　!绘制弯矩分布图
set,3
/title,step3
pldisp,3
ETABLE,,SMISC,6
ETABLE,,SMISC,12
plls,smis6,smis12,-1,0　　　　　　　　　!绘制弯矩分布图

xugangseu

!! 这个是一个简单的荷载组合程序
!! 结果没什么问题，不过中间有个提示：load set not found on result file *.rst, *是我得文件名
请高手指正，多谢

fini
/cle
/prep7
et,1,beam3
r,1,1,1/12,1
mp,ex,1,2.07e11
n,1
n,13,12
fill,1,13
e,1,2
egen,12,1,1,1
fini
allsel
/solu
outpr,basic,all
antype,static
d,1,ux,0,,,,uy
d,13,uy,0
f,7,fy,-100  !!  第一个集中荷载，作用位置在中点
lswrite
fdele,all,all
sfbeam,all,1,pres,10  !  再加一个荷载，                     
lswrite


lssolve,1,2
fini
save
/post1
set,1
/title,step1
pldisp,1
ETABLE,,SMISC,6
ETABLE,,SMISC,12
plls,smis6,smis12,-1,0　　　　　　　　　!绘制弯矩分布图

set,2
/title,step2
pldisp,1
ETABLE,,SMISC,6
ETABLE,,SMISC,12
plls,smis6,smis12,-1,0　　　　　　　　　!绘制弯矩分布图
fini
/post1

lcdef,4,1
lcdef,5,2
lcfact,4,1.5
lcfact,5,1
lcase,4
lcoper,add,5
lcwrite,10


set,10
/title,step10

ETABLE,,SMISC,6
ETABLE,,SMISC,12
plls,smis6,smis12,-1,0　　　　　　　　　!绘制弯矩分布图

850776307

很不错，适合初学者