大学力学论坛

 找回密码
 注册
查看: 4980|回复: 6

ansys做的一个剪力墙的例子

[复制链接]
发表于 2011-12-20 22:37:23 | 显示全部楼层 |阅读模式
FINISH
/CLEAR
/FILENAME,FRAME-SHEAR WALL
/TITLE,FRAME-SHEAR WALL
/PREP7
ET,1,BEAM4
ET,2,SHELL63
R,1,0.25,0.0052,0.0052,0.5,0.5
R,2,0.2025,0.0034,0.0034,0.45,0.45
R,3,0.06,0.0002,0.00045,0.3,0.2
R,4,0.25,0.25,0.25,0.25
R,5,0.1,0.1,0.1,0.1
MP,EX,1,3E10
MP,prxy,1,0.2
MP,DENS,1,2500
*DO,II,1,1
K,1+(II-1)*20,0,0,(II-1)*6
K,2+(II-1)*20,6,0,(II-1)*6
K,3+(II-1)*20,12,0,(II-1)*6
K,4+(II-1)*20,17,0,(II-1)*6
K,5+(II-1)*20,0,5,(II-1)*6
K,6+(II-1)*20,6,5,(II-1)*6
K,7+(II-1)*20,12,5,(II-1)*6
K,8+(II-1)*20,17,5,(II-1)*6
K,9+(II-1)*20,0,10,(II-1)*6
K,10+(II-1)*20,6,10,(II-1)*6
K,11+(II-1)*20,12,10,(II-1)*6
K,12+(II-1)*20,17,10,(II-1)*6
K,14+(II-1)*20,6,1.875,(II-1)*6
K,16+(II-1)*20,6,3.125,(II-1)*6
K,18+(II-1)*20,6,1.875,3.9
K,20+(II-1)*20,6,3.125,3.9
*ENDDO
*DO,II,1,10
K,1+II*20,0,0,(II-1)*3+6
K,2+II*20,6,0,(II-1)*3+6
K,3+II*20,12,0,(II-1)*3+6
K,4+II*20,17,0,(II-1)*3+6
K,5+II*20,0,5,(II-1)*3+6
K,6+II*20,6,5,(II-1)*3+6
K,7+II*20,12,5,(II-1)*3+6
K,8+II*20,17,5,(II-1)*3+6
K,9+II*20,0,10,(II-1)*3+6
K,10+II*20,6,10,(II-1)*3+6
K,11+II*20,12,10,(II-1)*3+6
K,12+II*20,17,10,(II-1)*3+6
K,13+II*20,0,1.875,(II-1)*3+6
K,14+II*20,6,1.875,(II-1)*3+6
K,15+II*20,0,3.125,(II-1)*3+6
K,16+II*20,6,3.125,(II-1)*3+6
K,17+II*20,0,1.875,(II-1)*3+6+1.5
K,18+II*20,6,1.875,(II-1)*3+6+2
K,19+II*20,0,3.125,(II-1)*3+6+1.5
K,20+II*20,6,3.125,(II-1)*3+6+2
*ENDDO
*DO,II,11,11
K,1+II*20,0,0,(II-1)*3+6
K,2+II*20,6,0,(II-1)*3+6
K,3+II*20,12,0,(II-1)*3+6
K,4+II*20,17,0,(II-1)*3+6
K,5+II*20,0,5,(II-1)*3+6
K,6+II*20,6,5,(II-1)*3+6
K,7+II*20,12,5,(II-1)*3+6
K,8+II*20,17,5,(II-1)*3+6
K,9+II*20,0,10,(II-1)*3+6
K,10+II*20,6,10,(II-1)*3+6
K,11+II*20,12,10,(II-1)*3+6
K,12+II*20,17,10,(II-1)*3+6
K,13+II*20,0,1.875,(II-1)*3+6
K,14+II*20,6,1.875,(II-1)*3+6
K,15+II*20,0,3.125,(II-1)*3+6
K,16+II*20,6,3.125,(II-1)*3+6
K,17+II*20,0,1.875,(II-1)*3+6+1.8
K,18+II*20,6,1.875,(II-1)*3+6+2.5
K,19+II*20,0,3.125,(II-1)*3+6+1.8
K,20+II*20,6,3.125,(II-1)*3+6+2.5
*ENDDO
*DO,II,12,12
K,1+II*20,0,0,39.5
K,2+II*20,6,0,39.5
K,3+II*20,12,0,39.5
K,4+II*20,17,0,39.5
K,5+II*20,0,5,39.5
K,6+II*20,6,5,39.5
K,7+II*20,12,5,39.5
K,8+II*20,17,5,39.5
K,9+II*20,0,10,39.5
K,10+II*20,6,10,39.5
K,11+II*20,12,10,39.5
K,12+II*20,17,10,39.5
*ENDDO

