Trigonometric functions: Difference between revisions
Content added Content deleted
(Applesoft BASIC) |
|||
Line 654: | Line 654: | ||
PRINT ATN(TAN(radians)) + " " + ATN(TAN(radians)) * 180 / pi 'arctan</syntaxhighlight> |
PRINT ATN(TAN(radians)) + " " + ATN(TAN(radians)) * 180 / pi 'arctan</syntaxhighlight> |
||
==={{header|Applesoft BASIC}}=== |
|||
The arcsine and arccoscine functions, while not intrinsic to Applesoft BASIC, are |
|||
calculated using the existing BASIC functions and implemented as FN ASN and FN ACS |
|||
using the DEF FN function. |
|||
<syntaxhighlight lang="gwbasic"> 100 TAU = 8 * ATN (1) |
|||
110 RAD = TAU / 8 |
|||
120 DEG = 45.0 |
|||
130 DEF FN RAD(DEG) = DEG * TAU / 360 |
|||
140 DEF FN DEG(RAD) = RAD / TAU * 360 |
|||
150 DEF FN ASN(RAD) = ATN (RAD / SQR ( - RAD * RAD + 1)) |
|||
160 DEF FN ACS(RAD) = - ATN (RAD / SQR ( - RAD * RAD + 1)) + TAU / 4 |
|||
170 PRINT " SINE: " SIN (RAD);: HTAB (25): PRINT SIN ( FN RAD(DEG)) |
|||
180 PRINT " COSINE: " COS (RAD);: HTAB (25): PRINT COS ( FN RAD(DEG)) |
|||
190 PRINT " TANGENT: " TAN (RAD);: HTAB (25): PRINT TAN ( FN RAD(DEG)) |
|||
200 ARC = FN ASN( SIN (RAD)) |
|||
210 PRINT " ARCSINE: "ARC;: HTAB (25): PRINT FN DEG(ARC) |
|||
220 ARC = FN ACS( COS (RAD)) |
|||
230 PRINT " ARCCOSINE: "ARC;: HTAB (25): PRINT FN DEG(ARC) |
|||
240 ARC = ATN ( TAN (RAD)) |
|||
250 PRINT " ARCTANGENT: "ARC;: HTAB (25): PRINT FN DEG(ARC);</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
SINE: .707106781 .707106781 |
|||
COSINE: .707106781 .707106781 |
|||
TANGENT: 1 1 |
|||
ARCSINE: .785398163 45 |
|||
ARCCOSINE: .785398164 45.0000001 |
|||
ARCTANGENT: .785398163 45 |
|||
</pre> |
|||
==={{header|BASIC256}}=== |
==={{header|BASIC256}}=== |
||
<syntaxhighlight lang="basic256">radian = pi / 4 |
<syntaxhighlight lang="basic256">radian = pi / 4 |
||
Line 727: | Line 756: | ||
print "Arc Tangent : ", temp, tab$, temp * 180 / pi |
print "Arc Tangent : ", temp, tab$, temp * 180 / pi |
||
end</syntaxhighlight> |
end</syntaxhighlight> |
||
=={{header|bc}}== |
=={{header|bc}}== |