Plus42 (and Free42) minor cosmetic issues
07-21-2022, 01:44 AM
Post: #26
 Gerson W. Barbosa Senior Member Posts: 1,604 Joined: Dec 2013
RE: Plus42 (and Free42) minor cosmetic issues
Useful only on the HP-17B II, but might be a good equation test anyway. I am glad it is working now (it wasn’t two months ago or I had done something wrong).

Code:
 IF(S(SIN):(-1)^INT(X÷180+0×L(X:MOD(X:180)×PI÷180))×(2×Σ(K:1:21:4:X^K÷FACT(K))-(EXPM1(X)-EXPM1(-X))÷2)-SIN:IF(S(COS):COS-(-1)^INT(X÷180+0×L(X:MOD(X:180)×PI÷180))×(2×Σ(K:4:20:4:X^K÷FACT(K))+1-(EXPM1(X)+EXPM1(-X))÷2):IF(S(TAN):TAN-(0×L(X:MOD(X:180)×PI÷180)+4×Σ(K:1:21:4:X^K÷FACT(K))-EXPM1(X)+EXPM1(-X))÷(4×Σ(K:4:20:4:X^K÷FACT(K))+2-EXPM1(X)-EXPM1(-X)):IF(S(DEG):X×180÷PI-DEG:IF(S(RAD):X×PI÷180-RAD:IF(S(ASIN):ASIN-(0×(L(B:SGN(X)+IP(X))+L(X:ABS(X))+L(X:IF(X<>1:X÷SQRT(1-SQ(X)):X))+L(X:IF(X<1:L(A:1)×X+L(Q:0):0×(L(Q:PI)+L(A:-1))+INV(X)))+L(X:IF(X>SQRT(2)-1:0×L(V:PI÷2)+(X-1)/(X+1):X+L(V:0))))+(G(Q)+G(A)×(4×Σ(K:1:29:4:X^K÷K)-LNP1(2×X÷(1-X))+G(V)))×G(B)×90÷PI):IF(S(ACOS):ACOS-(0×(L(X:IF(X<>-1:SQRT((1-X)÷(1+X)):X))+L(B:SGN(X))+L(X:ABS(X))+L(X:IF(X<1:L(A:1)×X+L(Q:0):0×(L(Q:PI)×L(A:-1))+INV(X)))+L(X:IF(X>SQRT(2)-1:0×L(V:PI÷2)+(X-1)÷(X+1):X+L(V:0))))+(G(Q)+G(A)×(4×Σ(K:1:29:4:X^K÷K)-LNP1(2×X÷(1-X))+G(V)))×(3-G(B))×90÷PI):ATAN-(0*(L(B:SGN(X))+L(X:ABS(X))+L(X:IF(X<1:L(A:1)×X+L(Q:0):0×(L(Q:PI)+L(A:-1))+INV(X)))+L(X:IF(X>SQRT(2)-1:0×L(V:PI÷2)+(X-1)÷(X+1):X+L(V:0))))+(G(Q)+G(A)×(4×Σ(K:1:29:4:X^K÷K)-LNP1(2×X÷(1-X))+G(V)))×G(B)×90÷PI))))))))

Forensic tests:

8,999999999999999999999999985917536 (X = 9 degrees)

8,999999999994430907634826729950962 (X = 171 degrees)
 « Next Oldest | Next Newest »

 Messages In This Thread Plus42 (and Free42) minor cosmetic issues - n3mmr - 05-19-2022, 09:34 AM RE: Plus42 (and Free42) minor cosmetic issues - johanw - 05-19-2022, 07:36 PM RE: Plus42 (and Free42) minor cosmetic issues - Thomas Okken - 05-19-2022, 07:47 PM RE: Plus42 (and Free42) minor cosmetic issues - n3mmr - 05-19-2022, 07:52 PM RE: Plus42 (and Free42) minor cosmetic issues - Peet - 05-19-2022, 08:01 PM RE: Plus42 (and Free42) minor cosmetic issues - johanw - 05-19-2022, 08:15 PM RE: Plus42 (and Free42) minor cosmetic issues - Peet - 05-19-2022, 10:10 PM RE: Plus42 (and Free42) minor cosmetic issues - Thomas Okken - 05-19-2022, 08:28 PM RE: Plus42 (and Free42) minor cosmetic issues - Thomas Okken - 05-20-2022, 02:08 AM RE: Plus42 (and Free42) minor cosmetic issues - jonmoore - 05-20-2022, 01:38 PM RE: Plus42 (and Free42) minor cosmetic issues - n3mmr - 05-20-2022, 11:05 AM RE: Plus42 (and Free42) minor cosmetic issues - rprosperi - 05-21-2022, 12:25 AM RE: Plus42 (and Free42) minor cosmetic issues - jonmoore - 05-21-2022, 03:58 PM RE: Plus42 (and Free42) minor cosmetic issues - mfleming - 05-21-2022, 10:32 AM RE: Plus42 (and Free42) minor cosmetic issues - ijabbott - 05-21-2022, 04:34 PM RE: Plus42 (and Free42) minor cosmetic issues - jonmoore - 05-21-2022, 05:15 PM RE: Plus42 (and Free42) minor cosmetic issues - agarza - 05-24-2022, 02:14 AM RE: Plus42 (and Free42) minor cosmetic issues - Thomas Okken - 05-24-2022, 07:07 AM RE: Plus42 (and Free42) minor cosmetic issues - agarza - 05-25-2022, 03:13 PM RE: Plus42 (and Free42) minor cosmetic issues - jonmoore - 05-25-2022, 05:37 PM RE: Plus42 (and Free42) minor cosmetic issues - johanw - 05-25-2022, 08:08 PM RE: Plus42 (and Free42) minor cosmetic issues - Richard Garner - 05-25-2022, 10:32 PM RE: Plus42 (and Free42) minor cosmetic issues - jonmoore - 05-26-2022, 07:08 AM RE: Plus42 (and Free42) minor cosmetic issues - Ajaja - 06-09-2022, 05:01 PM RE: Plus42 (and Free42) minor cosmetic issues - Thomas Okken - 06-10-2022, 12:42 AM RE: Plus42 (and Free42) minor cosmetic issues - Gerson W. Barbosa - 07-21-2022 01:44 AM RE: Plus42 (and Free42) minor cosmetic issues - Thomas Okken - 07-21-2022, 05:30 AM

User(s) browsing this thread: 2 Guest(s)