《工况一U肋最大拉应力》由会员分享，可在线阅读，更多相关《工况一U肋最大拉应力（18页珍藏版）》请在金锄头文库上搜索。
1、fini/clear ! !清除数据库，开始新操作/filename,zjyxb453/title,zjyxb/units,si/prep7 ! !进入前处理器et,1,shell63!编号为 1，单元类型为 shell63 et,2,45!编号为2，单元类型为solid45r,1,0.014!编号为1，厚度为0.014m，顶板厚 r,2,0.008!编号为2，厚度为0.008m，加劲梁 r,3,0.012!编号为3，厚度为0.012m，横梁腹板 r,4,0.020!编号为4，厚度为0.020m，主梁腹板 r,5,0.040!编号为5，厚度为0.040m，主梁翼缘 r,6,0.015!编号为6
2、，厚度为0.015m，横梁翼缘mp,ex,1,2.06e11!材料 1，弹模为 2.06e11 钢材 mp,dens,1,7.85e3!材料 1，密度为 7.85e3 mp,prxy,1,0.3!材料 1，泊松比为 0.3mp,ex,2,1.2e9!材料2，弹模为1.2e9 铺装层 mp,dens,2,2.4e3!材料 2，密度为 2.4e3 mp,prxy,2,0.3!材料 2，泊松比为 0.3 mp,ex,3,1.0e3!材料 3，弹模为 1.0 e3 轮胎mp,prxy,3,0.3!材料 3，泊松比为 0.3*set,l,41+4.3!定义常数l为桥梁的跨度，l=41+4.3mrectn
3、g,0,9.75,0,l/2!以坐标（0,0）和（9.75,l/2）建立矩形面csys,4!选择工作平面（x-y坐标平面）为当前激活的坐标系wpstyle,1!显示坐标平面坐标架/pnum,line,1 !显示线编号lwplan,1,1!X作平面法线方向同线1重合，最后一个参数控制其在线上的位置，可取 01/pnum,line,0!关闭线编号 wpoffs,-0.15 !把工作平面沿z方向平移-0.15m asbw,all!通过工作平面划分顶板平面 wpoffs,-0.45!把工作平面沿z方向平移-0.45m asbw,all!通过工作平面划分顶板平面wpoffs,-0.3!把工作平面沿z方向
4、平移-0.3m asbw,all ! !通过工作平面划分顶板平面 k,-0.24,0.05 !建立关键点，其坐标为(0,-0.24,0.05),系统自动为其编号 k,l/2,-0.24,0.05!建立关键点，其坐标为(l/2,-0.24,0.05)，系统自动为其编号 k,-0.24,0.25!建立关键点，其坐标为(0,-0.24,0.25)，系统自动为其编号 k,l/2,-0.24,0.25!建立关键点，其坐标为(l/2,-0.24,0.25)，系统自动为其编号 /pnum,kp,1 !显示关键点编号 a,9,10,12,11 !通过9、10、11和12四个关键点建立新面 a,7,8,14,1
5、3!通过7、8、14和13四个关键点建立新面 a,11,12,14,13!通过11、12、14和13四个关键点建立新面 /pnum,kp,0!关闭关键点编号 allsel !全部选择 aplot !显示面asel,s,loc,y,-0.1,-100!通过当前局部坐标选择所建的U肋，即y方向-0.1-100范 围内的面agen,16,all,-0.6 !沿z方向复制16次所选择的U肋，16次包括所复制的对 象本身allsel!全部选择!删除纵梁处的U肋！wpoffs,0.75!把工作平面沿z方向平移0.75mwpoffs,-4.2!把工作平面沿z方向平移-4.2masel,s,loc,z,-0.
6、3,0.3!通过当前局部坐标选择纵梁处的U肋，即z方向-0.30.3范 围内的面adele,all,1 !删除所选择的面及面中的线和关键点，最后一个参数为0，则只删除面 积本身allsel!全部选择asbw,all!通过工作平面划分顶板平面wpoffs,-5.4!把工作平面沿z方向平移-5.4masbw,all!通过工作平面划分顶板平面asel,s,loc,z,-0.3,0!选择顶板左侧的半个多余的U肋，即z方向-0.30范围内的面adele,all,1!删除所选择的面及面中所包含的线和关键点allsel!全部选择!建立纵梁和开口肋！/pnum,kp,1!显示关键点编号！kwpave,55!移
7、动工作平面到关键点的中间位置!rectng,0,l/2,0,-4.5!建立纵梁腹板！kwpave,5!移动工作平面到关键点的中间位置!rectng,0,l/2,0,-0.36!建立开口肋腹板！kwpave,127!移动工作平面到关键点的中间位置!wprota,90 !工作平面绕X轴旋转90度rectng,0,l/2,0,-0.075!建立开口肋下翼缘，分两次!rectng,0,l/2,0,0.075!建立开口肋下翼缘，分两次!kwpave,59rectng,0,l/2,0,-0.2!建立纵梁下翼缘，分两次！rectng,0,l/2,0,0.2!建立纵梁下翼缘，分两次!切分所有模型！kwpave
8、,58wprota,90!X作平面绕y轴旋转90度*set,i !定义变量 i*do,i,0,3,1 !定义循环 i=03wpoffs,(l-1)/8!把工作平面沿z方向平移(l-1)/8asbw,all!通过工作平面划分所选择面*enddo!结束循环!切分纵梁腹板！csys,0kp1=kp(5.4,0,0)kwpave,kp1csys,4wprota,90asel,s,loc,y,0!通过坐标选择纵梁腹板面wpoffs,-0.240!把工作平面沿z方向平移-0.240masbw,all!通过工作平面划分所选择面*set,i !定义变量 i*do,i,0,2,1 !定义循环 i=02wpoff
9、s,-0.22!把工作平面沿z方向平移-0.220masbw,all!通过工作平面划分所选择面*enddo!结束循环*set,i !定义变量 i*do,i,0,1,1 !定义循环 i=01wpoffs,-0.3asbw,all*enddo*set,i !定义变量 i*do,i,0,4,1 !定义循环 i=01wpoffs,-0.5 asbw,all *enddo!再次切分所有模型！allselwprota,90wpoffs,-(l-1)/64asbw,all*set,i !定义变量 i*do,i,0,2,1 !定义循环 i=02wpoffs,-6*(l-1)/64asbw,allwpoffs,
10、-2*(l-1)/64asbw,all*enddowpoffs,-6*(l-1)/64asbw,allallselaplot!建立横梁腹板！csys,0!激活坐标系到系统笛卡尔坐标系kgen,2,2,-1.2 !沿z方向复制关键点一次 hgb=2.5kp1=kp(5.4,0,0)kp2=kp(5.4,0,-hgb)kp3=kp(9.75,0,-1.2)kp4=kp(9.75,0,0)a,kp2,kp1,kp4,kp3 !通过关键点建立面kwpave,kp1!移动工作平面到关键点的中间位置 csys,4 !激活坐标系到局部坐标系rectng,0,hgb,0,-5.4 !以坐标（0,0）和（hgb
11、,-5.4）建立矩形面asel,s,loc,y,4.1,-100asel,r,loc,x,-1,hgb!选择除开口 T肋以及横梁下翼缘以下的面积 aptn,all !面于面互相分割!删除U肋端部的U形面！ asel,s,loc,x,0.01,0.23!选择 U 肋 asel,r,loc,z,0!选择U肋边缘的U形面积、 adelel,all,1!删除面、线及关键点 allsel!切分横梁腹板！asel,s,loc,x,0.36,hgbasel,r,loc,z,0!选择横梁腹板wpoffs,0.24!工作平面平移到U肋底部wprota,90!工作平面绕y轴旋转90度asbw,all!通过工作平面
12、切分所选择面*set,i !定义变量 i*do,i,0,2,1 !定义循环 i=02wpoffs,0.22asbw,all*enddo*do,i,0,1,1 !定义循环 i=01wpoffs,0.3asbw,all*enddowpoffs,0.5asbw,allallsel!全部选择!删除多余U肋下缘！kwpave,58!移动工作平面到关键点的中间位置asel,s,loc,y,0,0.1!选择中间半个U肋上下两面asel,r,loc,z,0!选择中间位置U肋下面 adele,all,1!删除所选U肋下面 allsel!建立横梁下翼缘！lwplan,1008,1 !移动工作平面法线方向同线1010重合 wprota,90rectng,0,(1.3*2+(9.75-5.4)*2)*0.5 ,-0.15,0.15lwplan,2471wprota,90rectng,-0.15,0.15,0,5.4asel,s,loc,z,0,2asel,r,loc,x,-0.15,0.15!选择横梁和其下翼缘相交处的面 aptn,all!面于面互相切分allsel!切分横梁！asel,s,loc,x,-0.15,0.15!选择横梁kwpave,2wprota,90asel,u,loc,y,-0.24,0!除去U肋下缘以上的面 *set,i !定义变量 i*do,i,0,2,1 !定义循环 i=02
