alternative cos(x) and tan(x) [HP33S] Message #1 Posted by Gerson W. Barbosa on 23 July 2007, 9:36 p.m.
Each of the following programs takes up only one label and will always give at least 11 correct digits for arguments in degrees ( 999,999,999,909 <= x <= 999,999,999,999 ).
Gerson.
L0001 LBL L
L0002 x<>y
L0003 STO A
L0004 x<>y
L0005 +/
L0006 90
L0007 +
L0008 360
L0009 RMDR
L0010 STO B
L0011 90
L0012 INT/
L0013 STO C
L0014 ENTER
L0015 ENTER
L0016 2
L0017 INT/
L0018 
L0019 180
L0020 *
L0021 RCL B
L0022 1
L0023 RCL C
L0024 ENTER
L0025 x!
L0026 +
L0027 y^x
L0028 *
L0029 STO B
L0030 x^2
L0031 ENTER
L0032 ENTER
L0033 ENTER
L0034 2.0934E26
L0035 *
L0036 4.47566E20
L0037 
L0038 *
L0039 5.55391606E14
L0040 +
L0041 *
L0042 3.28183761372E08
L0043 
L0044 *
L0045 5.81776417331E03
L0046 +
L0047 RCL* B
L0048 ENTER
L0049 x^2
L0050 4
L0051 *
L0052 +/
L0053 3
L0054 +
L0055 *
L0056 RCL A
L0057 x<>y
L0058 RTN
LN=330
CK=AE03
M0001 LBL M
M0002 DEG
M0003 x<>y
M0004 STO D
M0005 x<>y
M0006 SIN
M0007 LASTx
M0008 XEQ L
M0009 /
M0010 RCL D
M0011 x<>y
M0012 RTN
LN=36
CK=3737
89.9999999 XEQ L > 1.74532925199E9
89.9999999 COS > 1.74532000000E9
actual > 1.74532925199433E9
89.9999999 XEQ M > 572,957,795.132
89.9999999 TAN > 572,960,832.397
actual > 572,957,795.1308232
5555 XEQ L > 9.06307787035E1
5555 COS > 9.06307787037E1
actual > 9.06307787036650E1
