HP HP-28S - Page 149

Now write G-O.
Begin the program and indicate the argument.
o .G ~ x r=2~: ------=7-:;-4~. 8=:-:0:;:-;5=-:;1;-:::9:-::4-::::8-::::0~52;::::"1
1 : 'gal'
Define the conversion.
o x ~ 9 ~ ~ oz ~ .1 CONVERT I
I
DROP II ENTER I
« "* xl
ImtlIilIII_KaDBImm::I
2: 'gal'
1: « "* x « x '9' , oz '
CONVERT DROP » »
ImtlIilIII_KaDBImm::I
This program means: take an argument from the stack (in RPN syn-
tax) or from the expression (in algebraic syntax) and call it x; convert x
from grams to ounces; and drop the ounce unit from the stack.
Store
the program in a variable G-O.
~----------------------~
~ G .G 0 I STO I 3:
2: 74.8051948052
1: 'gal'
ImtlIilIII_KaDBImm::I
To test the conversions, check how may grams are in 1 ounce, and
then convert that result back to ounces. The result should be 1 again.
Convert 1 ounce to grams.
1 I USER I 0.(;
74.8051948052
'9al'
1: 28.349523125
mDlimII8mIDiTlll ....
There are about 28 grams in 1 ounce. Now convert this result back to
ounces.
3: 74.8051948052
2: 'gal'
1: 1
mDlimII 8m 1DiTlII ....
The conversions are inverses, as they should be.
148 14: Unit Conversion
I