这是Algor、Ansys在桥梁工程中的应用---------------连续刚构桥的建模及分析的例子,详见附件
/prep7
/title,the analsys of ganggou bridge
et,1,solid95
et,2,link8
mp,prxy,1,0.1667
mp,dens,1,2600
mp,ex,1,3.5e10
mp,ex,2,1.95e11
mp,dens,2,7800
mp,prxy,2,0.3
areagjx=1.4e-4
*dim,gjarea,array,4
gjarea(1)=15*areagjx
gjarea(2)=18*areagjx
gjarea(3)=20*areagjx
gjarea(4)=22*areagjx
F=195.5e3
E=1.95e11
L=1
detl=F*L/(E*areagjx)
istrn=detL/(detL+L)
r,2,gjarea(1),istrn
r,3,gjarea(2),istrn
r,4,gjarea(3),istrn
r,5,gjarea(4),istrn
acel,,9.8
k,2,-2.45,0
k,3,-3.25,0
k,4,-6,0
k,5,-6,-0.18
k,6,-3.25,-0.45
k,7,-2.45,-0.45
k,11,-3.25,-3.9
k,12,-2.45,-3.9
k,13,-2.45,-4.5
k,14,-3.25,-4.5
ksym,x,2,14,1,100
kgen,2,9,14,1,0,-0.00125*(40-10)*(40-10)+2,10,2000
kgen,2,109,114,1,0,-0.00125*(40-10)*(40-10)+2,10,2000
kgen,2,9,14,1,0,-0.00125*(40-20)*(40-20)+2,20,3000
kgen,2,109,114,1,0,-0.00125*(40-20)*(40-20)+2,20,3000
kgen,2,9,14,1,0,-0.00125*(40-30)*(40-30)+2,30,4000
kgen,2,109,114,1,0,-0.00125*(40-30)*(40-30)+2,30,4000
kgen,2,9,14,1,0,-0.00125*(40-40)*(40-40)+2,40,5000
kgen,2,109,114,1,0,-0.00125*(40-40)*(40-40)+2,40,5000
kgen,2,2,14,1,0,0,1,1000
kgen,2,102,114,1,0,0,1,1000
kgen,2,2,7,1,0,0,10,2000
kgen,2,102,107,1,0,0,10,2000
kgen,2,2,7,1,0,0,20,3000
kgen,2,102,107,1,0,0,20,3000
kgen,2,2,7,1,0,0,30,4000
kgen,2,102,107,1,0,0,30,4000
kgen,2,2,7,1,0,0,40,5000
kgen,2,102,107,1,0,0,40,5000
k,100,0,0,0
k,200,1,0,0
k,300,0,1,0
k,400,0,-4.5,0
k,500,0,-14.5,0
l,400,500
k,21,-3.75,-0.25,-40
k,22,3.75,-0.25,-40
k,23,3.75,-0.25,40
k,24,-3.75,-0.25,40
k,25,-6,-0.1,-40
k,26,-3.75,-0.25,-40
k,27,-3.75,-0.25,40
k,28,-6,-0.1,40
k,29,6,-0.1,-40
k,30,3.75,-0.25,-40
k,31,3.75,-0.25,40
k,32,6,-0.1,40
a,21,22,23,24
a,25,26,27,28
a,29,30,31,32
*do,i,1000,5000,1000
v,2+i-1000,i-1000+7,i-1000+107,i-1000+102,2+i,7+i,107+i,102+i
v,2+i-1000,i-1000+3,i-1000+6,i-1000+7,2+i,3+i,6+i,7+i
v,3+i-1000,i-1000+4,i-1000+5,i-1000+6,3+i,4+i,5+i,6+i
v,7+i-1000,i-1000+6,i-1000+11,i-1000+12,7+i,6+i,11+i,12+i
v,11+i-1000,i-1000+14,i-1000+13,i-1000+12,11+i,i+14,i+13,i+12
v,12+i-1000,i-1000+13,i-1000+113,i-1000+112,12+i,i+13,i+113,i+112
v,100+2+i-1000,100+i-1000+3,100+i-1000+6,100+i-1000+7,100+2+i,100+3+i,100+6+i,100+7+i
v,100+3+i-1000,100+i-1000+4,100+i-1000+5,100+i-1000+6,100+3+i,100+4+i,100+5+i,100+6+i
v,100+7+i-1000,100+i-1000+6,100+i-1000+11,100+i-1000+12,100+7+i,100+6+i,100+11+i,100+12+i
v,100+11+i-1000,100+i-1000+14,100+i-1000+13,100+i-1000+12,100+11+i,100+i+14,100+i+13,100+i+12
*enddo
v,7,12,112,107,1007,1012,1112,1107
cskp,100,0,100,200,300
vsel,all
csys,100
vsymm,z,1,100,1,10000,0,0
csys,0
asel,s,loc,y,-4.5
vdrag,all,,,,,,1
allsel
vsel,all
wprota,0,0,90
wpave,2.7
vsbw,all
wpave,3
vsbw,all
wpave,-3
vsbw,all
wpave,-2.7
vsbw,all
wpave,2.45
vsbw,all
wpave,3.25
vsbw,all
wpave,-3.25
vsbw,all
wpave,-2.45
vsbw,all
wpave,2.2
vsbw,all
wpave,3.5
vsbw,all
wpave,-3.5
vsbw,all
wpave,-2.2
vsbw,all
wpave,1.95
vsbw,all
wpave,3.75
vsbw,all
wpave,-3.75
vsbw,all
wpave,-1.95
vsbw,all
vsel,s,loc,y,-0.45,0
vsba,all,1
vsba,all,2
vsba,all,3
allsel
vglue,all
[ 本帖最后由 fybwl 于 2006-8-12 16:46 编辑 ] |