ANSYS一个火车过桥动态加载的例子by paradiseboy（国外英文资料）.docVIP

ANSYS一个火车过桥动态加载的例子by paradiseboy [[]]ANSYS share a reprint of the train bridge dynamic loading example Dialog box prompts users to enter basic data : Reread! Multipro,start, 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 live train Multipro,end Y_bot=13.9 Y_top=14.1 Ttype = 0 *if, Ttype, EQ, 0, then Q1 = 147000 medium 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 units passing over the bridge deck and sort the units from node coordinates to small ones Lsel, s, LOC, y, y_bot, y_top Esll, s! Select the deck unit Elmax = elmiqr (0,14) maximum unit number Ndmax = ndinqr (0,14) maximum node number *dim, eldk, elmax, store the deck car passing unit *dim, NDX,, elmax, the node x coordinates (two smaller values in the node coordinates) that have passed the vehicle unit *dim, nodes, ndmax, store the bridge over the cars node J=0 *do, I, 1, elmax *if, esel (I), GT, 0, then J = j+1 Eldk (J) = I *endif *enddo record the label of the bridge deck element and save it in the array eldk Eldknum = J total number of deck units The eldk array is sorted by node coordinates from small to large *do, I, 1, eldknum II = eldk (I) NDI = nelem (II, 1) NDJ = nelem (II, 2) I1 = NX (NDI) I2 = NX (NDJ) NDX (I) = I1 *if, I2, lt, I1, then NDX (I) = I2 *endif *enddo *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 deck unit J=0 *do, I, 1, ndmax *if, nsel (I), GT, 0, then J=j+1 Nodes (J) =i *endif *enddo Ndnum = J total bridge deck points Xmin = NX (nelem (eldk (1), 1)) Temp = NX (nelem (eldk (1), 2)) *if, temp, lt, xmin, then Xmin