电子表格Excel在床沙分析工作中的应用.doc

-水资源研究第25卷 第2期(总第90期)2004年6月-电子表格Excel在床沙分析工作中的应用 樊乾和 王宝成（长江水利委员会长江三峡水文水资源勘测局，湖北宜昌443000）摘要：Office 2000的电子表格Excel具有强大的制作表格、处理数据、分析数据等功能，在日常工作中得到了大量应用，用Excel电子表格计算床沙颗粒级配成果非常方便，完全可取代传统手工计算方法。关键词： Excel、床沙计算、函数、计算机软件Office 2000的电子表格具有强大的制作表格、处理数据、分析数据等功能，在日常工作中得到了大量应用，用Excel电子表格计算床沙颗粒级配成果非常方便，完全可取代传统手工计算方法。1 软件运行环境软件运行环境：Windows 98、Windows Me、Windows 2000、Windows XP。硬件环境：对硬件没有特别要求。P以上、有足够的硬盘空间的计算机即可。2 启动软件启动软件：同其它软件一样、双击Excel 2000在桌面上的快捷方式或者选择“开始” “程序”下的Microsoft Excel的命令均可。3 编制工作表 编制工作表：Excel启动后，选择文件下的“新建”，打开“床沙计算”模板，创建一个新的工作簿。此工作簿包括两个工作表，分别为“数据输入”和“床沙成果级配成果表”。先在“数据”工作表中输入一些基本内容，如测量时间、断面编号等。然后输入各测点的起点距及粒径级配百分数P，这就完成了数据输入，程序自动计算床沙级配成果，工作表的“床沙级配成果表”就是最终制好的表格。4 处理其中的数据、编制有关计算公式处理其中的数据、编制有关计算公式：在工作表中输入文字和数据都比较简单，相对比较复杂的是部分河宽计算、K值的平差处理、数据的四舍六入处理以及在编制表格时应用了一些不寻常的函数。特别说明如下：K值的平差处理：由于传统计算K值都是取有效数字3位，然后平差直到K值和等于1.0为止。为了和历史成果保持一致，K值并没有采用电子表格自动计算的双精度成果,而是通过参数设置达到和传统手工计算一样的成果。本程序先计算出双精度K,用Excel的ROUND公式取有效位数字3位成果，后对所有K值求和。由于K值和一般都不等于1.0，要求对K值平差，本程序用MAX、MATCH函数逐个对K值集合从大到小寻找出要平差的数据逐个改正0.1直到K值和等于1.0。数据的四舍六入处理：如是用汇编语言编写，数据的四舍六入处理并不难，但程序要调用Office功能，编写起来并不容易。本程序直接用Excel的函数处理，只要计算机安装Excel就可。本程序是用MATCH函数来判断K.P的小数部分是否为05、25、45、65、85，如果是K.PK.P-0.01,否则不变，然后用ROUND函数取K.P有效小数一位，这就对数据K.P进行了四舍六入。K.P的处理：由于K.P值并不是简单的所有K.P值之和，此过程相当繁琐。本程序首先求出K.P中不为零的所有数据所在的最大粒径组，后对其它K.P值按该粒径组中的最大K.P来填补(P=100时的K.P为最大)，然后按行合并所有的K.P值才为K.P。函数引用的说明：本程序引用了大量的Excel函数，例如E20中的公式 “=IF(D20= ,IF(ISERROR(MATCH( ROUND(D20*$D$11-TRUNC(D20*$D$11)*100,3),ALL,0),D20*$D$11,D20*$D$11-0.01)”就相当复杂。其中有多次逻辑判定语句IF,有信息判定语句ISERROR,有查询语句MATCH,有数学公式ROUND、还有自定义数据ALL，特别是相对引用和绝对引用，各函数之间、引用之间要特别注意，一点都不能错误。中间过程计算说明：在数据处理中，许多计算都要经过多种步骤，而这些过程在表格中是看不到的，程序通过Excel的隐藏、锁定和保护等功能使表格简单、清晰、功能强大。例如：K.P计算，程序连续通过3个表格才完成，但工作表把中间过程都隐藏起来了。输入技巧：对于没有取到床沙的起点距不可不填，因为它可能要用于两边数据的计算。所有输入数据都要在“数据”工作表中完成，“床沙级配成果表”中填写的无效。P值中为”0”的值要填入“0.001”以保证表格中不显示为空格。5 结语 本程序计算成果和手工计算成果结果完全一致，可以取代手工计算表格。本程序由于计算过程完全电算，故精度高、速度快。泥沙方面在许多计算过程中都可用Excel来编写，从而取代手工计算方法，提高效益。 本程序是用Excel工作表编写的，为了应用方便，可把此工作薄文件保存为Excel模板，这样每次应用时只要选择此模板建立新的床沙粒径计算表格就可。作者简介：樊乾和，男，长江水利委员会水文局长江三峡水文水资源勘测局，工程师。长 江 水 利 委 员 会水 文 站 床 沙 断 面 平 均 颗 粒 级 配 计 算 表旋测号：14分析号：15断面名称：ccS=828旋测日期：2003年 06 月 25 日备 注左水边起点距：72(m)右水边起点距：576m总河宽：414(m)断面最大粒径：2.00(m)垂线编号123456789101112131415小于某粒径沙重百分数垂线起点距190230250270290310330350370390410430470部分河宽1184020101010102020201020106部分河宽之和27660404040404040252K0.334 0.073 0.048 0.048 0.048 0.048 0.048 0.048 0.305 粒径小 于 某 粒 径 沙 重D（mm）PK。PPK。PPK。PPK。PPK。PPK。PPK。PPK。PPK。PPK。PPK。PPK。PPK。PPK。PPK。P12864.010033.410032.098.032.799.316.085.028.495.08.0070.023.490.04.0065.021.71004.888.32.0064.021.41007.31004.81004.81004.888.01.0050.016.799.07.21004.899.64.899.64.899.64.81004.883.20.500 25.08.487.06.486.04.145.02.280.03.880.13.899.94.810030.568.80.355 10.03.364.04.780.03.81004.831.11.570.03.475.43.698.74.798.830.159.90.250 9.03.055.04.075.03.698.04.725.11.266.03.225.41.297.54.775.423.048.60.180 8.02.745.03.360.02.975.53.635.01.754.52.626.31.396.44.635.410.833.50.125 6.02.034.02.550.02.465.03.125.41.245.62.225.41.280.43.925.47.726.20.090 33.02.445.02.250.02.415.00.733.91.624.51.279.83.815.14.618.90.062 25.01.835.01.745.02.210.00.530.91.523.41.169.53.310.13