自己写的 3跨简支梁 （2D)

zp4655958

!矩形截面
finish
/clear
/prep7
et,1,3
mp,ex,1,2e11
mp,prxy,1,0.3
mp,dens,1,2500
r,1,0.8,(0.8**3)/12,0.8
k,1,
k,2,6.581
k,3,7.831
k,4,11.331
k,5,11.331+1.250
k,6,19.162
l,1,2
l,2,3
l,3,4
l,4,5
l,5,6
dk,1,ux,,,,uy
dk,3,uy,
dk,4,uy,
dk,6,uy,
fk,1,fy,-125.311e3
fk,2,fy,-380.593e3
fk,5,fy,-379e3
fk,6,fy,-125.429e3
lesize,all,,,10
lmesh,all
eplot
sbctran
allsel
/solu
solve
allsel,all
fkdele,all,all,all
acel,,9.8,
solve
/post1
lcdef,1,1,1
lcdef,2,2,1
lcfact,1,1
lcfact,2,1.2
lcase,1
lcoper,add,2
prrsol
etable,myi,smisc,6
etable,myj,smisc,12
plls,myi,myj,-1
/title,wanjutu
/ui,copy,save,jpeg
自己写的 高手指教
！工字钢（I32a）
finish
/clear
/prep7
et,1,beam189
mp,ex,1,2.06e11
mp,prxy,1,0.3
mp,dens,1,7850
sectype,1,beam,i
secdata,0.130,0.130,0.32,0.015,0.015,0.0095
k,1,
k,2,6.581
k,3,7.831
k,4,11.331
k,5,11.331+1.250
k,6,19.162
k,100,0,100
l,1,2
l,2,3
l,3,4
l,4,5
l,5,6
dk,1,ux,,,,uy,uz,rotx,roty
dk,3,uy,,,,uz,rotx,roty
dk,4,uy,,,,uz,rotx,roty
dk,6,uy,,,,uz,rotx,roty
fk,1,fy,-125.311e3
fk,2,fy,-380.593e3
fk,5,fy,-379e3
fk,6,fy,-125.429e3
lesize,all,,,10
latt,1,,1,,100,,1
lmesh,all
eplot
sbctran
allsel
/solu
solve
allsel,all
fkdele,all,all,all
acel,,9.8,
solve
/post1
lcdef,1,1,1
lcdef,2,2,1
lcfact,1,1
lcfact,2,1.2
lcase,1
lcoper,add,2
prrsol
etable,myi,smisc,2
etable,myj,smisc,15
plls,myi,myj,-1
/title,wanjutu
/ui,copy,save,jpeg
etable,qi,smisc,5
etable,qj,smisc,18
plls,qi,qj,
/title,jianlitu
/ui,copy,save,jpeg

cming2008303

我想知道，这种自己用参数写 是不是很难啊？我也想学参数语言。

zp4655958

推荐 王新敏老师的书  按照书中的命令流自己做一遍你肯定会有收获的！~