幕墙企业玻璃简化计算

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

t,1,3,kr,''Radium of glass hole(unit:m)'',0.0175
*cset,4,6,kbw,''Distance to width side(unit:m)'',0.106
*cset,7,9,kbh,''Distance to height side(unit:m)'',0.106
*cset,10,12,Dbottom,''hole central distance to bottom'',1
*cset,13,15,Wdiv,''divide number on the width side'',40
*cset,16,18,Hdiv,''divide number on the heigth side'',40
*cset,19,21,holediv,''divide number on the hole side'',32
*cset,22,24,gravity,''The gravity Acceleration(unit:m/s2)'',0
*cset,25,27,switch,''Choose solution type'',1
*cset,61,62,''Please Fill in related blanks to'','' Get FEA solution''
*cset,63,64,''SWITCH:0--[By Youself]1--[Small'','',Deformed] 2--[LargeDeformed]''
multipro,''end''
*endif
*if,hole,eq,0,then!!!!!!!!!!平板建模
/prep7
csys,0
k,1,1,1
k,2,1+w,1
*afun,deg
k,3,1+H*cos(a1)/sin(a1),1+H
k,4,1+w-H*cos(a2)/sin(a2),1+H
a,1,2,4,3
et,1,shell63
*if,type,eq,1,then
thforcal=1.1*thi
*elseif,type,eq,2,then
thforcal=1.1*1.25*thi
*elseif,type,eq,3,then
thforcal=1.1*1.20*thi
*endif
R,1,thforcal,
MP,EX,1,7.2e10
MP,PRXY,1,0.21
mp,dens,1,2560
lsel,s,loc,y,ky(1)-0.01,ky(1)+0.01
lesize,all,,,wdiv
lsel,all
lsel,s,loc,y,ky(3)-0.01,ky(3)+0.01
lesize,all,,,wdiv
lsel,all
lsel,s,loc,x,kx(1)-0.01,kx(3)+0.01
lesize,all,,,hdiv
lsel,all
lsel,s,loc,x,kx(4)-0.01,kx(2)+0.01
lesize,all,,,hdiv
lsel,all
amesh,1
*if,doftop,eq,0,then
*elseif,doftop,eq,1,then
lsel,s,loc,y,ky(3)-0.01,ky(3)+0.01
dl,all,,uz
dl,all,,uX
allsel
*elseif,doftop,eq,2,then
lsel,s,loc,y,ky(3)-0.01,ky(3)+0.01
dl,all,,uz
dl,all,,uy
allsel
*endif
*if,dofdown,eq,0,then
*elseif,dofdown,eq,1,then
lsel,s,loc,y,ky(1)-0.01,ky(1)+0.01
dl,all,,uz
dl,all,,uX
allsel
*elseif,dofdown,eq,2,then
lsel,s,loc,y,ky(1)-0.01,ky(1)+0.01
dl,all,,uz
dl,all,,uy
allsel
*endif
*if,dofleft,eq,0,then
*elseif,dofleft,eq,1,then
lsel,s,loc,x,kx(1)-0.01,kx(3)+0.01
dl,all,,uz
dl,all,,uY
allsel
*elseif,dofleft,eq,2,then
lsel,s,loc,x,kx(1)-0.01,kx(3)+0.01
dl,all,,uz
dl,all,,ux
allsel
*endif
*if,dofright,eq,0,then
*elseif,dofright,eq,1,then
lsel,s,loc,x,kx(4)-0.01,kx(2)+0.01
dl,all,,uz
dl,all,,uY
allsel
*elseif,dofright,eq,2,then
lsel,s,loc,x,kx(4)-0.01,kx(2)+0.01
dl,all,,uz
dl,all,,ux
allsel
*endif
finish
*elseif,hole,eq,2,then!!!!!!!!!!!!两点建模
/prep7
/UIS,MSGPOP,3
et,1,shell63
*if,type,eq,1,then
thforcal=1.1*thi
*elseif,type,eq,2,then
thforcal=1.1*1.25*thi
*elseif,type,eq,3,then
thforcal=1.1*1.20*thi
*endif
r,2,thforcal
mp,ex,2,2.06e11
mp,prxy,2,0.3
csys,1
n,1,
n,2,kr,
kld=holediv
ngen,kld,1,2,,,,360/kld
*creat,make,mac
et,1,shell63
real,2
mat,2
! :do loop1
*do,i,2,kld,1
e,1,i,i+1
*enddo
finish
/prep7
e,1,kld+1,2
*end
make
finish
/prep7
csys,0
k,1,1,1
k,2,1+w,1
*afun,deg
k,3,1+H*cos(a1)/sin(a1),1+H
k,4,1+w-H*cos(a2)/sin(a2),1+H
k,5,kx(3)+kbw/sin(a1)-kbh*cos(a1)/sin(a1),ky(3)-kbh
k,6,kx(4)-kb
|<< << < 1 2 3 4 5 6 > >> >>|
www.mapeng.net 马棚网
www.mapeng.net
文章作者:未知 | 文章来源:网络 | 责任编辑:admin | 发送至邮箱: | 加入收藏:
本文关键字:幕墙  企业  玻璃  简化  计算
相关资讯
热点资讯
推荐资讯

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