求教---反三角函數

[WATSON513]

Public Function ASin(x As Double) As Double '反三角函數(sin-1)
ASin = Atn(x / ((1 - x ^ 2) ^ 0.5)) * 180# / 3.14159265358979
End Function

Public Function ACos(x As Double) As Double '反三角函數(Cos-1)
ACos = Atn(((1 - x ^ 2) ^ 0.5) / x) * 180# / 3.14159265358979
End Function

上面從網路上找到的
我想知道 反三角函數 Tan-1.......
要如何寫......
　　　　　

[呆呆]

這需要寫嗎
你自己都已經找到了
ACos = Atn(((1 - x ^ 2) ^ 0.5) / x) * 180# / 3.14159265358979
那麼也就是說 tan-1就是Atn
也就是vb的內建函數

不然你可以試看看

　MsgBox Atn(3 ^ 0.5) * 180 / 3.14159265358979　　'show 60度
60度的tan值應該是 根號3沒錯吧
而
ACos = Atn(((1 - x ^ 2) ^ 0.5) / x) * 180# / 3.14159265358979
要注意的是　 x 的範圍是 1 到 -1 否則會沒實數解
這是要注意的地方

另外要注意的是
如果你是用 vb.net 的版本
那麼 tan-1就是　 Math.Atan 函數

[WATSON513]

感謝你的回啦....
後來才發現
......我也覺得自己問的很白吃

[good97011]

這需要寫嗎
你自己都已經找到了
ACos = Atn(((1 - x ^ 2) ^ 0.5) / x) * 180# / 3.14159265358979
那麼也就是說 tan-1就是Atn
也就是vb的內建函數

不然你可以試看看

　MsgBox Atn(3 ^ 0.5) * 180 / 3.14159265358979　　'show 60度
60度的tan值應該是 根號3沒錯吧
而
ACos = Atn(((1 - x ^ 2) ^ 0.5) / x) * 180# / 3.14159265358979
要注意的是　 x 的範圍是 1 到 -1 否則會沒實數解
這是要注意的地方

另外要注意的是
如果你是用 vb.net 的版本
那麼 tan-1就是　 Math.Atan 函數

大大我很想知道為什麼VB要求cos-1　要撰寫這一段(((1 - x ^ 2) ^ 0.5) / x) 這是怎樣倒出來的呢??
麻煩大大說明一下