资源描述：
《河海大学海岸动力学实验报告.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、海岸动力学实验报告专业年级：姓名：学号：二〇一二年五月中国南京目录实验一：波浪数据采集与波高统计实验…………………………3一、实验目的……………………………………………………3二、实验要求……………………………………………………3三、实验过程……………………………………………………3四、结果分析……………………………………………………4五、实验结论……………………………………………………8实验二：波压力测量实验…………………………………………9一、实验目的……………………………………………………9二、实验要求……………………………………………………9三、实验水文要素……………………
2、…………………………10四、实验仪器……………………………………………………10五、实验过程……………………………………………………10六、结果分析……………………………………………………11七、实验结论……………………………………………………13实验一：波浪数据采集与波高统计实验一、试验目的了解波浪中规则波及不规则波的区别，波浪模型的一般方法，规则波波高、周期、不规则波高的统计方法。二、试验要求试验采用规则波及不规则波进行。1、规则波及不规则波的测量。2、规则波及不规则波特征值的统计。3、试验报告的编写，要求报告能准确的反映试验目的、方法、过程及结论。三、试验过程试验中共设置四根
3、波高传感器，四个同学为一组，每人采用其中一根传感器的数据计算波高，规则波采样时间为20s，不规则波采样时间为80s左右。规则波试验结果主要统计平均波高。波峰减波谷即为波高，将采集到的所有波高进行算术平均，得到规则波的平均波高。不规则波试验结果主要统计有效波高。波峰减波谷即为波高，将采集到的所有波高进行排序，取前1/3大波进行算术平均，得到不规则波的有效波高。四、结果分析：本次实验使用fortran90语言编写计算程序。程序截图（作为运行结果，右为部分算法）具体代码：PROGRAMMAINIMPLICITNONEINTEGER::I=0,I1=0,K=2000,J=0,NUM_MAX
4、=0,NUM=0!考虑K行REAL::MAX=0,MIN=0,SUM_MAX=0,TREAL,DIMENSION(4,2000)::DATA=0!ASSUMINGTHATK=100;DATA(I,J)对应为第I个变量的第J个数据，即数据文件中第J行第I列。数据共2000行INTEGER,DIMENSION(100)::ZERO_POINT=0!ASSUMINGTHATK=100REAL,DIMENSION(4,100)::HEIGHT=0REAL,DIMENSION(4)::SUM_HEIGHT=0OPEN(10,FILE='2A0407_8001.TXT')READ(10,*)D
5、ATACLOSE(10)DONUM=1,4SUM_MAX=0;ZERO_POINT=0;J=0DOI=1,K-1IF(DATA(NUM,I)<1E-8)THENIF(DATA(NUM,I+1)>0)THEN!采用上跨零点法，DATA(3,I)对应零点前最末负值，DATA(3,I+1)对应零点后首个正值J=J+1ZERO_POINT(J)=IIF(J>1)THENMAX=0;MIN=0DOI1=ZERO_POINT(J-1)+1,ZERO_POINT(J)IF(DATA(NUM,I1)>MAX)MAX=DATA(NUM,I1)!找到波峰点IF(DATA(NUM,I1)6、=DATA(NUM,I1)!找到波谷点ENDDOSUM_MAX=SUM_MAX+MAX!NUM_MAX=NUM_MAX+1HEIGHT(NUM,J-1)=MAX-MINENDIFELSEIF(DATA(NUM,I+1)>1E-8)THEN!对于恰好是零点的情况，考虑DATA(NUM,I)*DATA(NUM,I+1)>0，重复上一个IF的循环J=J+1ZERO_POINT(J)=I+1IF(J>1)THENMAX=0;MIN=0DOI1=ZERO_POINT(J-1)+1,ZERO_POINT(J)IF(DATA(NUM,I1)>MAX)MAX=DATA(NUM,I1)!找到波峰点I
7、F(DATA(NUM,I1)
