(HP67 app) Pricing Calculation with known Markup for new Price comparison.

[Dieter]

(02-09-2018 02:20 PM)Gamo Wrote:  I make change as recommended for
- Delete the CF 3 in line 010.
- Replace all F3? tests with x≠0?.

That still not work as expected.

Come on, Gamo – what exactly does not work as expected?
Where exactly is the problem?

I tried the modified program on my HP67 emulator and it works fine.
Edit: also tried in on HP's 15C emulator, and the program worked correctly again.
Be sure to always enter 0 when you want to calculate or recall a result.

And now
1. Post your 11C program here.
2. Give an example for input and output, including the exact key sequence.

Just to be sure: since there is no LBL e on the Pioneers you have to replace it with a numeric one of course, e.g. LBL 0 or LBL 9.
And %CH is labelled Δ%.

Edit 2: Ok-ok, here is the complete program. Compare it with your version.

Code:

001  LBL E
002  FIX 2
003  CLX
004  STO 1
005  STO 2
006  STO 3
007  STO 4
008  CF 0
009  RTN
010  LBL A
011  x≠0?
012  GTO 1
013  RCL 2
014  F0?
015  x=0?
016  GTO 0
017  RCL 4
018  %
019  -
020  STO 1
021  RTN
022  LBL 1
023  STO 1
024  CF 0
025  RTN
026  LBL B
027  x≠0?
028  GTO 2
029  RCL 1
030  F0?
031  x=0?
032  GTO 0
033  RCL 3
034  %
035  +
036  STO 2
037  RTN
038  LBL 2
039  STO 2
040  CF 0
041  RTN
042  LBL C
043  x≠0?
044  GTO 3
045  RCL 3
046  F0?
047  RTN
048  RCL 1
049  RCL 2
050  x=0?
051  1/x
052  Δ%
053  LBL 3
054  STO 3
055  EEX
056  2
057  *
058  LastX
059  RCL 3
060  +
061  /
062  STO 4
063  RCL 3
064  SF 0
065  RTN
066  LBL D
067  x≠0?
068  GTO 4
069  RCL 4
070  F0?
071  RTN
072  RCL 2
073  RCL 1
074  x=0?
075  1/x
076  Δ%
077  CHS
078  LBL 4
079  STO 4
080  EEX
081  2
082  *
083  LastX
084  RCL 4
085  -
086  /
087  STO 3
088  RCL 4
089  SF 0
090  RTN
091  LBL 0
092  0
093  1/x
094  RTN

And here is an example:

Code:

Initialize        f[E]     0,00
Enter cost    110 f[A]   110,00
Enter price   165 f[B]   165,00
Get markup      0 f[C]    50,00
Get margin      0 f[D]    33,33

New markup     75 f[C]    75,00
Get new price   0 f[B]   192,50
Get new margin  0 f[D]    42,86

Dieter