Rosetta Code

Trigonometric functions: Difference between revisions

Page Discussion

Trigonometric functions (view source)

Revision as of 19:14, 30 August 2012

354 bytes added ,  11 years ago
→‎{{header|Run BASIC}}
m (→‎{{header|REXX}}: re-did the verbage in the boxed "section header" comments. -- ~~~~)
Line 1,904:
 
=={{header|Run BASIC}}==
<lang Runbasic>pi = 22/7
deg = 45.0
tab$ = chr$(9)
' Run BASIC works in radians. Convert deg and rad as shown.
radians = pi / 4 'a.k.a. 45 degrees
pi = acs(-1)
degrees = 45 * pi / 180 'convert 45 degrees to radians
r2d = 180 / pi
d2r = pi / 180
rad = deg * d2r
 
PRINTprint "Sine: Sine: ";SIN(radiansrad) ;tab$;" ";SIN(degreesdeg*d2r) 'sine
PRINTprint " Cosine: ";COS(radiansrad) ;tab$;" ";COS(degreesdeg*d2r) 'cosine
PRINTprint "TnagentTangent: ";TAN(radiansrad) ;tab$;" ";TAN(degreesdeg*d2r) 'tangent
print
print " Arcsin: ";ASN(radians) ;tab$; ASN(degrees) 'arcsin
print " ArccosArcsine: ";ACSASN(radiansSIN(rad));" radians, (or ";tab$ASN(SIN(deg*d2r))*r2d;" ACS(degrees) 'arcsin"
print " ArctanArccosine: ";ATNACS(radiansCOS(rad));" radians, (or ";tab$ACS(COS(deg*d2r))*r2d;" ATN(degrees) 'arcsin"
print " TanAtnArctangent: ";ATN(TAN(radiansrad));tab$" radians, (or ";ATN(TAN(radiansdeg*d2r)) *r2d;" 180 / pi 'tanatndegrees)"
</lang>
<lang Runbasic>
------------------------- Output ------------------------
Sine: 0.707106781 0.707106781
Cosine: 0.707106781 0.707106781
Tangent: 1.0 1.0
 
Arcsine: 0.785398163 radians, (or 45.0 degrees)
Arccosine: 0.785398163 radians, (or 45.0 degrees)
Arctangent: 0.785398163 radians, (or 45.0 degrees)
</lang>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/53941"