请教，如何计算河道水面线
一、概述紫藤山庄水闸位于陕西省白河县紫藤山庄宾馆北边的红石河上，地理坐标为东经110°06′18″、北纬32°45′39″，距县城12km。红石河是汉江的二级支流。拟建水闸上游至交通桥河段长194m，河道断面宽度面18～36m、底14～22m不等，左岸为浆砌石挡土墙，右岸为不规则的土坡，正常水位线以上长满杂草小树，个别地方岩石裸露，平均河床坡降i=0.0116。该段河道为建设紫藤山庄而截弯取直的新开挖河段，上游宽下游狭窄。狭窄段为岩石开挖而成的河道。本闸的主要功能是抬高正常水位，使山庄前面河段（拟建水闸上游至交通桥河段）形成景观水面。二、闸址选择0+000~0+194为相对较为平缓的河道，0+194~0+229为跌差5.29m由岩石凿成的陡槽。0+194断面是全段河道最狭窄位置，上游平均坡度为0.0116的缓坡，下游为长42m、高差5.29m、坡度-0.1238的陂坡。所以0+194断面为河道水流的天然控制断面，且河床由开挖岩石而成，岩石整体性好，承载力高，是建设水闸的理想位置。三、河道设计洪水位与流量该河道没有水文资料，本工程根据已有
陡坡水面线计算 basic源码
5 CLEAR : LPRINT TAB(3);"陡坡水面线计算 DP-3(1993.9)GD" 7 LPRINT " - - - - - - - - -": 14 OPEN"I",#1,"DP-3.DAT" 100 INPUT#1,B0,N0,A,N,M,T 110 DIM M(N),J(N),L(N,M),B(N,M),HC(N,M) 120 FOR I=1 TO N:INPUT#1,J(I): NEXT I 125 FOR I=1 TO N:INPUT#1,M(I): NEXT I 128 IF T=1 THEN 132 130 FOR I=1 TO N: FOR I1=1 TO M(I):INPUT#1, L(I,I1),B(I,I1): NEXT I1: NEXT I: GOTO 135 132 FOR I=1 TO N: FOR I1=1 TO M(I):INPUT#1, L(I,I1):B(I,I1)=B0: NEXT I1: NEXT I 134 CLOSE#1