alternative cos(x) and tan(x) [HP-33S] 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.0934E-26
L0035 *
L0036 4.47566E-20
L0037 -
L0038 *
L0039 5.55391606E-14
L0040 +
L0041 *
L0042 3.28183761372E-08
L0043 -
L0044 *
L0045 5.81776417331E-03
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.74532925199E-9
89.9999999 COS -> 1.74532000000E-9
actual -> 1.74532925199433E-9
89.9999999 XEQ M -> 572,957,795.132
89.9999999 TAN -> 572,960,832.397
actual -> 572,957,795.1308232
-5555 XEQ L -> -9.06307787035E-1
-5555 COS -> -9.06307787037E-1
actual -> -9.06307787036650E-1
|