Shames (13.10 Text) Problem 10.34.

repeated here for info: Find the supporting

forces for the simply supported beam in figure. Then sketch the shear-force and
bending moment diagrams, labeling key points. 1K = 1000 lbs

1 K /ft 10 0 K -ft 10 K

2 0 ' 10 ' 10 ' 10 '

R 1 R2

initial estimates: R1 := 10 R2 := 5

equilibrium ...
Given

forces −1⋅20 + R1 + R2 − 10 = 0

20
moments wrt RA 1⋅ 20⋅ − 100 + R2⋅20 − 10⋅30 = 0
2

 20 
(
Find R1 , R2 = 
 10 
) R1 := 20 R2 := 10

starting from the notes combining various elements and adding an expression for a concentrated
moment:

distributed .... ul
shear( x) =
∑  wi⋅ ( x − ξ i , 0) ⋅ ( ξ i , 0 < x ≤ ξ i , 1) + wi⋅ ( ξ i , 1 − ξ i , 0) ⋅ ( x > ξ i , 1)
i = ll

ul
 w ⋅  1 ⋅ ( x − ξ ) 2 ⋅ ( ξ < x ≤ ξ ) ...
bending_moment( x) =
∑  i 2

i, 0  i, 0

i, 1
i = ll 
 + wi⋅  ( ξ i , 1 − ξ i , 0) ⋅ ( x − ξ i , 1) + ⋅ ( ξ i , 1 − ξ i , 0) ⋅ ( ξ i , 1 − ξ i , 0) ⋅ ( x > ξ i , 1)
1
  2  
 ul ul
concentrated force: shear( x) =
∑ i( f ⋅ x ≥ xx
i ) bending_moment( x) =
∑ fi⋅(x − xxi)⋅(x ≥ xxi)
i = ll i = ll

ul
concentrated moment ... (new) bending_moment( x) =
∑ (
m ⋅ x ≥ xm
i )
i
i = ll

now set up problem values:

w := −1 ξ := ( 0 20 ) ul := 0 ll := 0
distributed ... 0

 ul 
  wi⋅ ( x − ξ i , 0) ⋅ ( ξ i , 0 < x ≤ ξ i , 1) + wi⋅ ( ξ i , 1 − ξ i , 0) ⋅ ( x > ξ i , 1) 
shear_distr( x) :=
∑ 
 i = ll 

 ul
 w ⋅  1 ⋅ ( x − ξ ) 2 ⋅ ( ξ < x ≤ ξ ) ...
bend_mmt_dist( x) :=
∑  i 2
 
i, 0  i, 0

i, 1
 i = ll
 + wi⋅   
1
  ( ξ i , 1 − ξ i , 0) ⋅ ( x − ξ i , 1) + ⋅ ( ξ i , 1 − ξ i , 0) ⋅ ( ξ i , 1 − ξ i , 0) ⋅ ( x > ξ i , 1)
  2  

 R1   20 

concentrated force: f :=  R2  xx :=  40 ul := 2 ll := 0

  50 
 −10 
 ul 
shear_conc_f ( x) :=  f ⋅ ( x ≥ xx ) 
 ul 
 ∑ i i bend_mmt_conc_f ( x) := 
 ∑ f ⋅ ( x − xx ) ⋅ ( x ≥ xx ) 
i i i
 i = ll   i = ll 

concentrated moment ... (new)

m := 100 xm := 30 ul := 0 ll := 0
0 0

sign was reversed in equilibrium

ul (arbitrary direction) but is positive
bend_mmt_conc_m( x) :=
∑ (
m ⋅ x ≥ xm
i )
i
here consistent with our
"structural" sign convention
i = ll
 x := 0 .. 20 + 10 + 10 + 10
now superpose all the above ...

shear(x) := shear_distr(x) + shear_conc_f ( x)

bending_moment(x) := bend_mmt_dist(x) + bend_mmt_conc_f ( x) + bend_mmt_conc_m( x)

20 shear( 50) = 0 checks ....

shear( x) 0

20
0 20 40 60
x

0
bending_moment( 50) = 0

bending_moment( x) 100
also checks ....

200
0 20 40 60
x