Trigonometric functions: Difference between revisions
Content added Content deleted
(→{{header|J}}: Changed inverse functions to match clarified requirements.) |
(→{{header|BASIC}}: Forgot to give ATN an argument and changed for new requirements.) |
||
Line 73: | Line 73: | ||
PRINT TAN(radians) + " " + TAN (degrees) 'tangent |
PRINT TAN(radians) + " " + TAN (degrees) 'tangent |
||
'arcsin |
'arcsin |
||
arcsin = 2 * ATN * radians / (1 + SQR(1 - radians ^ 2)) |
arcsin = 2 * ATN(SIN(radians)) * radians / (1 + SQR(1 - radians ^ 2)) |
||
PRINT arcsin + " " + arcsin * 180 / pi |
PRINT arcsin + " " + arcsin * 180 / pi |
||
'arccos |
'arccos |
||
arccos = 2 * ATN * SQR(1 - radians ^ 2) / (1 + radians) |
arccos = 2 * ATN(COS(radians)) * SQR(1 - radians ^ 2) / (1 + radians) |
||
PRINT arccos + " " + arccos * 180 / pi |
PRINT arccos + " " + arccos * 180 / pi |
||
PRINT ATN(radians) + " " + ATN |
PRINT ATN(TAN(radians)) + " " + ATN(TAN(radians)) * 180 / pi 'arctan |
||
=={{header|Forth}}== |
=={{header|Forth}}== |