幕墙企业玻璃简化计算

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

),ky(7)
*get,nnn4,node,0,count
egen,2,nnn4+kld,1,kld,1,,,,,,kx ,ky 
/UIS,MSGPOP,3
edele,1,kld,1
ndele,1,kld+1
/auto,1
/rep
finish
/solu
allsel
nsel,s,loc,x,kx(5)-0.001,kx(5)+0.001
nsel,r,loc,y,ky(5)-0.001,ky(5)+0.001
d,all,ux,0,,,,uy,uz
allsel
nsel,s,loc,x,kx -0.001,kx +0.001
nsel,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
CPINTF,ALL,0.0001,
finish
gplot
*elseif,hole,eq,6,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,2,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,kbw/sin(a1)+kbh*cos(a1)/sin(a1)+kx(1),kbh+ky(1)
k,6,kx(2)-kbw/sin(a2)+kbh*cos(a2)/sin(a2),kbh+ky(2)
k,7,kx(3)+kbw/sin(a1)-kbh*cos(a1)/sin(a1),ky(3)-kbh
k,8,kx(4)-kbw/sin(a2)+kbw*cos(a2)/sin(a2),ky(4)-kbh
hp=ky(7)-ky(5)
xx9=(hp-dbottom)*(kx(7)-kx(5))/hp
yy9=ky(5)+dbottom
xx10=(hp-dbottom)*(kx -kx )/hp
yy10=ky +dbottom
k,9,kx(7)-xx9,yy9
k,10,kx +xx10,yy10
a,1,2,4,3
CYL4,kx(5),ky(5),kr
CYL4,kx ,ky ,kr
CYL4,kx(7),ky(7),kr
CYL4,kx ,ky ,kr
CYL4,kx(9),ky(9),kr
CYL4,kx(10),ky(10),kr
asba,1,2
asba,8,3
asba,1,4
asba,2,5
asba,1,6
asba,2,7
aplot
/UIS,MSGPOP,3
R,1,thforcal,
MP,EX,1,7.2e10
MP,PRXY,1,0.21
mp,dens,1,2560
SMRT,6
TYPE, 1
MAT, 1
REAL, 1
ESYS, 0
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
LSEL,S,LENGTH,,2*kr,l+w
LSEL,INVE
lesize,all,,,kld/4
smrtsize,6
mshape,1,2d
mshkey,0
amesh,1
eplot
*get,nnn1,node,0,count
egen,2,nnn1+kld,1,kld,1,,,,,,kx(5),ky(5)
*get,nnn2,node,0,count
egen,2,nnn2+kld,1,kld,1,,,,,,kx ,ky 
*get,nnn3,node,0,count
egen,2,nnn3+kld,1,kld,1,,,,,,kx(7),ky(7)
*get,nnn4,node,0,count
egen,2,nnn4+kld,1,kld,1,,,,,,kx ,ky 
*get,nnn5,node,0,count
egen,2,nnn5+kld,1,kld,1,,,,,,kx(9),ky(9)
*get,nnn6,node,0,count
egen,2,nnn6+kld,1,kld,1,,,,,,kx(10),ky(10)
/UIS,MSGPOP,3
edele,1,kld,1
ndele,1,kld+1
/auto,1
/rep
finish
/solu
allsel
nsel,s,loc,x,kx(5)-0.001,kx(5)+0.001
nsel,r,loc,y,ky(5)-0.001,ky(5)+0.001
d,all,ux,0,,,,uy,uz
allsel
nsel,s,loc,x,kx -0.001,kx +0.001
ns
|<< << < 1 2 3 4 5 6 > >> >>|
www.mapeng.net 马棚网
www.mapeng.net
文章作者:未知 | 文章来源:网络 | 责任编辑:admin | 发送至邮箱: | 加入收藏:
本文关键字:幕墙  企业  玻璃  简化  计算
相关资讯
热点资讯
推荐资讯

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