chinshlia 发表于 2010-1-29 12:23:05

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

!底板变化为二次抛物线
!三维梁单元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 发表于 2010-1-29 13:13:57

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

gufeng0731 发表于 2010-6-29 18:23:38

厉害，多谢楼主！！！

850776307 发表于 2010-6-29 19:21:50

这个东西还好了，谢谢

huang8831 发表于 2010-10-24 10:34:54

牛人，学习之

胜者唯王 发表于 2010-10-27 01:12:07

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

weizumin 发表于 2010-10-27 09:16:59

学习学习，谢谢

lifei609 发表于 2010-12-2 16:39:57

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

syky86 发表于 2010-12-18 21:29:28

牛人，学习了

yanpeng1981 发表于 2010-12-18 22:25:49

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

落梅花 发表于 2011-5-11 14:48:49

楼主你太牛了

ankou7 发表于 2011-5-24 08:19:42

受惊膜拜中~~学习！

liujuntao 发表于 2011-7-28 19:30:47

期待，顶楼。。。

一磅缘 发表于 2011-7-29 14:55:39

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

chdb12 发表于 2011-9-29 13:14:40

好东西！！！

doukewei 发表于 2016-4-5 21:02:33

一直不明白为什么要同时写出secwrite,%i%,sect,,2和 secwrite,%t%,sect,,2，感觉只要将*do,i,1,49改为*do,i,1,50，生成德50个截面的效果是一样的啊，而且后面没有必要再定义secwrite,%t%,sect,,2的命令，一直没搞明白，求教啊
页: [1]
查看完整版本: 变截面箱梁，底板按二次抛物线变化