1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181
| !大桥的受力分析 MPC连接处理 FINISH /CLEAR /FILNAME, BRIDGE /PREP7
MP, EX, 1, 2E5 MP, PRXY, 1, 0.3 MP, DENS, 1, 8E-12 MP, MU, 1, 0.2
*SET, L0, 40 !桥面分块长 *SET, B0, 20 !桥面分块宽 *SET, H0, 80 !桥立柱高 *SET, D0, 10 !桥墩深 *SET, R0, 2 !立柱截面半径 *SET, R1, 0.1 !拉索截面半径
ET, 1, SHELL181 ET, 2, BEAM188 ET, 3, SOLID185 ET, 4, PLANE182
SECTYPE, 1, BEAM, CSOLID SECDATA, R0 SECTYPE, 2, BEAM, CSOLID SECDATA, R1 SECTYPE, 3, SHELL SECDATA, D0
!桥面建模 *DO, i, 0, 5, 1 BLC5, B0/2, L0*i, B0, L0 BLC5, 3*B0/2, L0*i, B0, L0 *ENDDO
!镜像桥面 ARSYM, X, ALL ARSYM, Y, ALL NUMMRG, ALL, , , , LOW
!桥面划分网格、赋予单元类型 AATT, 1, -1, 1, 0, 3 LESIZE, ALL, , , 6 AMESH, ALL NUMMRG, ALL, , , , LOW
EXTOPT, ESIZE, 5 EXTOPT, ACLEAR, 0 TYPE, 3
!拉伸桥墩 *DO, i, 0, 2, 1 ASEL, S, LOC, Y, -4*L0+4*L0*i ASEL, R, LOC, X, 3*B0/2 *GET, AREA1, AREA, , NUM, MIN VOFFST, AREA1, -L0 NUMMRG, ALL, , , , LOW K, , 3*B0/2, -4*L0+4*L0*i *ENDDO
!镜像桥墩 NUMMRG, ALL, , , , LOW VSYMM, X, ALL KSEL, S, LOC, X, 3*B0/2 KGEN, 2, ALL, , , 0, 0, H0, , , 0
!立柱建模 *DO, i, 0, 2, 1 KSEL, R, LOC, Y, -4*L0+4*L0*i *GET, KP1, KP, , NUM, MIN *GET, KP2, KP, , NUM, MAX KSEL, S, LOC, X, 3*B0/2 LSTR, KP1, KP2 *ENDDO
!立柱划分网格、赋予单元类型 LSEL, S, LOC, Z, H0/2 LSYMM, X, ALL LESIZE, ALL, , , 8 LATT, 1, -1, 2, , , , 1 LMESH, ALL
!每个立柱的拉索建模 !第一层循环控制定位到桥面两侧的任意一侧 !第二层循环控制定位每一侧桥面上的每一处立柱 !第三层循环控制一根立柱的所有拉索的建立 !判断语句目的是防止在超出桥面或者立柱的位置上建立拉索 *DO, j, -1, 1, 2 *SET, CUR_X, j*3*B0/2 *DO, i, 0, 2, 1 KSEL, S, LOC, X, CUR_X *SET, CUR_Y, -4*L0+4*L0*i KSEL, R, LOC, Y, CUR_Y KSEL, R, LOC, Z, H0 *GET, KP1, KP, , NUM, MIN *DO, k, 0, 24, 1 *IF, k, NE, 12, THEN *SET, CUR, CUR_Y+(L0/6)*k-2*L0 *IF, CUR, ABLT, 11*L0/2, THEN K, , CUR_X, CUR *GET, KP2, KP, , NUM, MAX LSTR, KP1, KP2 *ENDIF *ENDIF *ENDDO *ENDDO *ENDDO
!除立柱以外的拉索划分网格、赋予单元类型 LSEL, S, LOC, Z, H0/2 *DO, i, 0, 2, 1 *SET, CUR_Y, -4*L0+4*L0*i LSEL, U, LOC, Y, CUR_Y *ENDDO
LATT, 1, -1, 2, , , , 2 LESIZE, ALL, , , 6 LMESH, ALL
NUMMRG, ALL, , , , LOW
!建立面——面接触对 *SET, EID, 5 *SET, RID, 3
*DO, j, -1, 1, 2 *SET, CUR_X, j*3*B0/2 *DO, i, 0, 2, 1 ET, EID, TARGE170 *SET, EID, EID+1 ET, EID, CONTA175 !接触单元关键项设置 KEYOPT, EID, 2, 2 !设置接触算法为MPC算法 KEYOPT, EID, 12, 5 !接触行为——绑定接触 R, RID REAL, RID *SET, CUR_Y, -4*L0+4*L0*i ASEL, S, LOC, X, CUR_X ASEL, R, LOC, Y, CUR_Y ASEL, R, LOC, Z, 0 NSLA, S TYPE, EID-1 ESURF !TARGE单元(目标面)设置 VSEL, S, LOC, X, CUR_X VSEL, R, LOC, Y, CUR_Y ASLV, S ASEL, R, LOC, Z, 0 NSLA, S TYPE, EID ESURF !CONTA单元(接触面)设置 *SET, EID, EID+1 *SET, RID, RID+1 *ENDDO *ENDDO
/SOLU ANTYPE, 0 !大位移非线性求解 NLGEOM, 1
ALLSEL, ALL ASLV, S ASEL, R, LOC, Z, -L0 NSLA, S D, ALL, ALL
ASEL, S, LOC, Z, 0 NSLA, S *GET, NCOUNT, NODE, , COUNT !获取桥面上所有节点的数目 *SET, FSUM, 10000 !载荷和大小 *SET, PR, -1*FSUM/NCOUNT !压强 F, ALL, FZ, PR
ALLSEL, ALL SOLVE
/ESHAPE, 1 /POST1 GPLOT PLNSOL, S, EQV
|