Jump to content

Trigonometric functions: Difference between revisions

Trigonometric functions (view source)

Revision as of 16:39, 14 May 2008

3 bytes added ,  16 years ago
m
→‎{{header|BASIC}}: Syntax highlighting
(added scheme)
m (→‎{{header|BASIC}}: Syntax highlighting)
Line 57:
{{works with|QuickBasic|4.5}}
QuickBasic 4.5 does not have arcsin and arccos built in. They are defined by identities found [http://en.wikipedia.org/wiki/Arctan#Relationships_among_the_inverse_trigonometric_functions here].
<qbasic>pi = 3.141592653589793#▼
 
radians = pi / 4 'a.k.a. 45 degrees
▲ pi = 3.141592653589793#
radiansdegrees = 45 * pi / 4180 'a.k.a.convert 45 degrees to radians once
PRINT TANSIN(radians) + " " + TAN SIN(degrees) 'tangentsine▼
degrees = 45 * pi / 180 'convert 45 degrees to radians once
PRINT SINCOS(radians) + " " + SINCOS(degrees) 'sinecosine
PRINT COSTAN(radians) + " " + COSTAN (degrees) 'cosinetangent
'arcsin▼
▲ PRINT TAN(radians) + " " + TAN (degrees) 'tangent
arcsin = 2 * ATN(SIN(radians)) * radians / (1 + SQR(1 - radians ^ 2))
▲ 'arcsin
PRINT arcsin =+ 2" *" ATN(SIN(radians))+ arcsin * radians180 / (1 + SQR(1 - radians ^ 2))pi
'arccos▼
PRINT arcsin + " " + arcsin * 180 / pi
arccos = 2 * ATN(COS(radians)) * SQR(1 - radians ^ 2) / (1 + radians)
▲ 'arccos
PRINT arccos =+ 2" *" ATN(COS(radians))+ arccos * SQR(1 - radians ^ 2)180 / (1 + radians)pi
PRINT arccosATN(TAN(radians)) + " " + arccosATN(TAN(radians)) * 180 / pi 'arctan</qbasic>
PRINT ATN(TAN(radians)) + " " + ATN(TAN(radians)) * 180 / pi 'arctan
 
=={{header|C}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/53825"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information