FINISH
/CLEAR
/PREP7
ET,1,BEAM4 ! 主梁单元 (三维空间梁单元)
ET,2,LINK8 ! 主缆、吊杆单元 (三维空间杆单元)
MP,EX,1,2.1E11 ! 主梁材料常数 (弹性模量)
MP,DENS,1,14827 (密度)
MP,NUXY,1,0.3 (泊松比)
MP,EX,2,2.0e11 ! 主缆材料常数 (弹性模量)
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.50,, ! 塔变截面实常数 (底部)
RMORE,,1190.00 (扭转常数)
R,5,62.70,507.00,838.00,11.00,11.50,, !(截面积,面内、面外惯量,梁宽、高)
RMORE,,1090.00
R,6,58.60,461.00,765.00,11.00,11.50,,
RMORE,,997.00
R,7,54.50,415.00,692.00,11.00,11.50,,
RMORE,,899.00
R,8,50.40,369.00,619.00,11.00,11.50,,
RMORE,,802.00
R,9,46.30,323.00,546.00,11.00,11.50,,
RMORE,,704.00
R,10,42.2,277.00,474.00,11.00,11.50,,
RMORE,,607.00
R,11,38.1,231.00,401.00,11.00,11.50,,
RMORE,,510.00
R,12,34.0,185.00,328.00,11.00,11.50,,
RMORE,,412.00
R,13,29.8,139.00,255.00,11.00,11.50,, ! 塔变截面实常数 (横梁下)
RMORE,,315.00
R,14,27.8,116.00,219.00,6.00,8.50,, ! 塔上部等截面实常数
RMORE,,266.00
R,15,32.0,182.00,213.00,7.80,8.50,, ! 下横梁实常数
RMORE,,318.00
R,16,31.5,170.s00,212.00,6.00,8.50,, ! 上横梁实常数
RMORE,,244.00
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 ! 前南塔单元
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 ! 前北塔单元
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 ! 后北塔单元
TYPEe,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,527
E,574,521
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 ! 考虑重力影响
PSTRES,ON ! 激活预应力选项
SOLVE ! 静力分析求解
FINISH
/SOLU ! 重新进入求解
ANTYPE,2 ! 模态分析
MODOPT,LANB,20 ! 用分块Lanczos法提取前20阶模态
MXPAND,20, , ,0
PSTRES,1 ! 激活预应力选项
MODOPT,LANB,20,0,100, ,OFF
SOLVE ! 模态分析求解
FINISH
/POST1
SET,FIRST
PLDI,,
ANMODE,10,0.5, ,0 ! 动画显示第一阶振型
ansys_command.rar_ANSYS 命令流_ANSYS命令流_ansys_ansys command_命令流
版权申诉
114 浏览量
2022-09-19
15:33:46
上传
评论
收藏 13KB RAR 举报
JonSco
- 粉丝: 67
- 资源: 1万+
评论0