arccos funkcija u Visual Basic-u, kako?

arccos funkcija u Visual Basic-u, kako? 17.11.2010. u 23:20 · pre 194 meseca #1

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.

Potpis

Na ovom linku mozete i pogledati sta kupujete http://milos88_vkbgd.webs.com/apps/photos/album?albumid=7748164
Informacije o hardveru koji zelite da kupite nalaze se ispod slika, potrebno je samo kliknuti na sliku.

Re: arccos funkcija u Visual Basic-u, kako? 18.11.2010. u 00:37 · pre 194 meseca #2

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

Re: arccos funkcija u Visual Basic-u, kako? 18.11.2010. u 20:07 · pre 194 meseca #3

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

Potpis

zxz

Re: arccos funkcija u Visual Basic-u, kako? 19.11.2010. u 20:23 · pre 194 meseca #4

Hvala.

Potpis

Na ovom linku mozete i pogledati sta kupujete http://milos88_vkbgd.webs.com/apps/photos/album?albumid=7748164
Informacije o hardveru koji zelite da kupite nalaze se ispod slika, potrebno je samo kliknuti na sliku.

Re: arccos funkcija u Visual Basic-u, kako? 19.11.2010. u 20:27 · pre 194 meseca #5

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

Potpis

Na ovom linku mozete i pogledati sta kupujete http://milos88_vkbgd.webs.com/apps/photos/album?albumid=7748164
Informacije o hardveru koji zelite da kupite nalaze se ispod slika, potrebno je samo kliknuti na sliku.

Re: arccos funkcija u Visual Basic-u, kako? 20.11.2010. u 01:20 · pre 194 meseca #6

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.

Potpis

zxz

Forum kao aplikacija na telefonu

Srodne teme