如何計算/定義VBA中的ArcSin功能？

如何實現arcsin函數的VBA代碼（定義如下）？如何計算/定義VBA中的ArcSin功能？

定義：arcsin函數是正弦函數的反函數。它返回正弦爲給定數字的角度。對於每個三角函數，都有一個相反的函數。這些反函數具有相同的名稱，但前面帶有「弧」。（在某些計算器上，arcsin按鈕可能標記爲asin，有時也可能標記爲sin-1）。因此，sin的倒數是arcsin等等。當我們看到「arcsin A」時，我們將其理解爲「其角度爲A的角度」

sin30 = 0.5方式：30度的正弦是0.5

ARCSIN 0.5 = 30方式：其罪是0.5爲30度的角度。

來源

2017-10-08 jainashish

我真的不明白你的問題在這裏。該ARCSIN功能已經存在於VBA，你可以用它來與：

WorksheetFunction.Asin(myValue)

使用反正弦函數的

Dim myValue As Double 
myValue = 0.1234 

MsgBox CStr(WorksheetFunction.Asin(myValue))

在那裏，你可以打印一個的反正弦函數的結果值爲Double。

來源

2017-10-08 14:23:53 Teasel

下面的代碼，將有助於實現基於給定的定義ARCSIN功能：

Option Explicit 
    Public Const Pi As Double = 3.14159265358979 
    Private Function ArcSin(X As Double) As Double 
     If Abs(X) = 1 Then 
     'The VBA Sgn function returns an integer (+1, 0 or -1), 
     'representing the arithmetic sign of a supplied number. 
     ArcSin = Sgn(X) * Pi/2 
     Else 
     'Atn is the inverse trigonometric function of Tan, 
     'which takes an angle as its argument and returns 
     'the ratio of two sides of a right triangle 
     ArcSin = Atn(X/Sqr(1 - X^2)) 
     End If 
    End Function

來源

2017-10-08 13:21:55 jainashish

如何計算/定義VBA中的ArcSin功能？

回答

相關問題