[ Milos88_vkbgd @ 17.11.2010. 22:20 ] @
Treba mi pomoc za funkciju arccos(x) kako da je definisem u Visual Basicu, kako da je podesim da radi? Da li ona racuna ugao u radijanima, meni je potrebno u stepenima. Jel moze, ugao u radijanima *180/PI kao u Excelu. Ako bi neko mogao da mi napise kako da izracunam ugao u stepenima, bio bih mu jako zahvalan.

Nasao sam da arccos racuna po ovoj formuli:
Code:
Function ArcCos(X As Double) As Double
    ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function


Meni treba da se izracuna arccos((Text1.Text-Text2.Text)/Text1.Text)

Ako neko moze da mi pomogne bio bih mu jako zahvalan.
[ vuchko.vuchko @ 17.11.2010. 23:37 ] @
Otprilike trebas jos dodati jedan red i to bi bilo to ...

Code:
Function ArcCos(X As Double) As Double
     X=X*(3.14159265/180)
    ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function



[ izonic @ 18.11.2010. 19:07 ] @
Pretpostavka da ti treba u stepenima a racunar radi u radianima.
Onda ti trebaju ove procedure.
Code:
Function PI() As Double
'-----------------------
'Rudolfov broj
'------------------------
  PI = Atn(1) * 4
End Function
Function RadDeg(x As Double) As Double
'-----------------------------
' Pretvara radiane u stepene
'----------------------------
  RadDeg = x / PI() * 180
End Function
[ Milos88_vkbgd @ 19.11.2010. 19:23 ] @
Hvala.
[ Milos88_vkbgd @ 19.11.2010. 19:27 ] @
Citat:
izonic: Pretpostavka da ti treba u stepenima a racunar radi u radianima.
Onda ti trebaju ove procedure.
Code:
Function PI() As Double
'-----------------------
'Rudolfov broj
'------------------------
  PI = Atn(1) * 4
End Function
Function RadDeg(x As Double) As Double
'-----------------------------
' Pretvara radiane u stepene
'----------------------------
  RadDeg = x / PI() * 180
End Function


Iz radijana u stepene je *180/PI, a ne /PI*180
Iz stepena u radijane *PI/180
[ izonic @ 20.11.2010. 00:20 ] @
Citat:
Iz radijana u stepene je *180/PI, a ne /PI*180
Iz stepena u radijane *PI/180


Ne razumijem stvarno pojasni mi.
Hoces reci ako neki broj pomnozim sa 3 napr. pa ga podijelim sa 5 da nije isto ako taj broj prvo pomnozim sa 5 pa podijelim sa 3.