The Museum of HP Calculators
This program is by Eric Lundgren and is used here by permission.
This program is supplied without representation or warranty of any kind. Eric Lundgren and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.
You can also get the Iyy and Ybar by re-running it for the same body, while referencing left or right side as the base (ie, turn an I-beam on its side and enter the dimensions).
Slight modifications will also permit the extraction of final area.
LBL I SF 10 EQN IXX and Neutral Axis CF 10 CLVARS INPUT N INPUT B INPUT H RCL H 2 ÷ RCL +T RCL B RCL × H × RCL +Q STO Q RCL B RCL H × RCL +R STO R 1 RCL +V STO V RCL Q RCL ÷ R RCL - C X2 RCL ×A RCL + I STO I RCL T RCL H 2 ÷ + RCL Q RCL ÷ R - X2 RCL ×B RCL ×H RCL H 3 YX RCL ×B 12 ÷ + RCL + I STO I RCL Q RCL ÷ R STO C RCL B RCL × H RCL + A STO A RCL T RCL +H STO T RCL V RCL N X>Y? GTO I007 I= **This is the value of composite Ix for your cross-section** C= **This is the location of Xbar, ie the X neutral axis** RTN LN=220 CK=704D
Here is an example for an I-beam:
XEQ I ENTER screen will read: IXX AND NA (hit R/S to continue) N=3 **number of sections** R/S B=5 **width of bottom flange** R/S H=0.25 **height of bottom flange** R/S B=0.5 **width of web** R/S H=8 **height of web** R/S B=3 **width of upper flange** R/S H=0.25 **height of upper flange** R/S (Program halts to VIEW the area moment of inertia, units length4) R/S (Program halts to VIEW the location of the x centroidal axis) R/S The result should be I = 54.6660 (units = length4) C = 3.9063 (units = length, measured from base)