Fortran77的编程问题,C WATER HAMMER FINITEDIMENSION V(100),H(100)READ(5,1) DX,DT,C,HO,VO,TOL,IMAX1 FORMAT(6F7.0,I4)IMAX1=IMAX-1V(I)=VO2 H(I)=HOT=0N=0100 T=T+DTN=N+1IF(T.GT.TOL) GO TO 3SR=(TOL-T)/TOLGO TO 43 SR=04 CONTINUEV(IMAX)=SR*SQRT(2.*9.81*H

来源:学生作业帮助网 编辑:作业帮 时间:2024/09/16 14:12:47
xn0_evp xh4epg>'y-Lg&IVl:|~a_?9.L Mvy4X0E\dTO1u%ɸ2Y1~,,pnx)7Yf^]_}yeo$|:=|0S