restart:
w:=500: EY:=50e9: A:=0.0001: L:=.4:
FBEqns:=[
Ay+By+Cy-w+Dy+Ey-w+Fy,
.2*By+.4*Cy-.4*w+.6*Dy+.8*Ey-.8*w+1*Fy]:
HLEqns:=[
Ay/A=EY*(-yA)/L,
By/A=EY*(-yB)/L,
Cy/A=EY*(-yC)/L,
Dy/A=EY*(-yD)/L,
Ey/A=EY*(-yE)/L,
Fy/A=EY*(-yF)/L]:
GeomEqns:=[
(yB-yA)/.2=(yC-yA)/.4,
(yB-yA)/.2=(yD-yA)/.6,
(yB-yA)/.2=(yE-yA)/.8,
(yB-yA)/.2=(yF-yA)]:
solve([op(FBEqns),op(HLEqns),op(GeomEqns)]);