This is a shear diagram for beams. Thank you so much in advance.
Show[Plot[40 - 6 x, {x, 0, 3}], Plot[12 - 6 x, {x, 3, 8}], Plot[60 - 6 x, {x, 8, 10}], PlotRange -> All, AxesOrigin -> Automatic]
