变截面箱梁，底板按二次抛物线变化

chinshlia

!底板变化为二次抛物线
!三维梁单元beam188单元
/prep7
et,1,beam188
et,2,plane82
mp,ex,1,2e6
mp,prxy,1,0.167
*do,i,1,49
y1=(i**2)/200+5
k,1,5,0
k,2,5,y1
k,3,10,y1
k,4,10,y1+1
k,5,-10,y1+1
k,6,-10,y1
k,7,-5,y1
k,8,-5,0
a,1,2,3,4,5,6,7,8
blc4,-4,1,8,y1-1
asba,1,2
wpoffs,0,1
wprota,0,90
asbw,all
wpoffs,0,,-(y1-1)
asbw,all
wpcsys
wpstyl
mshkey,1
mshape,0,2d
esize,0.5
amap,5,4,3,6,5
amap,1,14,13,1,8
lsel,s,line,,10
lsel,a,line,,12
lsel,a,line,,17
lsel,a,line,,18
lesize,all,,,5
asel,s,area,,3,4
amesh,all
allsel,all
secwrite,%i%,sect,,2
gplot
aclear,all
adele,all
ldele,all
kdele,all
y2=(i+1)**2/200+5
k,1,5,0
k,2,5,y2
k,3,10,y2
k,4,10,y2+1
k,5,-10,y2+1
k,6,-10,y2
k,7,-5,y2
k,8,-5,0
a,1,2,3,4,5,6,7,8
blc4,-4,1,8,y2-1
asba,1,2
wpoffs,0,1
wprota,0,90
asbw,all
wpoffs,0,,-(y2-1)
asbw,all
wpcsys
wpstyl
mshkey,1
mshape,0,2d
esize,0.5
amap,5,4,3,6,5
amap,1,14,13,1,8
lsel,s,line,,10
lsel,a,line,,12
lsel,a,line,,17
lsel,a,line,,18
lesize,all,,,5
allsel,all
asel,s,area,,3,4
amesh,all
allsel,all
t=i+1
secwrite,%t%,sect,,2
gplot
aclear,all
adele,all
ldele,all
kdele,all
*enddo
*do,i,1,50
n,i,0,0,i
*enddo
*do,i,1,49
sectype,i,beam,mesh
secread,%i%,sect,,mesh
secoffset,user,0,(i+1)*(i-1)/200
sectype,i+1,beam,mesh
t=i+1
secread,%t%,sect,,mesh
secoffset,user,0,i*(i+2)/200
sectype,50+i,taper
secdata,i,0,0,i
secdata,i+1,0,0,i+1
type,1
secnum,50+i
mat,1
e,i,i+1
/eshape,1
eplot
*enddo

xuguojis

谢谢楼主无私奉献！学习下

gufeng0731

厉害，多谢楼主！！！

850776307

这个东西还好了，谢谢

huang8831

牛人，学习之

胜者唯王

感谢无私奉献，值得学习！

weizumin

学习学习，谢谢

lifei609

不错不错不错，楼主 可以加我QQ  共同进步 419744902

syky86

牛人，学习了

yanpeng1981

这种直接建模的能力，真是钦佩。基本功确实需要锻炼，谢谢分享

落梅花

楼主你太牛了

ankou7

受惊膜拜中~~学习！

liujuntao

期待，顶楼。。。

一磅缘

楼主强人，初学者以后还要你多多指导啊！

chdb12

好东西！！！

doukewei

一直不明白为什么要同时写出secwrite,%i%,sect,,2和 secwrite,%t%,sect,,2，感觉只要将*do,i,1,49改为*do,i,1,50，生成德50个截面的效果是一样的啊，而且后面没有必要再定义secwrite,%t%,sect,,2的命令，一直没搞明白，求教啊