function "_ARCSEC()" is wrong?

[Kernelpanic]

Correction: @BSpinoza's formula is correct.

Code: (Select All)

Option _Explicit



Declare Function ARCSECF(x As Double) As Double



Dim As Double arcsecw, x



x = -2.5



Const PI = 1.141593



'Print _Arcsec(-2.5

Print

Print _Acos(1 / -2.5)

Print

Print ARCSECF(-2.5)



Print 'Spinoza's Formel

arcsecw = _Acos(1 / x)

Print Using "#.#########"; arcsecw



End