"M"= 1 '模数
"Z1"= 40 '齿数
"Z2"= 20 '配对齿数(小齿轮)
"Dmax"= "Df" + 2.5 * "M" '最外圆直径
"Alpha"= 20 '压力角
"Z2_"= if("Z2"<"Z1",int("Z2"),int("Z1"/2)) '配对齿数默认值
"D"= "M" * "Z1" '分度圆直径
"Db"= "D" * cos ( "Alpha" ) '基圆直径
"Hax"= 1 '齿顶高系数
"Cx"= 0.25 '顶隙系数
"Ha"= "Hax" * "M" '齿顶高
"Hf"= ( "Hax" + "Cx" ) * "M" '齿根高
"Df"= "D" + 2 * "Hf" '齿根圆直径
"Da"= "D" - 2 * "Ha"+"Delta_Da" '齿顶圆直径
"Delta_Da"= 2 * "Hax" ^ 2 * "M" / ( "Z2_" * ( tan ( "Alpha" ) ) ^ 2 ) '当齿顶圆直径小于基圆直径时,加大齿顶圆
Xt= ("db"/2)*cos(t)+("db"/2)*sin(t)*t
Yt= ("db"/2)*sin(t)-("db"/2)*cos(t)*t
t1=0
t2=Pi/2