资源描述：
《海岸动力学试验》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、目录试验1：波浪数据采集及波高统计试验一、…………………………………………………………试验目的二、…………………………………………………………试验要求三、…………………………………………………………试验过程四、…………………………………………………………数据处理五、…………………………………………………………结果分析六、…………………………………………………试验结论与感悟试验2：波压力量测试验一、…………………………………………………………试验目的二、…………………………………………………………试验要求三、……………………………………………………试验
2、水文要素四、…………………………………………………………试验仪器五、…………………………………………………………试验过程六、…………………………………………………………数据处理七、…………………………………………………………结果分析八、…………………………………………………试验结论与感悟试验一：波浪数据采集及波高统计试验一、试验目的了解波浪中规则波及不规则波的区别，波浪模型试验的一般方法，规则波波高、周期、不规则波波高的统计方法。二、试验要求1、规则波及不规则波的测量与特征值的统计。2、明确实验目的。掌握实验原理。掌握基本仪器的使用，包括波浪数据采集
3、系统和水槽造波机的使用方法。通过自己设计出不同波长、波高的规则及不规则波，参与造波及数据采集的全过程，了解波浪物理模型试验的最基本方法。正确处理实验数据，能通过处理采样数据文件统计各种累积频率波高，发现规律，得出实验结论。分析实验误差，提出减少误差的方法，分析误差的范围。3、编写实验报告，要求报告能准确反映实验目的、方法、过程和结论。一、试验过程试验中共设置四根波高传感器，四个同学为一组，每人采用其中一根传感器的数据计算波高，规则波采样时间为20s，不规则波采样时间为80s左右。规则波试验结果主要统计平均波高。波峰减波谷即为波高，将采集到的所有波高进
4、行算术平均，得到规则波的平均波高。不规则波试验结果主要统计有效波高。波峰减波谷即为波高，将采集到的所有波高进行排序，取前1/3大波进行算术平均，得到不规则波的有效波高。二、数据处理本次实验使用fortran90语言编写计算程序，对数据进行处理。1、规则波（1）程序编写!求规则波各通道下平均波高programmainimplicitnoneinteger::i,j,k=2000,m=0,n,xreal::crest=0,trough=0,middle=0real,dimension(4,2000)::series=0integer,dimension(
5、4,100)::zero=0real,dimension(4,100)::h=0real,dimension(4)::sum_height=0,average_h=0integer,dimension(4)::mark=0open(1,file='DAYU05B.800')dok=1,2000read(1,'(4x,f7.3,3(3x,f7.3))')series(1:4,k)enddoclose(1)open(2,file="d:mirroronedate.dat")doi=1,4m=0doj=1,k-1if((series(i,j)<1e-
6、10).and.(series(i,j+1)>1e-10))thenm=m+1;zero(i,m)=jendifenddomark(i)=mdox=1,m-1crest=maxval(series(i,(zero(i,x)):(zero(i,x+1))))trough=minval(series(i,(zero(i,x)):(zero(i,x+1))))h(i,x)=crest-troughenddoenddoprint'(1x,a/10i7)',"15通道上跨零点位置",zero(1,1:mark(1))print'(1x,a/10f8.3)',"
7、15通道波高",h(1,1:mark(1)-1)print*,"---------------------------------------------------------------------"print'(1x,a/10i7)',"4通道上跨零点位置",zero(2,1:mark(2))print'(1x,a/10f8.3)',"4通道波高",h(2,1:mark(2)-1)print*,"----------------------------------------------------------------------"prin
8、t'(1x,a/10i7)',"15通道上跨零点位置",zero(3,1:mark(3))print'(1x
