+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Calculators (and very old HP Computers) (/forum-3.html)
+--- Forum: General Forum (/forum-4.html)
+--- Thread: HP-41 RPN program solution sought - test problem (/thread-17631.html)
HP-41 RPN program solution sought - test problem - Gene - 10-27-2021 08:03 PM
What's the best (shortest meant here) way you can devise to program a solution to this problem in HP-41 RPN?
Enter an angle in degrees mode and press A to return the answer.
So start with LBL A and evaluate:
Equation T = ...
What can you come up with ?
Gene
RE: HP-41 RPN program solution sought - test problem - Peet - 10-27-2021 09:05 PM
I hope this is not completely stupid, but I'll try (without testing):
lbl A
xeq deg
sto 01
sqrt
1
+
sto 02
sin
2,5
*
sto 03
pi
/
rcl 02
cos
rcl 01
sin
/
+
rcl 03
/
RE: HP-41 RPN program solution sought - test problem - Gerson W. Barbosa - 10-27-2021 09:19 PM
Assuming angle mode is DEG:
Code:
01 LBL A
02 SIN
03 LASTX
04 SQRT
05 1
06 +
07 TAN
08 *
09 5
10 *
11 1/X
12 ST+ X
13 PI
14 1/X
15 +
16 ENDRE: HP-41 RPN program solution sought - test problem - Werner - 10-28-2021 06:33 AM
I can shave off one byte:
Code:
01 LBL A
02 SIN
03 LASTX
04 SQRT
05 1
06 +
07 TAN
08 *
09 .4
10 X<>Y
11 /
12 PI
13 1/X
14 +
15 ENDCheers, Werner
RE: HP-41 RPN program solution sought - test problem - floppy - 10-28-2021 08:39 AM
(10-27-2021 08:03 PM)Gene Wrote: What's the best (shortest meant here) way you can devise to program a solution to this problem in HP-41 RPN?First I draw it in my preferred graphical calculator https://www.desmos.com/calculator/pop31xijnj?lang=de
Enter an angle in degrees mode and press A to return the answer.
So start with LBL A and evaluate:
Equation T = ...
What can you come up with ?
Gene
And in the time I was drawing (took 5min), smarter ones has give to you some solutions.
I was not quick enough ;-)
RE: HP-41 RPN program solution sought - test problem - Gene - 10-29-2021 05:27 PM
Great job Werner!
I was curious and comparing it to an algebraic (AOS) version. That was 39 steps/bytes.
RE: HP-41 RPN program solution sought - test problem - C.Ret - 10-31-2021 12:58 PM
(10-28-2021 08:39 AM)floppy Wrote: First I draw it in my preferred graphical calculator https://www.desmos.com/calculator/pop31xijnj?lang=de
Nice plotter, except that it is missing the important fact that x have to be in degrees (not radians nor Bogenmaßen).
(10-29-2021 05:27 PM)Gene Wrote: I was curious and comparing it to an algebraic (AOS) version. That was 39 steps/bytes.
Let's have a try.
Assuming that the complicated function can be simplify as W.Barbosa and Werner have done:
\( f(x)=\frac{\frac{2.5\times sin(\sqrt{x}+1)}{\pi}+\frac{cos(\sqrt{x}+1)}{sin(x)}}{2.5\times sin(\sqrt{x}+1)}=\frac{1}{\pi}+\frac{.4}{sin(x)\times tan(\sqrt{x}+1)} \)
And using a blue TI-57 LCD using certified AOS technology:
STO0 .4 ÷ ( RCL0 sin × ( 1 + RCL0 √x ) tan ) + ∏ 1/x = R/S RST
The last too steps are optional but useful in program; so this function can be recorded using 22 steps (or bytes) in LRN mode.
RE: HP-41 RPN program solution sought - test problem - Gerson W. Barbosa - 10-31-2021 05:43 PM
(10-31-2021 12:58 PM)C.Ret Wrote: And using a blue TI-57 LCD using certified AOS technology:
STO0 .4 ÷ ( RCL0 sin × ( 1 + RCL0 √x ) tan ) + ∏ 1/x = R/S RST
The last too steps are optional but useful in program; so this function can be recorded using 22 steps (or bytes) in LRN mode.
Perhaps you can save one byte by eliminating the parentheses:
STO0 √x + 1 = tan × RCL0 sin × 2.5 = 1/x + ∏ 1/x = R/S RST
RE: HP-41 RPN program solution sought - test problem - C.Ret - 10-31-2021 08:54 PM
(10-31-2021 05:43 PM)Gerson W. Barbosa Wrote: Perhaps you can save one byte by eliminating the parentheses:
Good suggestion :
STO0 √x + 1 = tan × RCL0 sin ÷ .4 = 1/x + ∏ 1/x = R/S RST (one Werner's step spare here)
STO0 √x + 1 = tan 1/x EXC0 sin STO÷0 .4 STO×0 ∏ 1/x STO+0 RCL0 R/S RST (two more steps spare , but, is this still AOS logic ?)
RE: HP-41 RPN program solution sought - test problem - Gene - 10-31-2021 09:17 PM
If it can be keyed on a TI-57 or TI-58C, then we will call it AOS. :-)
Gene