海岸动力学试验详解.docVIP

目录 试验1：波浪数据采集及波高统计试验 一、…………………………………………………………试验目的 二、…………………………………………………………试验要求 三、…………………………………………………………试验过程 四、…………………………………………………………数据处理 五、…………………………………………………………结果分析 六、…………………………………………………试验结论与感悟 试验2：波压力量测试验 一、…………………………………………………………试验目的 二、…………………………………………………………试验要求 三、……………………………………………………试验水文要素 四、…………………………………………………………试验仪器 五、…………………………………………………………试验过程 六、…………………………………………………………数据处理 七、…………………………………………………………结果分析 八、…………………………………………………试验结论与感悟 试验一：波浪数据采集及波高统计试验 试验目的 了解波浪中规则波及不规则波的区别，波浪模型试验的一般方法，规则波波高、周期、不规则波波高的统计方法。 试验要求 1、规则波及不规则波的测量与特征值的统计。 2、明确实验目的。掌握实验原理。掌握基本仪器的使用，包括波浪数据采集系统和水槽造波机的使用方法。通过自己设计出不同波长、波高的规则及不规则波，参与造波及数据采集的全过程，了解波浪物理模型试验的最基本方法。正确处理实验数据，能通过处理采样数据文件统计各种累积频率波高，发现规律，得出实验结论。分析实验误差，提出减少误差的方法，分析误差的范围。 3、编写实验报告，要求报告能准确反映实验目的、方法、过程和结论。 试验过程 试验中共设置四根波高传感器，四个同学为一组，每人采用其中一根传感器的数据计算波高，规则波采样时间为20s，不规则波采样时间为80s左右。 规则波试验结果主要统计平均波高。波峰减波谷即为波高，将采集到的所有波高进行算术平均，得到规则波的平均波高。不规则波试验结果主要统计有效波高。波峰减波谷即为波高，将采集到的所有波高进行排序，取前1/3大波进行算术平均，得到不规则波的有效波高。 数据处理 本次实验使用fortran90语言编写计算程序，对数据进行处理。 1、规则波 （1）程序编写 !求规则波各通道下平均波高 program main implicit none integer::i,j,k=2000,m=0,n,x real::crest=0,trough=0,middle=0 real,dimension(4,2000)::series=0 integer,dimension(4,100)::zero=0 real,dimension(4,100)::h=0 real,dimension(4)::sum_height=0,average_h=0 integer,dimension(4)::mark=0 open(1,file=DAYU05B.800) do k=1,2000 read(1,(4x,f7.3,3(3x,f7.3)))series(1:4,k) enddo close(1) open(2,file=d:\mirror\one\date.dat) do i=1,4 m=0 do j=1,k-1 if((series(i,j)1e-10).and.(series(i,j+1)1e-10))then m=m+1;zero(i,m)=j end if end do mark(i)=m do x=1,m-1 crest=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-trough end do end do print(1x,a/10i7),15通道上跨零点位置,zero(1,1:mark(1)) print(1x,a/10f8.3),15通道波高,h(1,1:mark(1)-1) print*,--------------------------------------------------------------------- print(1x,a/10i7),4通道上跨零点位置,zero(2,1:ma