《基于vc与ansys的齿轮分析系统,apdl文件》由会员分享，可在线阅读，更多相关《基于vc与ansys的齿轮分析系统,apdl文件（7页珍藏版）》请在金锄头文库上搜索。
1、基于基于 VCVC 与与 ANSYSANSYS 的齿轮分析系统的齿轮分析系统,APDL,APDL 文件文件FINISH/CLEAR/FILNAM,gearz=24 !齿轮齿数m=5 !齿轮模数a=20 !齿轮压力角ha=1 !齿顶高系数c=0.25 !顶隙系数R2=90R3=40R4=60h0=12h1=16B=44PI=3.141592657inva=0.014904 !渐开线函数的值 /TITLE,The Process of Gear Meshing /PREP7 !进入到 ANSYS 前处理器ET,1,PLANE42 !指定单元类型ET,2,SOLID45K,1000,h0 !生成关键
2、点以利于拖拉生成体K,1001,B-h1 K,1002,-h1K,1003,LSTR,1003,1002 !生成拖拉用的线LSTR,1003,1000LSTR,1000,1001ang=pi/z !每个齿的圆心角的弧度表示ang1=180/z !每个齿的圆心角的角度表示r=m*z/2 !分度圆半径rf=(z-2*ha-2*c)*m/2 !齿根圆半径ra=(z+2*ha)*m/2 !齿顶圆半径r1=m*c !齿根倒角半径s=pi*m/2 !分度圆齿厚*AFUN,DEG !设置角度计算的单位为度rb=r*cos(a) !计算基圆半径*AFUN,RAD !设置角度计算的单位为弧度*DIM,x,6 !
3、定义两组数组用来存放生成的点*DIM,y,6*IF,rb,gt,rf,THEN !比较基圆半径与齿根圆半径的大小phf=ang+inva !基圆半径较大时 x(1)=rf*cos(phf/2) !计算齿根圆的坐标值y(1)=rf*sin(phf/2)*do,i,2,6 !循环计算任意圆上的压力角aa=0 !基圆上渐进线对应的压力角ac=acos(rb/ra) !齿顶圆上渐进线对应的压力角ai=aa+(ac-aa)*(i-2)/4 !渐进线上任意一点对应的压力角invai=tan(ai)-ai !渐近线函数phi=ang+inva-invai !渐进线上任意一点处对应齿厚的圆心角ri=rb/co
4、s(ai) !渐近线上任意一点对应的向径x(i)=ri*cos(phi/2) !任意圆对应曲线的坐标值y(i)=ri*sin(phi/2)*ENDDO !循环结束*ELSE !齿根圆半径较大时*do,i,1,6aa=acos(rb/rf)ac=acos(rb/ra)ai=aa+(ac-aa)*(i-1)/5invai=tan(ai)-aiphi=ang+inva-invairi=rb/cos(ai)x(i)=ri*cos(phi/2)y(i)=ri*sin(phi/2)*ENDDO*ENDIF !条件分支选择结束*DO,i,1,6 !生成 6 个关键点K,i,x(i),y(i)*ENDDOK,
5、7,ra,0 !生成齿顶圆上的关键点LSTR,7,6 !连线生成齿顶圆弧BSPLIN,1,2,3,4,5,6 !样条拟合生成齿廓CYL4,R2/2,0,rf,ang1ADELE,1 !删除生成的圆环面LDELE,6 !生成一条与齿廓相连的线LSTR,1,9 !生成两条线LSTR,7,8LCOMB,9,10,0 !线相加LFILLT,5,6,R1, !对齿根进行倒角LANG,9,8,90, !由倒角半径上的一点生成一条垂线KBETW,13,11,DIST,4 !在两点之间生成一个关键点LANG,7,14,90, !由该关键点生成一条垂线LSBL,9,14,DELETE,KEEP !通过生成的垂线
6、对另一条线进行分割AL,4,11,12,5 !通过线段形成一个齿形面AL,10,12,16,14,7,6AL,13,14,15,8TYPE,1 !指定单元类型 LESIZE,4,2,1 !对线指定划分单元的等份数LESIZE,12,2,1 LESIZE,7,2,1LESIZE,11,6,1LESIZE,5,6,1LCCAT,6,10 !生成连接线以利于映射网格的划分LCCAT,14,16MSHAPE,0,2D !指定单元形状为 2D 结构MSHKEY,1 !指定为映射网格划分AMESH,1,2 !对面 1 和面 2 划分网格 LDELE,9,0 !删除连接线LDELE,17,0cyl4,R3/
7、2,0,R4/2,ang1 !生成轴套部分的圆环LSTR,10,17 !生成辐板上的直线LSTR,11,16AL,8,21,9,20 !生成辐板部分圆环面LESIZE,13,3,1 !对线指定划分单元的等份数LESIZE,15,3,1LESIZE,20,7,1LESIZE,21,7,1LESIZE,17,4,1LESIZE,19,4,1LESIZE,8,3,1LESIZE,9,3,1LESIZE,18,3,1MSHAPE,0,2D !指定单元形状为 2D 结构MSHKEY,1 !指定为映射网格划分AMESH,3,5,1 !对面 3,4,5 划分网格ARSYM,Y,ALL,0,0 !镜像生成一个
8、完整的齿csys,1 !激活坐标系为柱面坐标AGEN,z,all,2*ang1,0 !复制生成 8 个齿NUMMRG,ALL,LOW !进行实体合并操作NUMCMP,ALL !对实体编号进行压缩操作ASEL,s,loc,x,R4/2,R2/2 !选择辐板的面CM,a1,area !生成一个元件名为 A1ASEl,INVE !选择其余的面CM,a2,area !生成另一个元件名为 A2TYPE,2 !指定单元类型为 2ESIZE,4,0 !指定生成的单元的边长CMSEL,s,a2 !选择元件 A2 所指定的面VDRAG,ALL,2,3 !沿线段 222,223 拖拉生成体CMSEL,s,a2 !
9、选择元件 A2 所指定的面VDRAG,ALL,1 !沿线段 221 拖拉生成体CMSEL,s,a1 !选择元件 A1 所指定的面VDRAG,ALL,2 !沿线段 222 拖拉生成体ACLEAR,all !删除 2D 单元LDELE,1LDELE,2LDELE,3*AFUN,DEG SAVE !保存WPSTYLE,0 !关闭工作平面EPLOT !显示所有的单元/VIEW,1,1,1,1 !指定视角方向/ANG,1/FOC,1,auto, !指定焦点位置/DIST,1,1,1 !指定视角的距离/REPLO ad=acos(rb/ra)ASEL,ALLASEL,s,loc,x,R3/2CM,a3,a
10、reaCMSEL,s,a3DA,a3,UXDA,a3,UYLSEL,allLSEL,s,loc,y,2,ang1LSEL,r,loc,x,raCM,a4,lineCMSEL,S,A4NSLL,R,1CM,A5,NODEWPROT,-ad/2CSYS,4NROTAT,A5F,A5,FY,-600ALLSEL,ALL FINISH/SHOW,JPEG,0 JPEG,QUAL,80, JPEG,ORIENT,HORIZ JPEG,COLOR,2JPEG,TMOD,1 /GFILE,800, /CMAP,_TEMPCMAP_,CMP,SAVE /RGB,INDEX,100,100,100,0/RGB,INDEX,0,0,0,15 /REPLOT /CMAP,_TEMPCMAP_,CMP/DELETE,_TEMPCMAP_,CMP /SHOW,CLOSE /DEVICE,VECTOR,0/SOLUANTYPE,STATICMP,EX,1,2.1e11MP,PRXY,1,0.3solveFINISH/POST1/EFACET,1PLNSOL,S,EQV,0,1.0/VIEW,1,1 /ANG,1 /REP,FAST /ZOOM,1,SCRN,1,0,1,0.2/REPLOT
