CALCS | BAS024 Computer Aided Longhand Calculation System |

## NOTATION | |

Note: the PROC definition sheets include specific notation as appropriate | |

DAF | design acceptance factor |

E | young's modulus |

F | stress, allowable |

fb | stress, bending |

fbr | stress, bearing |

fc | stress, compression |

fcr | tress, stability critical |

fd | stress, direct |

fs | stress, shear |

ft | stress, tension |

FoS | factor of safety (DAF) |

Ftu | ltimate tensile stress |

Fy | yield stress |

G | shear modulus |

Kb | bending, stress factor |

Kbr | bearing, stress factor |

Kc | compression, stress factor |

Kcr | stability critical, stress factor |

Kd | direct stress, stress factor |

Ks | shear stress, stress factor |

Kt | tension stress, stress factor |

M | moment |

Ms | margin of safety (DAF) |

Nk | number, des.crit set |

Nm | number, material set |

P | force |

RF | reserve factor (DAF) |

SF | stress factor, for finding DAF |

UF | utilisation factor (DAF) |

v | poisson's ratio |

i1=1:REM DAF parameter, limit for values written to RH column

i1%=1:i2%=1:REM variable & numeric print control, 0 or 1

i1$=CHR$(9):i2$=STRING$(1,CHR$(9)):i3$=STRING$(2,CHR$(9)):REM tabs

i3%=1:REM Design Acceptance Factor: 1 UF, 2 RF, 3 Ms, 4 FoS

@%=&0100040A:REM number format

REM_STARTCALC************************************

PRINT"BAS024"

PRINT"UNITS:t,cm unless noted otherwise"

LET P=6:A=2.1:M=32.9:Y=2.7:I=31.11

LET fd=P/A+M*Y/I

PRINT"END024"

END

REM_ENDCALC**************************************

Thses comprise the first part of the CALC Blank template and should be completed before writing the calculation.

Numeric data may be assigned to a CALC in three ways.

a=PI:b%=I:c=a-b%:d=22/7

This option should be used for special purposes only.

LET a=PI:b%=I:c=a-b%:d=22/7

LET c=a-b%

LET Ftu(1)=4.9:Fy(1)=3.5:E(1)=2070:G(1)=796:v(1)=.3

LET Ka(1)=.6:Kcr(1)=.6:Kt(1)=.6:Kc(1)=.6:Ks(1)=.4:Kb(1)=.6:Kbr(1)=.6

LET P=6.1:M=100

P."normal textural statements"

P."use exclaimation to indicate warning!"

P."write acceptance statements finishing with last word ok"

Some PROCs include arrays (007, 018 & 044) and the necessary arguments are already written into CALCS 'DIM' declaration statements.

PROCs are generally formulated to be non-dimensional: if they require specific units, this is noted accordingly. They all use Radian angular measurement and PROC call statements assign angles using AngRad=RAD(AngDeg). It is recommended users conform with this format.

PROCuserdefined:REM this line calls the User Procedure from within the CALC

DEF PROCuserdefined:REM this statement is the first line of the procedure named 'userdefined'

REM program lines are included here (between the DEF PROC & ENDPROC statements)

ENDPROC

i1=1:REM Ms parameter, greater values written to RH column

i1%=1:i2%=1:REM variable & numeric print control, 0 or 1

i1$=CHR$(9):i2$=STRING$(1,CHR$(9)):i3$=STRING$(2,CHR$(9)):REM tabs

@%=&0100040A:REM number format

REM_STARTCALC*******************************************

PRINT"BAS024"

PRINT"UNITS:t,cm unless noted otherwise"

P."MATERIALS,"

LET Ftu(1)=4.9:Fy(1)=3.5:E(1)=2070:G(1)=796:v(1)=.3

P."DESIGN ACCEPTANCE FACTORS,"

LET Kd(1)=.67:Kcr(1)=.67:Kt(1)=.67:Kc(1)=.67:Ks(1)=.67*.58:Kb(1)=.67:Kbr(1)=.67

LET Nm=1:Nk=1:a=33.25:b=13:t=2.5:P=15.43:PROC003

END

REM_ENDCALC*********************************************

UNITS:t,cm unless noted otherwise

MATERIALS,

LET Ftu(1)=4.9:Fy(1)=3.5:E(1)=2070:G(1)=796:v(1)=.3

DESIGN ACCEPTANCE FACTORS,

LET Kd(1)=.67:Kcr(1)=.67:Kt(1)=.67:Kc(1)=.67:Ks(1)=.67*.58:Kb(1)=.67:Kbr(1)=.67

LET Nm=1:Nk=1:a=33.25:b=13:t=2.5:P=15.43:PROC003

PROC003, ANNULAR PLATE, OUTER EGDE S.S., INNER EDGE LINE FORCE, 201195

K | = +-1.411*(b/a)^4+3.923*(b/a)^3+-4.323*(b/a)^2+2.694E0*(b/a)^1+1.075E-1*(b/a)^0 | = 0.7015 | |

K | = +-1.411*(13/33.25)^4+3.923*(13/33.25)^3+-4.323*(13/33.25)^2+2.694E0*(13/33.25)^1+1.075E-1*(13/33.25)^0 | = 0.7015 | |

M | = K*(P/(PI*b))*a | = 8.812 | |

M | = 0.7015*(15.43/(3.142*13))*33.25 | = 8.811 | |

fdb | = 6*M/(t^2) | = 8.459 | |

fdb | = 6*8.812/(2.5^2) | = 8.46 | |

Ms | = fdb/(Kb(Nk)*Fy(Nm)) | = 3.607 | 3.607 |

Ms | = 8.459/(0.67*3.5) | = 3.607 | 3.607 |

END024