一个悬索桥的APDL

yingjie328

finish                                         
/clear
/filename，xuansuoqiao
/title，xuansuodyna
/prep7

et,1,beam4
et,2,link8
mp,ex,1,2.1e11
mp,dens,1,14827
mp,nuxy,1,0.3
mp,ex,2,2e11
mp,dens,2,8923
mp,nuxy,2,0.3
mp,ex,3,1.5e11
mp,dens,3,7900
mp,nuxy,3,0.3
mp,ex,4,2.1e15
mp,dens,4,0
mp,nuxy,4,0.3
mp,ex,5,3.5e10
mp,dens,5,2600
mp,nuxy,5,0.167
mp,ex,6,2.1e11
mp,dens,6,7800
mp,nuxy,6,0.3
r,1,1.412,3.026,165.937,35.70,3.50
rmore,,10.571
r,2,0.3838
r,3,0.00622
r,4,66.80,553.00,911.00,11.00,11.5,,
rmore,,1190.00
r,5,62.70,507.00,838.00,11.00,11.50,,
rmore,,1090
r,6,58.60,461.00,765,11.00,11.5,,
rmore,,997
r,7,54.5,415,692,11.00,11.5,,
rmore,,899
r,8,50.4,369,619,11.00,11.5,,
rmore,,802
r,9,46,323,546,11.00,11.5,,
rmore,,704
r,10,41,277,474,11.00,11.5,,
rmore,,607
r,11,38,231,401,11.00,11.5,,
rmore,,510
r,12,34,185,328,11.00,11.5,,
rmore,,412
r,13,30,140,255,11.00,11.5,,
rmore,,316
r,14,27,116,219,6,8.5,,
rmore,,266
r,15,32,182,213,7.8,8.5,,
rmore,,318
r,16,31.5,170,212,6,8.5,,
rmore,,244
r,17,0.1288,0.0084,0.0084,2.00,8.50,,
rmore,,0.09911

!连续
n,1,
n,2,25,
n,70,1113
fill,2,70,67
n,71,1138
*do,i,1,71,1
n,100+i,nx(i),125.851-4*113.8*(1138-nx(i))*nx(i)/1138/1138,35.7/2
n,200+i,nx(i),125.851-4*113.8*(1138-nx(i))*nx(i)/1138/1138,-35.7/2
n,300+i,nx(i),,35.7/2
n,400+i,nx(i),,-35.7/2
*enddo
n,701,-330,-33,35.7/2
n,702,-330,-33,-35.7/2
n,703,1138+330,-33,35.7/2
n,704,1138+330,-33,-35.7/2
/view,1,1,1,1
gplot
type,1
mat,1
real,1
*do,i,1,70
e,i,i+1
*enddo

type,2
mat,2
real,2
*do,i,1,70
e,100+i,101+i

e,200+i,201+i
*enddo

e,701,101
e,702,201
e,703,171
e,704,271
type,2
mat,3
real,3
*do,i,2,70
e,100+i,300+i
e,200+i,400+i
*enddo

type,1
mat,4
real,1
*do,i,2,70
e,i,300+i
e,i,400+i
*enddo
gplot
n,501,0,-63.855,35.7/2
n,511,0,0,35.7/2
fill,501,511,9
n,528,0,125.851,35.7/2
fill,511,528,16
n,551,0,-63.855,-35.7/2
n,561,0,0,-35.7/2
fill,551,561,9
n,578,0,125.851,-35.7/2
fill,561,578,16

n,601,1138,-63.855,35.7/2
n,611,1138,0,35.7/2
fill,601,611,9
n,628,1138,125.851,35.7/2
fill,611,628,16
n,651,1138,-63.855,-35.7/2
n,661,1138,0,-35.7/2
fill,651,661,9
n,678,1138,125.851,-35.7/2
fill,661,678,16

*do,i,1,10                     !qianhounanta
type,1
mat,5
real,3+i
e,500+i,501+i
*enddo

type,1
mat,5
real,14
*do,i,1,17
e,510+i,511+i
*enddo

*do,i,1,10
type,1
mat,5
real,3+i
e,550+i,551+i
*enddo

type,1
mat,5
real,14
*do,i,1,17
e,560+i,561+i
*enddo

                                               
*do,i,1,10                     !qianhoubeita
type,1
mat,5
real,3+i
e,600+i,601+i
*enddo

type,1
mat,5
real,14
*do,i,1,17
e,610+i,611+i
*enddo

*do,i,1,10
type,1
mat,5
real,3+i
e,650+i,651+i
*enddo

type,1
mat,5
real,14
*do,i,1,17
e,660+i,661+i
*enddo
nummrg,node,,,,,low
n,500,
n,600,1138
type,1
mat,6
real,15
e,301,500
e,500,401
e,371,600
e,600,471

type,1
mat,6
real,17
e,577,524
e,574,521
e,574,527
e,571,524
e,677,624
e,674,627
e,674,621
e,671,624
type,1
mat,6
real,16
e,201,101
e,271,171
cp,1,uy,1,500
cp,2,uy,71,600
cp,3,uz,1,500
cp,4,uz,71,600
cp,5,rotx,1,500
cp,6,rotx,71,600
d,701,all
d,702,all
d,703,all
d,704,all
d,501,all
d,551,all
d,601,all
d,651,all
gplot
finish
/solu
antype,0
acel,,9.8
pstress,on
solve
finish

/solu
antype,2
modopt,lanb,20
mxpand,20,,,0
pstress,1
modopt,lanb,20,0,100,,off
solve
finish
/post1

fini
/config,nres,20000
*dim,aa,TABLE,3000,1                         !输入三向天津地震波 （天津医院记录南北东西竖向）
*dim,bb,TABLE,3000,1
*dim,cc,TABLE,3000,1
*vread,aa(1,1),acex,txt,,1          !从文件中读取数值
(e16.6)
*vread,bb(1,1),acey,txt,,1          !从文件中读取数值
(e16.6)
*vread,cc(1,1),acez,txt,,1          !从文件中读取数值
(e16.6)
csys,0
/solu
outr,all,all
nsel,all
anty,trans
*do,tm,0.01,10,0.01
time,tm
acel,aa(tm)/100,bb(tm)/100,cc(tm)/100      
lswrite,tm/0.01
*enddo
lssolve,1,1000
fini

yingjie328

不好意思，上面的灯是（i）

keno

是i，还是(i)?

yingjie328

是（i）