天然河道水面线计算 basic源码

5 LPRINT " 天然河道水面线计算 HD-5(1993.8) GD"
6 LPRINT " - - - - - - - - - - - - - - - - - "
8 OPEN"I",#1,"HD-5.DAT"
10 INPUT#1,T,N,MN,A,C1,C2
12 DIM L(N),M(N),Z(N,MN),W(N,MN),B(N,MN),H(MN),F(MN),G(MN),ZC(N),K(N,MN),H0(MN)
15 FOR I=0 TO N: INPUT#1,M(I): NEXT I
18 FOR I=1 TO N: INPUT#1,L(I): NEXT I
20 ON T GOTO 25,21
21 INPUT#1,M1: DIM N1(M1),N0(M1): FOR J=1 TO M1: INPUT#1,N1(J),N0(J): NEXT J
22 IF N1(M1)<>N THEN PRINT "N1(";M1;")<>";N
23 INPUT#1,M2: DIM N2(M2),Q(M2): FOR J=1 TO M2: INPUT#1,N2(J),Q(J): NEXT J
24 IF N2(M2)<>N THEN PRINT "N2(";M2;")<>";N
25 LPRINT "类型参数 T=";T;"(糙率和流量不变/变(1/2))": FOR I=0 TO N: INPUT#1,Z(I,0),W(I,0),B(I,0)