home
history
links from
printable
login


Board Foot Calculator Script Webb  all rights reserved  ©2004

Author  James Cook
Email: James_Cook@ieee.org
Webpage:
Summary: Calculate lumber volume and pricing in boardfeet
Binary: Yrpn_Board_Foot_Calc.pdb
Instructions: If you've ever needed to calculate the price of a beautiful piece of hardwood at your local lumberyard, this program will come in handy. Even if you have no use for this, take a look at the code for techniques you can use in your own programs.
One boardfoot is defined as the volume of a 1 inch thick, 12 inch wide piece of lumber 1 foot long. Thus, a 1/2 inch thick board 6 inches wide and 4 feet long is also one boardfoot. Lumber in the US is usually priced in dollars per boardfoot.
The variable buttons in my programs usually work just like the buttons on an HP48 calculator. Enter the variable on the stack and tap the button to store. Tap [Rcl] and then the variable name to recall the value stored. Tap [Slv] and the unknown variable to solve. [Clr] clears all variables.
The [x\4] takes the number of "quarters" from the stack and coverts it to decimal inches and stores in the thickness variable. Some lumber is sold as "five quarter" or 1 1/4" thick, etc. [T_in] stores the thickness in decimal inches. [W_in] stores the width in decimal inches. [L_in] stores the length in inches.
[$@] stores the price per boardfoot. [bdft] is the number of boardfeet. [$tot] is the total price of the lumber.
Example:
How much is a board of 5/4 Maple 6.5" wide and 3.5' long that costs $40 a board foot?
[Clr]
5 [X/4] or 1.25 [T_in]
6.5 [W_in]
42 [L_in]
40 [$@]
[Slv] [$tot] 94.79 dollars
[Rcl] [bdft] 2.37 board feet
Code:
RPN.2.i+3\Board Foot\
{o}Cc;
[a]xaxbxc**#'12'/;
[c]0Xa0Xb0Xc0Xd0Xe0Xf0Xg;
\a=thickness, b=width, c=length, d=menu, e=cost per bft, f=board foot, g=cost\
"Board Foot Calc"
"Board Foot Calc" D'Calculates the cost of lumber\ based on price per board foot.'d1;
~
"_x/4:thickness of board in quarter inches" xdc(4/Xa:xa4*)0Xd;
"_T_in:thickness of board (in inches)" xdc(Xa:xa)0Xd;
"_W_in:width of board (in inches)" xdc(Xb:xb)0Xd;
"_L_in:length of board (in inches)"
xdc(#'12'/Xc:xc)0Xd;
~
"_$@:cost per board foot"
xdc(Xe:xe)0Xd;
"_bdft:board foot"
xdc(Xf:xf:CaXfxf)0Xd;
"_$tot:total cost of lumber"xdc(Xg:xg:xf0=0(Ca:xf)xe*Xgxg)0Xd;
~
"Rcl:Recall stored variable"1Xd;
"Slv:Solve for unknown variable"2Xd;
"Clr:Clear all variables" Cc;
"Abt:About" D'Board Foot Calculator\Written by Jim Cook\James_Cook@ieee.org'd1;

