資源描述：
《河海大學(xué)海岸動(dòng)力學(xué)實(shí)驗(yàn)報(bào)告.doc》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫(kù)。
1、海岸動(dòng)力學(xué)實(shí)驗(yàn)報(bào)告專(zhuān)業(yè)年級(jí)：姓名：學(xué)號(hào)：二〇一二年五月中國(guó)南京目錄實(shí)驗(yàn)一：波浪數(shù)據(jù)采集與波高統(tǒng)計(jì)實(shí)驗(yàn)…………………………3一、實(shí)驗(yàn)?zāi)康摹?二、實(shí)驗(yàn)要求……………………………………………………3三、實(shí)驗(yàn)過(guò)程……………………………………………………3四、結(jié)果分析……………………………………………………4五、實(shí)驗(yàn)結(jié)論……………………………………………………8實(shí)驗(yàn)二：波壓力測(cè)量實(shí)驗(yàn)…………………………………………9一、實(shí)驗(yàn)?zāi)康摹?二、實(shí)驗(yàn)要求……………………………………………………9三、實(shí)驗(yàn)水文要素……………………
2、…………………………10四、實(shí)驗(yàn)儀器……………………………………………………10五、實(shí)驗(yàn)過(guò)程……………………………………………………10六、結(jié)果分析……………………………………………………11七、實(shí)驗(yàn)結(jié)論……………………………………………………13實(shí)驗(yàn)一：波浪數(shù)據(jù)采集與波高統(tǒng)計(jì)實(shí)驗(yàn)一、試驗(yàn)?zāi)康牧私獠ɡ酥幸?guī)則波及不規(guī)則波的區(qū)別，波浪模型的一般方法，規(guī)則波波高、周期、不規(guī)則波高的統(tǒng)計(jì)方法。二、試驗(yàn)要求試驗(yàn)采用規(guī)則波及不規(guī)則波進(jìn)行。1、規(guī)則波及不規(guī)則波的測(cè)量。2、規(guī)則波及不規(guī)則波特征值的統(tǒng)計(jì)。3、試驗(yàn)報(bào)告的編寫(xiě)，要求報(bào)告能準(zhǔn)確的反映試驗(yàn)?zāi)康?、方法、過(guò)程及結(jié)論。三、試驗(yàn)過(guò)程試驗(yàn)中共設(shè)置四根
3、波高傳感器，四個(gè)同學(xué)為一組，每人采用其中一根傳感器的數(shù)據(jù)計(jì)算波高，規(guī)則波采樣時(shí)間為20s，不規(guī)則波采樣時(shí)間為80s左右。規(guī)則波試驗(yàn)結(jié)果主要統(tǒng)計(jì)平均波高。波峰減波谷即為波高，將采集到的所有波高進(jìn)行算術(shù)平均，得到規(guī)則波的平均波高。不規(guī)則波試驗(yàn)結(jié)果主要統(tǒng)計(jì)有效波高。波峰減波谷即為波高，將采集到的所有波高進(jìn)行排序，取前1/3大波進(jìn)行算術(shù)平均，得到不規(guī)則波的有效波高。四、結(jié)果分析：本次實(shí)驗(yàn)使用fortran90語(yǔ)言編寫(xiě)計(jì)算程序。程序截圖（作為運(yùn)行結(jié)果，右為部分算法）具體代碼：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)對(duì)應(yīng)為第I個(gè)變量的第J個(gè)數(shù)據(jù)，即數(shù)據(jù)文件中第J行第I列。數(shù)據(jù)共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!采用上跨零點(diǎn)法，DATA(3,I)對(duì)應(yīng)零點(diǎn)前最末負(fù)值，DATA(3,I+1)對(duì)應(yīng)零點(diǎn)后首個(gè)正值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)!找到波峰點(diǎn)IF(DATA(NUM,I1)6、=DATA(NUM,I1)!找到波谷點(diǎn)ENDDOSUM_MAX=SUM_MAX+MAX!NUM_MAX=NUM_MAX+1HEIGHT(NUM,J-1)=MAX-MINENDIFELSEIF(DATA(NUM,I+1)>1E-8)THEN!對(duì)于恰好是零點(diǎn)的情況，考慮DATA(NUM,I)*DATA(NUM,I+1)>0，重復(fù)上一個(gè)IF的循環(huán)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)!找到波峰點(diǎn)I
7、F(DATA(NUM,I1)
