Procedure calculates bending moments in simple beam under uniformly distributed load. Support A is considered left, support B is right.
General information
Procedure BeamType1_UDL_BendingMoment calculate bending moment in simple beam. Support A is considered left, support B is right. You can use this routine in your applications and reports during linear static analysis.
General equations:
- \[M(x) = R_A \cdot x, x \leq a;\]
- \[M(x) = R_A \cdot x - \frac{w (x - a)^2}{2}, a < x < L - b;\]
- \[M(x) = R_B (L - x), x \geq L - b;\]
Recommended units of measurement
- a, b, L, Lw, x — meter [m];
- w — newton per meter [N/m];
- M — newton * meter [N*m].
DLL
dystlab.mechanics.dll
Usage format (Pascal)
procedure BeamType1_UDL_BendingMoment(w, a, b, L, x: Double; var M: Double); stdcall; external [DllName];
Parameters:
- w — intensity of the unirformly distributed load [N/m];
- a — distance between start point of the load and support A [m];
- b — distance between end of the load and support B [m];
- L — beam length [m];
- x — coordinate of analyzed section (distance between support A and section with force) [m];
- M — resultant bending moment [N*m].
Return value
Procedure returns in M correspondent bending moment [N*m]. If errors (for example, L<0), procedure returns M=0.
Directives
- DllName — library name. If DLL included in installation pack, then DllName is 'dystlab.mechanics.dll'.
Example for TechEditor
Next code calls routine from DLL and shows standard message box. Code can be used in applications for TechEditor 1.0.7 and higher.
uses
Classes, Dialogs;
procedure BeamType1_UDL_BendingMoment(w, a, b, L, x: Double; var M: Double); stdcall; external 'dystlab.mechanics.dll';
var
M: Double;
begin
BeamType1_UDL_BendingMoment(1.5, 0, 0, 2.0, 1.0, M); ShowMessage('M=' + FloatToStr(M)); end;
