ansys中建2维两齿轮接触模型的方法？？？

/PREP7
!定义小齿轮齿轮参数
M=2E-3 !齿轮模数
PI=3.1415 !定义π
Z1=36 !小齿轮齿数
ALFA1=20/180*PI !定义小齿轮的标准压力角
Ha=1 !定义齿顶高系数
C=0.25 !定义顶隙系数
D1=M*Z1 !定义小齿轮分度圆直径
Dk1=M*Z1*COS(ALFA1) !定义小齿轮基圆直径
Rk1=Dk1/2 !定义小齿轮基圆半径
Df1=D1-2*(Ha+C)*M !定义小齿轮齿根圆直径
Rf1=Df1/2 !定义小齿轮齿根圆半径
Da1=D1+2*Ha*M !定义小齿轮齿顶圆直径
Ra1=Da1/2 !定义小齿轮齿顶圆半径
ALFA_Ding1=ACOS(Rk1/Ra1)!定义小齿轮齿顶压力角
SITA_Ding1=(TAN(ALFA_Ding1)-ALFA_Ding1)*180/PI !定义小齿轮齿顶展角
SITA1=(tan(ALFA1)-ALFA1)*180/PI !定义小齿轮分度圆展角ET,1,SOLID185
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.06E11
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7850
!定义小齿轮的渐开线
ALFA_Dingn1=alfa_ding1/10 !定义压力角份数
*DIM,ALFA,ARRAY,10,1 !定义10×1数组ALFA
*DIM,SITA,ARRAY,9,1 !定义9×1数组SITA
*DIM,R,ARRAY,9,1 !定义9×1数组R
CSYS,1 !当前坐标系为柱坐标
ALFA(1,1)=0 !数组数ALFA(1,1)=0
K,100,Rk1,0 !生成关键点100
*DO,i,1,9,1 !循环生成其他关键点
ALFA(i+1,1)=ALFA(i,1)+ALFA_Dingn1
SITA(i,1)=(tan(alfa(i+1,1))-alfa(i+1,1))*180/PI
R(i,1)=Rk1/cos(alfa(i+1,1))
/prep7
K,i+100,R(i,1),sita(i,1)
*enddo !循环结束生成9个关键点
k,110,ra1,sita_ding1 !生成齿顶圆上的关键点
bsplin,all !用样条曲线连接所有点
!定义小齿轮齿根过渡曲线
!定义小齿轮齿根圆
FLST,2,2,8
FITEM,2,0,0,0
FITEM,2,Rf1,0,0
CIRCLE,P51X, , , ,360, ,
!定义线
L,100,1
!定义齿根过渡曲线
LCOMB,1,6
LFILLT,1,5,0.38*m, ,
LDELE,2, , ,1
LDELE,3, , ,1
LDELE,4, , ,1
LDELE,5, , ,1
LCOMB,1,6
!定义单个齿的平面模型
LOCAL,11,0,0,0,0,SITA1+90/Z1, , ,1,1,
CSYS,11,
LSYMM,Y,1,
FLST,2,2,8
FITEM,2,0,0,0
FITEM,2,RF1,0,0
CIRCLE,P51X

FLST,2,2,8
FITEM,2,0,0,0
FITEM,2,RA1,0,0
CIRCLE,P51X
CSYS,1
FLST,3,2,4,ORDE,2
FITEM,3,1
FITEM,3,-2
LGEN,2,P51X, , , ,360/Z1, , ,0
LOVLAP,ALL !搭接所有的线
!删除指定的线
LDELE,21, , ,1
LDELE,8, , ,1
LDELE,9, , ,1
LDELE,10, , ,1
LDELE,18, , ,1
LDELE,4, , ,1
LDELE,5, , ,1
LDELE,19, , ,1
LDELE,12, , ,1
LDELE,22, , ,1
LDELE,23, , ,1
LDELE,11, , ,1
LDELE,13, , ,1
LDELE,20, , ,1
LDELE,15, , ,1
LDELE,17, , ,1
!通过复制产生完整的齿轮轮廓
LGEN,Z1,ALL, , , ,360/Z1, , ,0
LGLUE,ALL !粘结所有的线
!通过齿轮轮廓线建立齿轮平面模型
FLST,2,144,4
FITEM,2,160
FITEM,2,60
FITEM,2,58
FITEM,2,59
FITEM,2,159
FITEM,2,56
FITEM,2,54
FITEM,2,55
FITEM,2,158
FITEM,2,52
FITEM,2,50
FITEM,2,51
FITEM,2,157
FITEM,2,48
FITEM,2,46
FITEM,2,47
FITEM,2,156
FITEM,2,44
FITEM,2,42
FITEM,2,43
FITEM,2,155
FITEM,2,40
FITEM,2,38
FITEM,2,39
FITEM,2,154
FITEM,2,36
FITEM,2,34
FITEM,2,35
FITEM,2,153
FITEM,2,32
FITEM,2,30
FITEM,2,31
FITEM,2,152
FITEM,2,28
FITEM,2,26
FITEM,2,27
FITEM,2,151
FITEM,2,24
FITEM,2,22
FITEM,2,23
FITEM,2,150
FITEM,2,20
FITEM,2,18
FITEM,2,19
FITEM,2,149
FITEM,2,15
FITEM,2,12
FITEM,2,13
FITEM,2,148
FITEM,2,10
FITEM,2,8
FITEM,2,9
FITEM,2,147
FITEM,2,6
FITEM,2,4
FITEM,2,5
FITEM,2,3
FITEM,2,145
FITEM,2,2
FITEM,2,14
FITEM,2,1
FITEM,2,146
FITEM,2,142
FITEM,2,143
FITEM,2,180
FITEM,2,140
FITEM,2,138
FITEM,2,139
FITEM,2,179
FITEM,2,136
FITEM,2,134
FITEM,2,135
FITEM,2,178
FITEM,2,132
FITEM,2,130
FITEM,2,131
FITEM,2,177
FITEM,2,128
FITEM,2,126
FITEM,2,127
FITEM,2,176
FITEM,2,124
FITEM,2,122
FITEM,2,123
FITEM,2,175
FITEM,2,120
FITEM,2,118
FITEM,2,119
FITEM,2,174
FITEM,2,116
FITEM,2,114
FITEM,2,115
FITEM,2,173
FITEM,2,112
FITEM,2,110
FITEM,2,111
FITEM,2,172
FITEM,2,108
FITEM,2,106
FITEM,2,107
FITEM,2,171
FITEM,2,104
FITEM,2,102
FITEM,2,103
FITEM,2,170
FITEM,2,100
FITEM,2,98
FITEM,2,99
FITEM,2,169
FITEM,2,96
FITEM,2,94
FITEM,2,95
FITEM,2,168
FITEM,2,92
FITEM,2,90
FITEM,2,91
FITEM,2,167
FITEM,2,88
FITEM,2,86
FITEM,2,87
FITEM,2,166
FITEM,2,84
FITEM,2,82
FITEM,2,83
FITEM,2,165
FITEM,2,80
FITEM,2,78
FITEM,2,79
FITEM,2,164
FITEM,2,76
FITEM,2,74
FITEM,2,75
FITEM,2,163
FITEM,2,72
FITEM,2,70
FITEM,2,71
FITEM,2,162
FITEM,2,68
FITEM,2,66
FITEM,2,67
FITEM,2,161
FITEM,2,64
FITEM,2,62
FITEM,2,63
AL,P51X
PCIRC,0.4*RA1, ,0,360,

我这有个视频 不知怎么上传啊 就是一本书上的一个例题