发信人: fishy()
整理人: fishy(2000-11-08 09:07:56), 站内信件
|
注意：
1.以下程序中出现的pi都是圆周率（VB并没有定义，自己定义吧）
2.所有的返回结果都是弧度
ArcTan:
VB自带：Atn
ArcSin:
Function ArcSin(X As Doule) As Double
Dim Temp As Double
If X = 0 Then
Temp=0
Else
Temp = Atn(X/Sqr(1-X*X))
End If
ArcSin=Temp
End Function
ArcCos:
Function ArcCos(X As Doule) As Double
Dim Temp As Double
If X = 0 Then
Temp=pi/2
Else
Temp = Atn(Sqr(1-X*X)/X)
End If
ArcCos=Temp
End Function
--
Dim fishy As Friend
回复时请打勾
------------
欢迎大家访问酷码工作室：http://comma.yes8.com
※ 修改:．fishy 于 May 10 15:18:59 修改本文．[FROM: 202.114.45.114]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.114.45.114]
|
|