*DO,II,2,13
L,(II-1)*20+1,(II-1)*20+2
L,(II-1)*20+2,(II-1)*20+3
L,(II-1)*20+3,(II-1)*20+4
L,(II-1)*20+5,(II-1)*20+6
L,(II-1)*20+6,(II-1)*20+7
L,(II-1)*20+7,(II-1)*20+8
L,(II-1)*20+9,(II-1)*20+10
L,(II-1)*20+10,(II-1)*20+11
L,(II-1)*20+11,(II-1)*20+12
L,(II-1)*20+5,(II-1)*20+9
L,(II-1)*20+6,(II-1)*20+10
L,(II-1)*20+3,(II-1)*20+7
L,(II-1)*20+7,(II-1)*20+11
L,(II-1)*20+4,(II-1)*20+8
L,(II-1)*20+8,(II-1)*20+12
*ENDDO
*DO,II,1,12
L,(II-1)*20+1,II*20+1
L,(II-1)*20+2,II*20+2
L,(II-1)*20+3,II*20+3
L,(II-1)*20+4,II*20+4
L,(II-1)*20+5,II*20+5
L,(II-1)*20+6,II*20+6
L,(II-1)*20+7,II*20+7
L,(II-1)*20+8,II*20+8
L,(II-1)*20+9,II*20+9
L,(II-1)*20+10,II*20+10
L,(II-1)*20+11,II*20+11
L,(II-1)*20+12,II*20+12
*ENDDO
*DO,II,1,1
L,(II-1)*20+14,(II-1)*20+18
L,(II-1)*20+16,(II-1)*20+20
*ENDDO
*DO,II,2,12
L,(II-1)*20+13,(II-1)*20+17
L,(II-1)*20+15,(II-1)*20+19
L,(II-1)*20+14,(II-1)*20+18
L,(II-1)*20+16,(II-1)*20+20
*ENDDO
A,1,21,25,5
*DO,II,2,12
A,(II-1)*20+1,II*20+1,II*20+5,(II-1)*20+5,(II-1)*20+15,(II-1)*20+19,(II-1)*20+17,(II-1)*20+13
*ENDDO
*DO,II,1,12
A,(II-1)*20+2,II*20+2,II*20+6,(II-1)*20+6,(II-1)*20+16,(II-1)*20+20,(II-1)*20+18,(II-1)*20+14
*ENDDO
*DO,II,1,12
A,II*20+1,II*20+2,II*20+6,II*20+5
A,II*20+2,II*20+3,II*20+7,II*20+6
A,II*20+3,II*20+4,II*20+8,II*20+7
A,II*20+5,II*20+6,II*20+10,II*20+9
A,II*20+6,II*20+7,II*20+11,II*20+10
A,II*20+7,II*20+8,II*20+12,II*20+11
*ENDDO
LSEL,S,,,181,192
LATT,1,1,1
LESIZE,ALL,,,,10
LMESH,ALL
LSEL,S,,,192,324
LATT,1,2,1
LESIZE,ALL,,,5
LMESH,ALL
LSEL,S,,,1,180
LATT,1,3,1
LESIZE,ALL,,,8
LMESH,ALL
LSEL,S,,,372
LSEL,A,,,413
LSEL,A,,,461
LESIZE,ALL,,,8
LSEL,S,,,418
LSEL,A,,,420
LESIZE,ALL,,,3
LSEL,S,,,325
LSEL,A,,,326
LESIZE,ALL,,,6
LSEL,S,,,375
LSEL,A,,,379
LSEL,A,,,383
LSEL,A,,,387
LSEL,A,,,391
LSEL,A,,,395
LSEL,A,,,399
LSEL,A,,,403
LSEL,A,,,407
LSEL,A,,,411
LSEL,A,,,415
LSEL,S,,,419
LSEL,A,,,423
LSEL,A,,,427
LSEL,A,,,431
LSEL,A,,,435
LSEL,A,,,439
LSEL,A,,,443
LSEL,A,,,447
LSEL,A,,,451
LSEL,A,,,455
LSEL,A,,,459
LSEL,A,,,463
LESIZE,ALL,,,2
ASEL,S,,,1,24
AATT,1,4,2
AMESH,ALL
ASEL,S,,,25,96
AATT,1,5,2
AMESH,ALL
/ESHAPE,10
FINISH
!自重荷载
/SOLU
ANTYPE,STATIC
NSEL,S,LOC,Z,0
D,ALL,ALL
ALLSEL,ALL
ACEL,0,0,9.8
SOLVE
FINISH
/POST1
SET,FIRST
PLNSOL,U,Z,0,1
PLNSOL,S,EQV,0,1
!风荷载
/SOLU
ANTYPE,STATIC
*DIM,LOAD_1,ARRAY,12
LOAD_1(1)=3.78,2.16,2.39,2.57,2.72,2.84,2.95,3.17,3.20,3.29,3.39,3.51
*DIM,LOAD_2,ARRAY,12
LOAD_2(1)=7.56,4.32,4.78,5.14,5.44,5.68,5.90,6.34,6.40,6.58,6.76,7.02
*DIM,LOAD_3,ARRAY,12
LOAD_3(1)=6.93,3.96,4.38,4.71,4.99,5.21,5.41,5.81,5.87,6.03,6.20,6.44
*DIM,LOAD_4,ARRAY,12
LOAD_4(1)=3.15,1.80,1.99,2.14,2.27,2.37,2.46,2.64,2.67,2.74,2.82,2.93
*DIM, LOAD_A,ARRAY,12
LOAD_A(1)=3.15,1.80,1.99,2.14,2.27,2.37,2.46,2.64,2.67,2.74,2.82,2.93
*DIM,LOAD_B,ARRAY,12
LOAD_B(1)=6.30,3.60,3.98,4.28,4.54,4.74,4.92,5.28,5.34,5.48,5.64,5.86
*DIM,LOAD_C,ARRAY,12
LOAD_C(1)=3.15,1.80,1.99,3.14,2.27,2.37,2.46,2.64,2.67,2.74,2.82,2.93
*DO,II,1,12
FK,I+20*II,FY,LOAD_1(II)
*ENDDO
*DO,II,1,12
FK,2+20*II,FY,LOAD_2(II)
*ENDDO
*DO,II,1,12
FK,3+20*II,FY,LOAD_3(II)
*ENDDO
*DO,II,1,12
FK,4+20*II,FY,LOAD_4(II)
*ENDDO
SOLVE
FKDELE,ALL,ALL
*DO,II,1,12
FK,1+20*II,FX,LOAD_A(II)
*ENDDO
*DO,II,1,12
FK,2+20*II,FX,LOAD_B(II)
*ENDDO
*DO,II,1,12
FK,3+20*II,FX,LOAD_C(II)
*ENDDO
SOLVE
FINISH
/POST1
SET,FIRST
PLNSOL,U,Y,0,1
PLNSOL,S,1,0,1
SET,NEXT
PLNSOL,U,X,0,1
PLNSOL,S,1,0,1
FINISH

