Aug 21st, 2001, 03:15 PM
arc tan function
I want to do the formula A= arc tan (b/c).
I'm not sure on the formula in VB. Qbasic says: atn(tan(pi/4).
If that is it, where do I put my answer from b/c?
Aug 21st, 2001, 04:55 PM
Atn returns radians.
The VB Atn function returns radians. Pi radians equals 180 degrees. Note that arctan(infinity) = 90 degrees or Pi/2 radians. You have to worry about the quotient you are using.
You need code something like the following.
For most of my applications, I use two functions which I call Latitude and Longitude. Each accepts Rise and Run as arguments and returns an angle in radians.
Public Const Pi As Double = 3.14159 26535 89793
Dim AngleRadians As Double
Dim AngleDegrees As Double
Dim Rise As Double 'Y coordinate or side opposite angle
Dim Run As Double 'X coordinate or side adjacent to angle
'Rise & Run could be sides of a right triangle, not the hypotenuse
'Rise and Run could be XY-coordinates.
AngleRadians = Atn(Rise / Run)
AngleDegrees = AngleRadians * 180 / Pi
Longitude always returns an angle in the range zero to 2*Pi (0 to 360 degrees), while Latitude returns an angle in the range Plus Pi/2 to minus Pi/2 (Plus 90 to minus 90 degrees).
Internally, the functions take into account the signs of Rise & Run, and avoid division by zero when Run = zero.
Live long & prosper.
The Dinosaur from prehistoric era prior to computers.
If a billion people believe a foolish idea, it is still a foolish idea!
VB.net 2010 Express
64Bit & 32Bit Windows 7 & Windows XP. I run 4 operating systems on a single PC.
Click Here to Expand Forum to Full Width