目标函数模块.bas

一个设计齿轮变位系数的程序

Attribute VB_Name = "目标函数模块"
Option Explicit
Dim x As Single
Public Function Goal(ByVal x) As Single
     Goal = Abs(n1m(x) - n2m(x))
End Function