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.
I001 LBL I I002 SF 10 I003 EQN IXX and Neutral Axis I004 CF 10 I005 CLVARS I006 INPUT N I007 INPUT B (note: I have omitted line numbers from here on) 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 X^2 RCL *A RCL + I STO I RCL T RCL H 2 / + RCL Q RCL / R - X^2 RCL *B RCL *H RCL H 3 Y^X 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 length^4) R/S (Program halts to VIEW the location of the x centroidal axis) R/S The result should be I = 54.6660 (units = length^4) C = 3.9063 (units = length, measured from base)
Go back to the software library
Go
back to the main exhibit hall