Board Foot Calculator Script
Webb - all rights reserved - ©2004
Author - James Cook
Summary: Calculate lumber volume and pricing in board-feet
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 board-foot 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 board-foot. Lumber in the US is usually priced in dollars per board-foot.
The variable buttons in my programs usually work just like the buttons on an HP-48 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 board-foot. [bdft] is the number of board-feet. [$tot] is the total price of the lumber.
How much is a board of 5/4 Maple 6.5" wide and 3.5' long that costs $40 a board foot?
5 [X/4] or 1.25 [T_in]
[Slv] [$tot] 94.79 dollars
[Rcl] [bdft] 2.37 board feet
\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)"
"_$@:cost per board foot"
"_$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;