Anonymous user
Trigonometric functions: Difference between revisions
m
→{{header|REXX}}: added further normalization for degrees to radians that was omitted.
(→{{header|PARI/GP}}: added functional version) |
m (→{{header|REXX}}: added further normalization for degrees to radians that was omitted.) |
||
Line 1,982:
│ than the desired digits, as specified by the SHOWDIGS variable. │
└──────────────────────────────────────────────────────────────────────────┘</lang>
Most math (POW, EXP, LOG, LN, GAMMA, etc.),
<br>extra digits is safer in case the argument is close to an asymptotic point or a multiple or fractional part of pi or somesuch.
<br>It should also be noted that both the '''pi''' and '''e''' constants have only around 77 decimal digits as included here, if more
Line 2,061:
tan: procedure; arg x; _=cos(x); if _=0 then call tanErr; return sin(x)/_
tanD: return tan(d2r(arg(1)))
d2d:
d2r:
r2d:
r2r:
show: return left(left('',arg(1)>=0)format(arg(1),,showdigs)/1,showdigs)
tellErr: say; say '*** error! ***'; say; say arg(1); say; exit 13
| |||