地震反映谱

5dehaoma

一三层 钢框架的地震反映谱分析，请大家笑纳！！

1. !钢框架的振型分解反应谱分析
   
2. /prep7
   
3. et,1,beam188
   
4. mptemp,1
   
5. mpdata,ex,1,,2.06e11
   
6. mpdata,dens,1,,7850
   
7. mpdata,prxy,1,,0.2
   
8. mpdata,ex,2,,25.5e15
   
9. mpdata,dens,2,,1088e2
   
10. mpdata,prxy,2,,0.2
    
11. sectype,1,beam,hrec,colum
    
12. secoffset,cent
    
13. secdata,0.5,0.5,0.02,0.02,0.02,0.02
    
14. sectype,2,beam,i,beam
    
15. secoffst,user,0,0.5
    
16. secdata,0.4,0.4,0.5,0.015,0.015,0.015
    
17. k,1,-4.5
    
18. k,2,-4.5,4
    
19. k,3,-4.5,8.0
    
20. k,4,-4.5,12  
    
21. k,5,4.5,12  
    
22. k,6,4.5,8   
    
23. k,7,4.5,4
    
24. k,8,4.5
    
25. 
    
26. l,1,2
    
27. l,2,3
    
28. l,3,4
    
29. l,4,5
    
30. l,5,6
    
31. l,6,7
    
32. l,7,8
    
33. l,3,6
    
34. l,2,7
    
35. l,7,8
    
36. nummrg,all
    
37. numcmp,all
    
38. lesize,all,,,20
    
39. lsel,s,loc,x,-4.5
    
40. lsel,a,loc,x,4.5
    
41. k,15,0,15
    
42. latt,1,1,1,,15,,1
    
43. lmesh,all,all
    
44. allsel,all
    
45. lsel,s,loc,y,4
    
46. lsel,a,loc,y,8
    
47. lsel,a,loc,y,12
    
48. latt,2,1,1,,15,,2
    
49. lmesh,all,all
    
50. allsel
    
51. nsel,s,loc,y,0
    
52. d,all,all
    
53. allsel,all
    
54. /eshape,1
    
55. /replot
    
56. /solu
    
57. antype,modal
    
58. modopt,lanb,10,0,0,,off
    
59. mxpand,10,,,yes
    
60. acel,,9.8
    
61. solve
    
62. finish
    
63. /solu
    
64. antype,spectr
    
65. spopt,sprs,,yes
    
66. dmprat,0.02
    
67. svtyp,2,1
    
68. sed,1
    
69. !!ii类建筑场地，6度设防，多遇地震（近震）
    
70. !曲线的下降段衰减系数r=0.95
    
71. !amax=0.11
    
72. !阻尼比=0.02
    
73. !特征周期Tg=0.34s
    
74. !直线段的下降段斜率调整系数r1=0.02375
    
75. !阻尼调整系数r2=1.319
    
76. !定义反应谱曲线
    
77. freq,0.420168067,0.452488688,0.49016078,0.534759358,0.588235294,0.653594771,0.735294118,0.840336134,0.980392157
    
78. freq,1.176470588,1.470588253,1.960784314,2.941176471,10,1000000
    
79. sv,0.02,0.296731616,0.301172866,0.305614116,0.310055366,0.314496616,0.347604662,0.388759029,0.441339541,0.510942806
    
80. sv,0.02,0.607567413,0.751032939,0.987076437,1.451,1.451,0.495
    
81. solve
    
82. finish
    
83. /solu
    
84. antype,spectr
    
85. srss,0.15,disp
    
86. solve
    
87. finish
    
88. /post1
    
89. allsel,all
    
90. sumtype,prin
    
91. /input,,mcom
    
92. plnsol,u,sum
    
93. etable,mx,smisc,4,17
    
94. etable,my,smisc,2,15
    
95. etable,bk,smisc,28,30
    
96. pletab,mx
    
97. pletab,my
    
98. pletab,bk
    
99. lcwrite,1,'spectrum','l01',''
    
100. finish
     
101. /solu
     
102. antype,static,
     
103. 
     
104. solve
     
105. fini
     
106. /post1
     
107. set,1
     
108. lcdef,1,1,1
     
109. lcfile,2,'spectrum','l01',''
     
110. lcfact,2,1.3
     
111. sumtype,prin
     
112. lcase,1
     
113. lcoper,add,2,,2
     
114. esel,u,type,,1
     
115. plnsol,u,sum

复制代码

[ 本帖最后由 MVH 于 2006-10-4 15:46 编辑 ]

peppersister

谢谢啊

mikebaby

谢谢！