Spreadsheets for design calculations

[The Scud]

I have a small number of spreadsheets used for design calculations for stress, veebelts, screw thread dimensions etc. If you are interested in having a copy of these, please PM me and I will forward by return mail. Plaes note that the spreadsheets are not all complete simply because I have not needed to use them, so you could do that yourself. Also, some calculations will need to be confirmed and validated by a structual engineer - depending on local requirements, so I will not accept liability for calcualtions regarding stress in beams etc. You are more than welcome to use the figures produced, but on your shoulders. The figures have helped me.

I am adding to the spreadsheets and there are some more I need to add and can forward those on as done. If you feel that there is something missing, please feel free to add to the spreadsheets and forward them to me. We are here to help each other and this is one way of doing so.

[Rob S]

I have one which does calcs for dimension lumber beams and joists (bending, shear, and deflection), and another which calcs Aluma beams for formwork, if anyone is interested.

[Bob P]

I use this macro to figure out bending stresses (and I and I/C)  of round or rectangular tubing:  Sorry - US units...

'This program calculates the bending stress in tubes.
BEGIN:
PRECIS=SYS(7)
INPUT "Is this a round(1) or rectangular(2) tube?  " AL
IF AL=1 THEN GOTO ROUND
IF AL=2 THEN GOTO RECT
goto error
ROUND:
INPUT "ENTER THE OUTSIDE DIAMETER OF THE TUBE: " OD
INPUT "ENTER THE INSIDE DIAMETER OF THE TUBE: " IND
INPUT "ENTER THE BENDING MOMENT (INCH-LBS) " MOMENT
IF IND=0 THEN GOTO ZID
IOC=(3.1416*(OD^3-IND^3))/32
GOTO DOIT
ZID:
IOC=(3.1416/32)*(OD^3)
DOIT:
I=.049*(OD^4-ID^4)
WINDOW 2,24
LOCATE 1,2
PRINT "I=", I,    "I/C=", IOC
ANYKEY
GOTO CALC

RECT:
INPUT "ENTER THE HEIGHT OF THE TUBE " HEIGHT
INPUT "ENTER THE WIDTH OF THE TUBE " WIDTH
INPUT "ENTER THE WALL THICKNESS OF THE TUBE " WALL
INPUT "ENTER THE BENDING MOMENT (INCH-LBS) " MOMENT
IOC=((WIDTH*HEIGHT^2-(WIDTH-2*WALL)*((HEIGHT-2*WALL)^2)))/6
I=(WIDTH*HEIGHT^3)/12-(WIDTH-2*WALL)*((HEIGHT-2*WALL)^3)/12
WINDOW 3,35
LOCATE 1,1
PRINT "I=", I,    "I/C=", IOC
ANYKEY
CALC:
S=MOMENT/IOC
PRECISION 0
WINDOW 3,35
LOCATE 1,1
PRINT S,"psi is the maximum stress"
ANYKEY
GOTO END
ERROR:
GOTO BEGIN
END: