用电子表格进行流速计算.docVIP

用电子表格进 行流速计算 用电子表格进行流速计算 电子表格功能强大，我们可以用它来完成很多工作。在测量工作中，就可以用它来完成流速的计算。在对河流的测量工作中，经常要进行流速的测量。 在测量流速时，我们一般先在需要测量河段的两岸选择适当的地点设置测站，架设经纬仪或全站仪（两个地点的平面坐标已知且视线开阔），且这两个站互为后视；然后在测量河段的上游方抛下一漂浮物，两测站都用仪器瞄准，并随着它的移动而移动；最后由第三人在间隔固定时间的计数（如20秒一次），两测站随着计数观测记录。如图： 在观测完成后，我们就进行计算。电子表格功能强大，我们可以编制适当的函数，用电子表格完成。先新建一电子表格文档，打开VB编辑器，插入模块，在模块中编辑以下程序，完成后将文档保存为“加载宏”格式。（这个步骤一次完成，以后就不再做了）如图： 一、先编辑计算p点坐标的程序 如图所示，在A、B两已知点架设经纬仪，测得已知方向与AP、BP的测角α、β。P点的坐标计算公式如下： 　根据这个公式，在电子表格中用VBA编制程序计算P点的坐标。 1、建立函数S（v） 完成正弦函数tan()的计算。 由于我们的观测数据都是用度分秒表示，如59°40′28″，在电子表格中输为59.4028，而在计算时都需要换算为弧度。我们用x°y′z″表示一个角，用w表示这个角的弧度值，则计算公式为 w=(x+y/60+z/360