算弯矩的命令流.docVIP

算弯矩的命令流 finish /CLEAR /Filname,Ⅲ,1 !指定工作名称 /title, LANXI !指定图形显示标题 /units,si !国际单位制 /PREP7 !**********************尺寸参数的设定*********************** h=1.5 !钢轨间距 !轨道板+自密实混凝土层参数 kjjj=0.625 !扣件间距 kjn=9 !扣件对数 bw=2.5 !板宽 bl=5.6 !板长 bn=3 !板数 bf=0.07 !板缝 bh=0.21 !板厚 bbkjj=0.3 !板边到第一组扣件的距离 !底座板参数 dzl=bl*bn+(bn-1)*bf dzw=2.74 dzh=0.3 !找平层参数 zpl=bl*bn+(bn-1)*bf zpw=3.3 zph=0.12 !***************定义单元类型并设置材料属性*********************** et,1,shell63 et,2,beam3 et,3,combin14 keyopt,3,2,3 mp,ex,1,3.65e10 !轨道板 mp,ey,1,3.65e10 mp,ez,1,3.65e10 mp,prxy,1,0.2 mp,pryz,1,0.2 mp,prxz,1,0.2 mp,alpx,1,1e-5 mp,alpy,1,1e-5 mp,alpz,1,1e-5 mp,dens,1,2.5e3 mp,ex,2,3.25e10 !底座板 mp,ey,2,3.25e10 mp,ez,2,3.25e10 mp,prxy,2,0.2 mp,pryz,2,0.2 mp,prxz,2,0.2 mp,alpx,2,1e-5 mp,alpy,2,1e-5 mp,alpz,2,1e-5 mp,dens,2,2.5e3 mp,ex,3,3e10 !找平层 mp,ey,3,3e10 mp,ez,3,3e10 mp,prxy,3,0.2 mp,pryz,3,0.2 mp,prxz,3,0.2 mp,alpx,3,1e-5 mp,alpy,3,1e-5 mp,alpz,3,1e-5 mp,dens,3,2.5e3 mp,ex,4,2.06e11 !钢轨材料属性 mp,alpx,4,1.2e-5 mp,gxy,4,7.9e10 mp,dens,4,7.8e3 mp,prxy,4,0.3 r,1,bh r,2,dzh r,3,zph r,4,77.45e-4,3217e-8,0.176 r,5,46.4156e7/1479 !橡胶垫层刚度 r,6,2.5e7 !扣件刚度 r,7,14e9/1305 !自密实层与底座板的连接弹簧刚度 r,8,1e20 !路基弹簧刚度 !*****************建立模型***************** !*****************建立轨道板*************** blc4,-bbkjj,-(bw-h)/2,bl,bw agen,3,all,,,bl+bf !*****************建立底座板*************** wpoffs,,,-(bh+dzh)/2 blc4,-bbkjj,-(dzw-h)/2,dzl,dzw !*****************建立找平层*************** wpoffs,,,-(dzh+zph)/2 blc4,-bbkjj,-(zpw-h)/2,zpl,zpw !*****************切分轨道板********** WPCSYS,-1 asel,all wprota,0,0,90 asbw,all *do,i,1,kjn-1,1 wpoffs,,,kjjj asbw,all *enddo wpoffs,,,bbkjj asbw,all wpoffs,,,bf asbw,all wpoffs,,,bbkjj asbw,all *do,j,1,kjn-1,1 wpoffs,,,kjjj asbw,all *enddo wpoffs,,,bbkjj asbw,all wpoffs,,,bf asbw,all wpoffs,,,bbkjj asbw,all *do,k,1,kjn-1,1 wpoffs,,,kjjj asbw,all *enddo wprota,0,90 asbw,a