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

[Dieter]

(10-20-2017 09:07 AM)Gamo Wrote:  Pricing Program work very good and very accurate answer. Only you in this forum that try out on this complete Pricing Program that can input combination of two variables.

Wait until you try the latest version. ;-)
This one is more capable, more flexible and even shorter than the previous ones:

Edit: corrected an error that caused markup/margin not to be recalculated after cost or price had been changed.

Code:

001  LBL E  INIT
002  FIX
003  DSP 2
004  CLX
005  STO 1
006  STO 2
007  STO 3
008  STO 4
009  CF 0   clear markup/margin flag
010  CF 3
011  RTN
012  LBL A  COST
013  F3?
014  GTO 1
015  RCL 2
016  F0?    no markup/margin
017  x=0?   OR no price given?
018  GTO e  then exit with error
019  RCL 4
020  %
021  -
022  STO 1
023  RTN
024  LBL 1
025  RCL 1
026  x≠0?
027  CF 0   if new cost entered, reset markup/margin flag
028  R↓
029  STO 1
030  RTN
031  LBL B  PRICE
032  F3?
033  GTO 2
034  RCL 1
035  F0?    no markup/margin
036  x=0?   OR no cost given?
037  GTO e  then exit with error
038  RCL 3
039  %
040  +
041  STO 2
042  RTN
043  LBL 2
044  RCL 2
045  x≠0?
046  CF 0   if new price entered, reset markup/margin flag
047  R↓
048  STO 2
049  RTN
050  LBL C  MARKUP
051  F3?
052  GTO 3
053  RCL 3
054  F0?    if markup/margin is known
055  RTN    display previously computed markup and stop
056  RCL 1
057  RCL 2
058  x=0?   no price given?
059  GTO e  then generate error
060  %CH    this will generate an error if price is not given (=0)
061  LBL 3
062  STO 3  store markup
063  EEX
064  2
065  *      calculate margin from markup
066  LastX
067  RCL 3
068  +
069  /
070  STO 4  and store margin as well
071  RCL 3
072  SF 0   set markup/margin flag
074  RTN
074  LBL D  MARGIN
075  F3?
076  GTO 4
077  RCL 4
078  F0?    if markup/margin is known
079  RTN    display previously computed margin and stop
080  RCL 2
081  RCL 1
082  x=0?   no cost given?
083  GTO e  then exit with error
084  %CH    this will generate an error if price is not given (=0)
085  CHS
086  LBL 4
087  STO 4  store margin
088  EEX
089  2
090  *      calculate markup from margin
091  LastX
092  RCL 4
093  -
094  /
095  STO 3  and store markup as well
096  RCL 4
097  SF 0   set markup/margin flag
098  RTN
099  LBL e  Error routine:
100  0      generate a
101  1/x    division by zero error
102  RTN    and quit

Again, [E] initializes the program. You can then enter two of the four values (as usual, except the combination markup & margin, these are mutually convertible), and the program calculates the remaining two if you press the respective key. And now you can even change data and recalculate without starting over:

Code:

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

Now change the markup to 75%:

Code:

Enter markup   75 [C]    75,00
New price         [B]   192,50
New margin        [D]    42,86

Note that cost and price must be > 0.

BTW, you can also directly convert between markup and margin without entering anything else:

Code:

Enter markup   30 [C]    30,00
=> margin is      [D]    23,08

Enter margin   20 [D]    20,00
=> markup is      [C]    25,00

Dieter