Trig Script
Webb - all rights reserved - ©2004
spacer
Author - Russ Webb
Email: rwebb@nthlab.com
Webpage:

Summary: Standard trig function script.

Instructions: Tap the trig functions to do trig calculations.

Code:

RPN.2 \Trig
[p]#'3.1415926535897932';
[s]Vvevne-H;
[c]Vvevne+H;
[t]Vvevne-vevne+/;
[S]g1g1*1+s+l;
[C]g1g1*1-s+l;[T]g11+r21r2-/lH;
"Trig"
"_Sin"i; "_Cos"o; "_Tan"a;
~
"_aSin"I; "_aCos"O; "_aTan"A;
~
"pi"Cp;
"_R<>D"?1D'Convert
to|Degrees|Radians|Mode|'c(0:1:Mr)(#'180'/Cp*:Cp/#'180'*);
"_Hyp"?1D'Hyperbolic Operation?
|s|c|t|*|as|ac|at|'c(Cs:Cc:Ct::CS:CC:CT);