转自关海土木
建模型
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
[ 本帖最后由 水幽寒 于 2006-10-25 12:21 编辑 ] |