ANSYS一个火车过桥动态加载的例子by paradiseboy(An example of the dynamic loading of a train across ANSYS is by paradiseboy).doc
- 1、本文档共47页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
ANSYS一个火车过桥动态加载的例子by paradiseboy(An example of the dynamic loading of a train across ANSYS is by paradiseboy)
ANSYS一个火车过桥动态加载的例子by paradiseboy(An example of the dynamic loading of a train across ANSYS is by paradiseboy)
[shares] an example of the dynamic loading of a train across ANSYS
! The dialog box prompts the user to enter basic data
! : reread
! Multipro, 'start', and 3
! * cset, 1, 3, y_bot, 'enter the value of y_bot', 0
! * cset, 4, 6, y_top, 'enter the value of y_bot', 0
! * cset, 7, 9, ttype, 'enter the value of train type', 0! Enter the type of train live
! Multipro, 'end'
Y_bot = 13.9
Y_top = 14.1
Ttype = 0
* if ttype, eq, 0, then
Q1 = 147000! The live load -
Q2 = 92000
Q3 = 80000
L1 = 7.5
L2 = 30
* elseif ttype, eq, 1, then
Q1 = 0
Q2 = 0
Q3 = 0
L1 = 0
L2 = 0
* else
* MSG, UI
Error value of ttype (1 or 2), please enter again
* go: reread
* endif
! Identify the unit of the bridge over the train and rank the unit by the node coordinates
Lsel, s, loc, y, y_bot y_top
Esll, s! Select the bridge unit
Elmax = elmiqr (0, 14)! Maximum unit number
Ndmax = ndinqr (0, 14)! The largest number
* dim, eldk, elmax! Place the bridge over the unit
* dim, NDX, elmax! Node x coordinates (smaller values in the two node coordinates) of the car unit
* dim, nodes, and ndmax! Place the bridge over the car
J = 0
* to do, I, 1, elmax
* the if, esel (I), gt, 0, then
J = j + 1
Eldk (j) = I
* endif
* enddo! Record the number of the bridge unit and save it in array eldk
Eldknum = j! Total bridge unit number
! Sort the eldk array and arrange it from small to large by node coordinates
* to do, I, 1, eldknum
Ii = eldk (I)
Ndi = nelem (2, 1)
NDJ = nelem (2, 2)
I1 = nx (ndi)
I2 = nx (NDJ)
NDX (I) = i1
* the if, i2, lt, i1, then
NDX (I) = i2
* endif
* enddo
* to do, I, 1, eldknum - 1
* do, j, I + 1, eldknum
* if NDX (j), lt, NDX (I), then
Temp = NDX (I)
NDX (I) = NDX (j)
NDX (j) = temp
Temp = eldk (I)
Eldk (I) = eldk (j)
Eldk (j) = temp
* endif
* enddo
* enddo
Nsle, s! Select the node of the bridge unit
J = 0
* to do, I, 1, ndmax
* if nsel (I), gt, 0, then
J = j + 1
Nodes (j) = I
* endif
* enddo
Nd
您可能关注的文档
- (万科)住宅设计统一技术措施(建筑)(Unified technical measures for residential design (construction)).doc
- (建筑工程)第1章3(Chapter 1, 3).doc
- (新版)收缩膜热收缩膜生产制备工艺及应用专利技术光盘((new) shrink film shrinkage film production preparation process and application of patented technology compact disc).doc
- -平面旋转LED点阵套件-电子制作(- plane rotating LED lattice kit - electronic production).doc
- 001世界十大宫殿(001 the world's ten palaces).doc
- 0.8QQ手挡驾驶全攻略(0.8 QQ hand in the driver overall strategy).doc
- 002机械挖土施工工艺(Construction technology of mechanical excavation).doc
- 002作图题(黄冈市物理中考题调考题汇编)(002 graph (a compilation of examination questions in the physics of huanggang)).doc
- 008年石家庄市第二十八中学初三年级一模考试(In 008 shijiazhuang no.28 middle school, the first third grade a module examination).doc
- 005机械回填土施工工艺(Construction technology of mechanical backfill soil).doc
文档评论(0)