题目

FORTRAN求均布荷载Q和跨中集中力Fp作用下跨多为L的简支梁,最大弯矩和最大挠度?情帮忙看一下我错在哪了
INTEGER Q,L,F,EI,M,W
READ *,Q,F,L,EI
FUNCTION M1(Q,L)
M1=(1/8)*Q*L**2
END
FUNCTION W1(Q,L,EI)
W1=(5*Q*L**4)/(384*EI)
END
FUNCTION M2(Q,L)
M2=(1/4)*F*L
END
FUNCTION W2(Q,L,EI)
W2=(F8L**3)/(48*EI)
END
M=M1+M2
W=W1+W2
PRINT *,"最大弯矩值M=",M
PRINT *,"最大挠度值W=",W
PAUSE
END

提问时间：2020-12-16

答案