幕墙企业玻璃简化计算

发布日期:[08-12-04 14:43:46] 浏览人次:[]

el,r,loc,y,ky -0.001,ky +0.001
d,all,uy,0,,,,uz
allsel
nsel,s,loc,x,kx(7)-0.001,kx(7)+0.001
nsel,r,loc,y,ky(7)-0.001,ky(7)+0.001
d,all,ux,0,,,,uz
allsel
nsel,s,loc,x,kx -0.001,kx +0.001
nsel,r,loc,y,ky -0.001,ky +0.001
d,all,uz,0,,,,
allsel
nsel,s,loc,x,kx(9)-0.001,kx(9)+0.001
nsel,r,loc,y,ky(9)-0.001,ky(9)+0.001
d,all,ux,0,,,,uz
allsel
nsel,s,loc,x,kx(10)-0.001,kx(10)+0.001
nsel,r,loc,y,ky(10)-0.001,ky(10)+0.001
d,all,uz,0,,,,
allsel
CPINTF,ALL,0.0001,
finish
gplot
*endif
finish
/solu!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!求解部分
Ek=3*seismic*(thi+tho)*26.0*1000*9.8
w=1.4*wk
e=1.3*ek
q1=0.6*ek+wk
q2=w+0.6*e
finish
/solu
/UIS,MSGPOP,3
esel,s,real,,1,1,1
eplot
sfe,all,1,pres,,q1
acel,,gravity,
allsel
gplot
*if,switch,eq,1,then
nlgeom,off
kbc,1
*elseif,switch,eq,2,then
nlgeom,on
sstif,on
nsubst,10
kbc,1
*endif
solv
finish
/post1
esel,s,real,,1,1,1
AVPRIN
plnsol,u,sum,0,1
*get,numall,node,0,count
*get,numstart,node,0,num,min
umax=0
inuse=numstart
*do,i,1,numall,1
*get,usum,node,inuse,u,sum
*if,umax,ge,usum,then
umax=umax
*elseif,umax,lt,usum,then
umax=usum
*endif
inuse=ndnext(inuse)
*enddo
finish
/solu
/UIS,MSGPOP,3
esel,s,real,,1,1,1
eplot
sfe,all,1,pres,,q2
allsel
gplot
*if,switch,eq,1,then
nlgeom,off
kbc,1
solv
finish
/post1
esel,s,real,,1,1,1
AVPRIN
plnsol,s,eqv,0,1
allsel
esel,s,real,,1,1,1
NSLE,S
*get,numall,node,0,count
*get,numstart,node,0,num,min
smax=0
inuse=numstart
*do,i,1,numall,1
*get,ssum,node,inuse,s,eqv
*if,smax,ge,ssum,then
smax=smax
*elseif,smax,lt,ssum,then
smax=ssum
*endif
inuse=ndnext(inuse)
*enddo
allsel
*if,thforcal,le,0.012,then
dmq=84
kbq=58.8
*elseif,thforcal,gt,0.012,then
dmq=59
kbq=41.3
*endif
*if,h,lt,w,then
duanb=h
*elseif,h,ge,w,then
duanb=w
*endif
str=smax/1e6
esel,s,real,,1,1,1
/UIS,MSGPOP,1
*msg,note,str,umax*1000,dmq,10*duanb
Ultimate Limit States Glass STRESS=%gMa,%/&
Serviceabilitylimits DISPLACEMENT=%gmm,%/&
[Toughened Glass Allowble Stress]=%gMa,%/&
[Control Displacement]=%gmm,
/UIS,MSGPOP,3
*elseif,switch,eq,2,then
nlgeom,on
sstif,on
nsubst,10
kbc,1
solv
finish
/post1
esel,s,real,,1,1,1
AVPRIN
plnsol,s,eqv,0,1
allsel
esel,s,real,,1,1,1
NSLE,S
*get,numall,node,0,count
*get,numstart,node,0,num,min
smax=0
inuse=numstart
*do,i,1,numall,1
*get,ssum,node,inuse,s,eqv
*if,smax,ge,ssum,then
smax=smax
*elseif,smax,lt,ssum,then
smax=ssum
*endif
inuse=ndnext(inuse)
*enddo
allsel
*if,thforcal,le,0.012,then
dmq=84
kbq=58.8
*elseif,thforcal,gt,0.012,then
dmq=59
kbq=41.3
*endif
*if,h,lt,w,then
duanb=h
*elseif,h,ge,w,then
duanb=w
*endif
str=smax/1e6
esel,s,real,,1,1,1
/UIS,MSGPOP,1
*msg,note,str,umax*1000,dmq,10*duanb
Ultimate Limit States Glass STRESS=%gMa,%/&
Serviceabilitylimits
|<< << < 1 2 3 4 5 6 > >> >>|
www.mapeng.net 马棚网
www.mapeng.net
文章作者:未知 | 文章来源:网络 | 责任编辑:admin | 发送至邮箱: | 加入收藏:
本文关键字:幕墙  企业  玻璃  简化  计算
相关资讯
热点资讯
推荐资讯

关于我们 | 站点导航 | 使用帮助 | 友情链接 | 广告服务 | 免责声明 | 新手上路
设为首页 | 加入收藏 | 在线留言 | 马棚网QQ群:{92562572}{102901272}{333259257} | 交流QQ: 客户服务 客户服务 客户服务