Excellent notes anywhere!!

In “Behaviour and design of columns.” Some figures are missing.

In “Reinforced Concrete Columns: from first principles and to BS8110”, solutions to some examples are missing.

Thank you again

WAlid

]]>..

1st time: Apply the SAME trapezoidal load with INCREASING intensity

2nd time: Apply the SAME trapezoidal load with DECREASING intensity

..

Then observe the resulting max SHEAR and max MOMENT on both conditions…

The results, regardless of the intensity orientations, should be the SAME and EQUAL. ]]>

Can you please send me a link please (for Windows). Regards ]]>

versions of this program to run both in Microsoft Excel and SMath Studio platforms. Both are

functional and had been put to use for almost 3 years now.

However, I found a slight problem on the program; a programming bug. The program returns incorrect

results with TRAPEZOIDAL LOADING for both shear and moment diagrams. Of, course, this has also

affected the results for the REACTIONS. I’ve already made several attempts to correct the results

by modifying the program but with no success.

Below is the subroutine where the error is generated:

‘———————–

Sub Apply_TDL()

Dim i As Long

Dim q As Long

Dim tDisanp As Long

Dim tDisbnp As Long

Dim Inc As Double

Dim L2R As Boolean

Dim L_Ele As Double

Dim wL As Double

Dim wR As Double ‘Leftload and rightload of element

Dim w1 As Double

Dim w2 As Double ‘Small large load values

Dim Mmax As Double

Dim Mmin As Double ‘Big m little m

Dim Rmax As Double

Dim Rmin As Double ‘Big R little R

For i = 1 To tLn

For q = 1 To mod_nNp

If Abs(mod_X(q) – tDisa(i)) <= mod_PREC Then

tDisanp = q

End If

If Abs(mod_X(q) – tDisb(i)) <= mod_PREC Then

tDisbnp = q

If tDisanp < tDisbnp And Not tDisanp = 0 Then q = mod_nNp

End If

Next

If tLoadw1(i) <= tLoadw2(i) Then 'decides slope of tdl

L2R = True 'left rising to right

Else

L2R = False 'r 2 l

End If

Inc = (tLoadw2(i) – tLoadw1(i)) / Abs(tDisbnp – tDisanp)

For q = tDisanp To tDisbnp – 1

L_Ele = mod_L(q) 'Length of Element

wL = tLoadw1(i) + Inc * (mod_X(q) – tDisa(i))

wR = wL + Inc * L_Ele

If L2R Then 'Allocates w1 & w2

w2 = wR

w1 = wL

Else

w1 = wR

w2 = wL

End If

Mmin = (3 * w1 + 2 * w2) * L_Ele ^ 2 / 60 'absolute values

Mmax = (2 * w1 + 3 * w2) * L_Ele ^ 2 / 60 'for the applied

Rmin = (19 * w1 + 9 * w2) * L_Ele / 60 'nodal actions

Rmax = (11 * w1 + 21 * w2) * L_Ele / 60 'to be "signed"

If L2R Then

Call f_AppTof(Rmin, Mmin, Rmax, Mmax, q)

Else

Call f_AppTof(Rmax, Mmax, Rmin, Mmin, q)

End If

Next

Next

End Sub

'———————–

]]>One thing I just notice in your web directories is, the files could be downloaded but just going to the indexed page. Well thank you anyway for being back. Hoping for some conversations with sir. Thanks.. ]]>