!模态分析
/SOL
ANTYPE,MODAL
MODOPT,LANB,6
MODOPT,LANB,6,0,0,,OFF
SOLVE
FINISH
/POST1
SET,LIST
SET,FIRST
PLDISP,0
SET,NEXT
PLDISP,0
SET,NEXT
PLDISP,0
SET,NEXT
PLDISP,0
SET,NEXT
PLDISP,0
SET,NEXT
PLDISP,0
FINISH
!地震加速度下的响应
NT=150
*DIM,TIME,,NT
*DIM,AC_X,,NT
*DIM,AC_Y,,NT
*DIM,AC_Z,,NT
*VREAD,TIME,TIME,TXT,,IJK,NT
(F6.2)
*VREAD,AC_X,AC_X,TXT,
(F6.2)
*VREAD,AC_Y,AC_Y,TXT,
(F6.2)
*VREAD,AC_Z,AC_Z,TXT,
(F6.2)
/SOLU
ANTYPE,TRANS
NSUBST,1,,,1
*DO,II,1,NT
ACEL,AC_X(II),AC_Y(II),AC_Z(II)
TIME,TIME(II)
SOLVE
*ENDDO
/POST26
NSOL,2,733,U,X,UX_1
NSOL,3,773,U,X,UX_2
NSOL,4,748,U,X,UX_3
NSOL,5,748,U,X,UX_4
NSOL,6,733,U,Y,UY_1
NSOL,7,748,U,Y,UY_2
NSOL,8,773,U,Y,UY_3
NSOL,9,788,U,Y,UY_4
NSOL,10,733,U,Z,UZ_1
NSOL,11,748,U,Z,UZ_2
NSOL,12,773,U,Z,UZ_3
NSOL,13,788,U,Z,UZ_4
PLVAR,2,3,4,5
PLVAR,6,7,8,9
PLVAR,10,11,12,13
FINISH
22.jpg
发表于 2011-12-20 23:46:11 | 显示全部楼层
楼主好强啊!佩服佩服
发表于 2011-12-22 11:52:29 | 显示全部楼层
佩服,厉害呀,呵呵,参考一下。
发表于 2012-1-4 22:46:32 | 显示全部楼层
楼主头像好漂亮呀,求大图{:soso_e120:}
发表于 2012-1-5 18:50:28 | 显示全部楼层
强大,佩服!{:soso_e100:}
发表于 2012-1-6 13:41:45 | 显示全部楼层
虽然不懂,但是貌似很先进的说{:soso_e102:}
发表于 2012-3-24 19:38:16 | 显示全部楼层
如果我没记记错,这是万水编的ANSYS教程里的一个例子

第一次看的时候,我就有个疑问,剪力墙的材料参数你是根据什么确定了
您需要登录后才可以回帖 登录 | 注册

本版积分规则


QQ|Archiver|手机版|小黑屋|大学力学论坛|基础力学教研学论坛 ( 苏ICP备09076535号 )

GMT+8, 2018-12-12 18:26 , Processed in 0.163240 second(s), 22 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表