1,502
社区成员




Private Sub Form_Load()
MsgBox G(2.5, 3.4)
End Sub
Public Function F(ByVal T As Single) As Single
F = (1 + Exp(-T)) / (1 + Exp(T))
End Function
Public Function G(ByVal X As Single, ByVal Y As Single) As Single
If X <= Y Then
G = F(X + Y) / (F(X) + F(Y))
Else
G = F(X - Y) / (F(X) + F(Y))
End If
End Function