DBPro's COS function - GameCreators Forum

Author

Message

CSL

17

Years of Service

User Offline

Joined: 22nd Mar 2009

Location: USA

Posted: 23rd Apr 2013 04:33 Edited at: 23rd Apr 2013 04:37

Link

For the life of me, I give up. I\'ve been trying to write my own COS function COSRAD, to return my results in radians by converting DBPro\'s built in COS function, which defaults to degrees

Comparing the results from the program below on my old Texas Instruments computer, which uses radians, they don\'t match with DBPro\'s.

The TI computer results come out as .5 on both instances, while DBPro returns 1. What am I doing wrong?!?!?

+ Code Snippet

sync on
a# = 1.047197551196
b# = 60.0
c# = .01745329251994
print cosrad(a#) 
print cosrad(b# * c#)
sync : wait key
end

function CosRad(argument#)     
    result# = cos(argument# * 3.14159 / 180.0)
    `result# = cos(argument# / 57.295779513)    
ENDFUNCTION result#

CSL

Back to top

Profile PM Email

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 23rd Apr 2013 04:48

Link

Well cos takes an angle, it doesn't return one. acos is what returns an angle. Is that what you mean?

"You're all wrong. You're all idiots." ~Fluffy Rabbit

Back to top

Profile PM Email Website

pcRaider

19

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 23rd Apr 2013 05:15

Link

+ Code Snippet

sync on
a# = 1.047197551196
b# = 60.0
c# = .01745329251994
print cosrad(a#)
print cosrad(b# * c#)
sync : wait key
end

function CosRad(argument#)
    result# = cos(argument# / (3.14159 / 180.0))
    `result# = cos(argument# / 57.295779513)
ENDFUNCTION result#

windowsXp

Back to top

Profile PM

CSL

17

Years of Service

User Offline

Joined: 22nd Mar 2009

Location: USA

Posted: 23rd Apr 2013 05:41 Edited at: 23rd Apr 2013 07:04

Link

Arrrghhh, I figured it out!!!!

+ Code Snippet

sync on

for i# = 1.0 to 360.0
print i#,"      ",cos(i#),"    ",cosrad(i#)
sync: wait key
next i

end

function CosRad(argument#)     
    
    result# = argument# * 3.141592653589793 / 180.0
    
ENDFUNCTION result#

I confirmed the results here
http://www.rkm.com.au/calculators/CALCULATOR-radians-sine-cosine-tan.html

Correction!

The actual function should look like this.

+ Code Snippet

function CosRad(argument#)     
    b# = argument# * 57.29577951308233
    result# = cos(b#)    
ENDFUNCTION result#

The angle in degrees parameter (argument#) is converted to angle in radians (b#) then you find the cosine and return the result#.

The multiplier of 57.295.... is the equivalent of 180.0 / 3.141592653589793

CSL

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / DBPro's COS function