河海大学海岸动力学实验报告..doc

海岸动力学实验报告 专业年级： 姓 名： 学 号： 二〇一二年五月 中国 南京 目录 实验一：波浪数据采集与波高统计实验…………………………3 一、实验目的……………………………………………………3 二、实验要求……………………………………………………3 三、实验过程……………………………………………………3 四、结果分析……………………………………………………4 五、实验结论……………………………………………………8 实验二：波压力测量实验…………………………………………9 一、实验目的……………………………………………………9 二、实验要求……………………………………………………9 三、实验水文要素………………………………………………10 四、实验仪器……………………………………………………10 五、实验过程……………………………………………………10 六、结果分析……………………………………………………11 七、实验结论……………………………………………………13 实验一：波浪数据采集与波高统计实验 一、试验目的 了解波浪中规则波及不规则波的区别，波浪模型的一般方法，规则波波高、周期、不规则波高的统计方法。 二、试验要求 试验采用规则波及不规则波进行。 1、规则波及不规则波的测量。 2、规则波及不规则波特征值的统计。 3、试验报告的编写，要求报告能准确的反映试验目的、方法、过程及结论。 三、试验过程 试验中共设置四根波高传感器，四个同学为一组，每人采用其中一根传感器的数据计算波高，规则波采样时间为20s，不规则波采样时间为80s左右。 规则波试验结果主要统计平均波高。波峰减波谷即为波高，将采集到的所有波高进行算术平均，得到规则波的平均波高。不规则波试验结果主要统计有效波高。波峰减波谷即为波高，将采集到的所有波高进行排序，取前1/3大波进行算术平均，得到不规则波的有效波高。 四、结果分析： 本次实验使用fortran90语言编写计算程序。 程序截图（作为运行结果，右为部分算法） 具体代码： PROGRAM MAIN IMPLICIT NONE INTEGER::I=0,I1=0,K=2000,J=0,NUM_MAX=0,NUM=0 !考虑K行 REAL::MAX=0,MIN=0,SUM_MAX=0,T REAL,DIMENSION(4,2000)::DATA=0 !ASSUMING THAT K=100; DATA(I,J)对应为第I个变量的第J个数据，即数据文件中第J行第I列。数据共2000行 INTEGER,DIMENSION(100)::ZERO_POINT=0 !ASSUMING THAT K=100 REAL,DIMENSION(4,100)::HEIGHT=0 REAL,DIMENSION(4)::SUM_HEIGHT=0 OPEN(10,FILE=2A0407_8001.TXT) READ(10,*) DATA CLOSE(10) DO NUM=1,4 SUM_MAX=0;ZERO_POINT=0;J=0 DO I=1,K-1 IF(DATA(NUM,I)1E-8) THEN IF(DATA(NUM,I+1)0) THEN !采用上跨零点法，DATA(3,I)对应零点前最末负值，DATA(3,I+1)对应零点后首个正值 J=J+1 ZERO_POINT(J)=I IF(J1) THEN MAX=0;MIN=0 DO I1=ZERO_POINT(J-1)+1,ZERO_POINT(J) IF(DATA(NUM,I1)MAX) MAX=DATA(NUM,I1) !找到波峰点 IF(DATA(NUM,I1)MIN) MIN=DATA(NUM,I1) !找到波谷点 ENDDO SUM_MAX=SUM_MAX+MAX ! NUM_MAX=NUM_MAX+1 HEIGHT(NUM,J-1)=MAX-MIN ENDIF ELSEIF(DATA(NUM,I+1)1E-8)THEN !对于恰好是零点的情况，考虑DATA(NUM,I)*DATA(NUM,I+1)0，重复上一个IF的循环 J=J+1 ZERO_POINT(J)=I+1 IF(J1) THEN MAX=0;MIN=0 DO I1=ZERO_POINT(J-1)+1,ZERO_POINT(J) IF(DATA(NUM,I1)MAX) MAX