25. januar 2006 - 02:15Der er
6 kommentarer og 1 løsning
Invers sinus, hvordan laver man det i VBscript?
Jeg kan ikke umiddelbart finde nogen funktion til den inverse sinus, eksisterer der overhovedet en sådan funktion i vbscript, eller skal man selv støbe den sammen ? Hvis man selv skal, hvordan er det så lige man regner den inverse sinus, så skal jeg nok selv lave koden.
Det hedder for resten ofte Arcsin på engelsk, og vinklerne i VBS måles i radianer. For at omregne grader til radianer, så gang grad med pi/180, og fra radianer til grader, gang radian med 180/pi. Husk at passe på division med nul, når sinus = 1! ;-)
Jeps, og jeg kunne ikke dy mig for at lave en funktion selv:
function Arcsin (x) if 1 <> Abs(x) then 'forhindre div med 0 Arcsin = Atn(x / Sqr(-x * x + 1)) else Arcsin = 1.5707963267949 * x 'for at få det rette fortegn end if end function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.