CALCS BAS024
Computer Aided Longhand Calculation System

NOTATION

Note: the PROC definition sheets include specific notation as appropriate
DAFdesign acceptance factor
Eyoung's modulus
Fstress, allowable
fbstress, bending
fbrstress, bearing
fcstress, compression
fcrtress, stability critical
fdstress, direct
fsstress, shear
ftstress, tension
FoSfactor of safety (DAF)
Ftultimate tensile stress
Fyyield stress
Gshear modulus
Kbbending, stress factor
Kbrbearing, stress factor
Kccompression, stress factor
Kcrstability critical, stress factor
Kddirect stress, stress factor
Ksshear stress, stress factor
Kttension stress, stress factor
Mmoment
Msmargin of safety (DAF)
Nknumber, des.crit set
Nmnumber, material set
Pforce
RFreserve factor (DAF)
SFstress factor, for finding DAF
UFutilisation factor (DAF)
vpoisson's ratio

APPLICATION

CALC Blank template

REM_CALC
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**************************************

CALC Part1: Program Functional Parameters


Thses comprise the first part of the CALC Blank template and should be completed before writing the calculation.
  • DAF parameter: this may be changed to any value as desired, ex .95, 1 or 1.1
  • Write switches: for algebraic expressions and for numeric data assigned to equations. Either may be switched off by replacing 1 with 0.
  • DAF Design Acceptance Factor: The default DAF is UF. This may be changed to RF. Ms or FoS as required.
  • Number format: refer to Language Reference for format definition if required to be changed.

    CALC Part2: The Engineering Problem


    Numeric data may be assigned to a CALC in three ways.
  • Special data assignment. Numeric data is assigned to the named variable but nothing is written to the CALC output. Multiple assignments may be made on one program line, for example:
    a=PI:b%=I:c=a-b%:d=22/7
    This option should be used for special purposes only.
  • Direct Assignment. Numeric data is assigned to the named variables and the statement is written to the CALC output as written. Multiple assignments may be made following the LET keyword, for example:
    LET a=PI:b%=I:c=a-b%:d=22/7
  • Write Calculation. Numeric data is assigned to the named variable and the equation is written to the CALC output. The result of the equation is returned in the output. The equation is repeaed in a second line of output but with numeric data shown in place of the algebraic variables. Only one equation may be written following each LET, for example:
    LET c=a-b%

    Material Properties

    These are defined after the leading particulars by inclusion of direct assignment statements. Each statement line relates to one material. The DIM statement is presently set for 9 mats. They are written in the form:
    LET Ftu(1)=4.9:Fy(1)=3.5:E(1)=2070:G(1)=796:v(1)=.3

    Stress Factors

    These allow quantifiction of DAFs for specific strucural design criteria. Stress Factors should be chosen such that the adequacy of the detail is demonstrated when the UF (for example) is greater than or equal to unity (unity check). SFs are included for common design criteria including axial, buckling, tension, compression, shear and bearing stresses. SFs should be taken from the Code or Standard under which the calculations are being written. The DIM statement presently accomodates 9 sets of SFs. They are written in the form:
    LET Ka(1)=.6:Kcr(1)=.6:Kt(1)=.6:Kc(1)=.6:Ks(1)=.4:Kb(1)=.6:Kbr(1)=.6

    Loading Conditions

    Loads may be grouped at the start of the CALC to provide a common point of reference. They are written as direct assignments in the form:
    LET P=6.1:M=100

    CALC Text Statements

    Short text statements are written to the CALC in the form:
    P."normal textural statements"
    P."use exclaimation to indicate warning!"
    P."write acceptance statements finishing with last word ok"

    PROC procedures

    These may be 'called' any number of times from the CALC, using input data for each load case in turn.
    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.

    User defined procedures

    These must be appended to the end of the CALC following the END statement. The required format for these is as follows:

    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

    EXAMPLE

    The CALC example which follows includes a line which calls PROC003.

    Input

    REM_CALC 30/11/02
    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*********************************************

    Output

    BAS024
    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.6073.607
    Ms= 8.459/(0.67*3.5)= 3.6073.607
    END003
    END024