亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        VB 6.0在塊石穩(wěn)定性計(jì)算中的應(yīng)用

        2019-10-31 07:00:03張萬(wàn)威孟艷秋徐宇航
        電腦知識(shí)與技術(shù) 2019年22期

        張萬(wàn)威 孟艷秋 徐宇航

        摘要:利用VB6.0編程計(jì)算和對(duì)數(shù)據(jù)自動(dòng)處理,編制了一套塊石穩(wěn)定性計(jì)算的通用軟件,計(jì)算結(jié)果可以直接顯示在界面上。該計(jì)算軟件能夠準(zhǔn)確、合理的確定采用塊石作為護(hù)面的海堤穩(wěn)定性,具有計(jì)算準(zhǔn)確、操作性強(qiáng)等優(yōu)點(diǎn),適用于各種采用塊石作為護(hù)面層的穩(wěn)定性計(jì)算。

        關(guān)鍵詞:VB;塊石穩(wěn)定性;護(hù)面結(jié)構(gòu)

        中圖分類(lèi)號(hào):TP311? ? ? 文獻(xiàn)標(biāo)識(shí)碼:A

        文章編號(hào):1009-3044(2019)22-0274-04

        開(kāi)放科學(xué)(資源服務(wù))標(biāo)識(shí)碼(OSID):

        Application of VB 6.0 in Stability Calculation of Block Stone

        ZHNAG Wan-wei, MENG Yan-qiu, XU Yu-hang

        (College of Harbour, Coastal and Offshore Engineering, Hohai University, Nanjing 210098, China)

        Abstract: Using VB6.0 programming calculation and automatic data processing, compiled a set of stone stability calculation of the general software, calculation results can be directly displayed on the interface. The calculation software can accurately and reasonably determine the stability of the seawall with block stone as the protective surface, which has the advantages of accurate calculation and strong operability, and is applicable to the calculation of the stability of the various types of the protective surface with block stone.

        Key words: VB; stability of block and stone; protective structure

        1 背景

        塊石具有經(jīng)濟(jì)性好,結(jié)構(gòu)簡(jiǎn)單,易于建造,破壞后容易修復(fù)的特點(diǎn),因此是常用的海堤護(hù)面結(jié)構(gòu)之一。在能夠開(kāi)采到大塊石的地區(qū),用天然塊石作護(hù)面通常是較經(jīng)濟(jì)的方案。國(guó)內(nèi)外學(xué)者對(duì)塊石護(hù)面穩(wěn)定性進(jìn)行了大量的研究,并取得了許多成果,但是由于波浪與斜坡堤結(jié)構(gòu)相互作用影響因素的多樣性、復(fù)雜性以及試驗(yàn)條件等限制,各家的研究成果都有自己的局限性和適用條件,在實(shí)際應(yīng)用時(shí)數(shù)據(jù)計(jì)算處理較為復(fù)雜,工程人員在計(jì)算時(shí)容易將不同公式混用或者不在公式適用條件內(nèi)使用公式,如果采用計(jì)算機(jī)程序設(shè)計(jì),只要把相關(guān)的數(shù)據(jù)帶入程序中,程序直接準(zhǔn)確地計(jì)算出結(jié)果,計(jì)算結(jié)果精確可靠。

        本文通過(guò)多方查找資料整合出一套塊石穩(wěn)定性計(jì)算公式,利用VB6.0編程計(jì)算和對(duì)數(shù)據(jù)自動(dòng)處理,編制了一套塊石穩(wěn)定性計(jì)算的軟件。

        2 軟件功能及說(shuō)明

        2.1 軟件功能

        本計(jì)算軟件能根據(jù)海堤斷面尺寸、海堤斷面粗糙程度、滲透系數(shù)、波浪要素及潮位等因素分別確定前坡塊石名義直徑、堤頂塊石名義直徑、后坡塊石名義直徑、堤腳塊石名義直徑。

        2.2 軟件說(shuō)明

        根據(jù)文獻(xiàn)整理可得,塊石護(hù)面結(jié)構(gòu)的穩(wěn)定性從四個(gè)結(jié)構(gòu)部分考慮,分別為前坡塊石穩(wěn)定性、堤頂塊石穩(wěn)定性、后坡塊石穩(wěn)定性、堤腳塊石穩(wěn)定性。通過(guò)資料整理和物理模型試驗(yàn)研究整理出一套塊石穩(wěn)定性計(jì)算公式,本計(jì)算軟件基于這套計(jì)算公式進(jìn)行編程。

        前坡塊石護(hù)面穩(wěn)定性計(jì)算方法-Van der Meer[1-2]公式如下:

        1)不越浪,堤前水深3

        其中

        2)不越浪,堤前水深h/Hs-toe<3

        其中:

        對(duì)于低堤頂結(jié)構(gòu)前坡塊石穩(wěn)定重量的確定,首先根據(jù)水深判斷,用公式(1)-(9)計(jì)算得到不越浪條件下前坡塊石穩(wěn)定重量,在此重量基礎(chǔ)上乘以折減系數(shù)rD就可以得到低堤頂結(jié)構(gòu)前坡塊石穩(wěn)定重量。

        以上是前坡塊石護(hù)面穩(wěn)定性計(jì)算公式,其他結(jié)構(gòu)部分塊石護(hù)面穩(wěn)定性計(jì)算公式由于篇幅原因不在此處全部展示。這一套計(jì)算公式較好的考慮了不同波浪情況下的各個(gè)結(jié)構(gòu)的塊石穩(wěn)定性,但是適用限制條件較多,其中參數(shù)計(jì)算較為煩瑣,如果逐一計(jì)算其中參數(shù),不但增大工作量且而且不能保證計(jì)算結(jié)果的準(zhǔn)確性,所以在此基礎(chǔ)上,我們選擇簡(jiǎn)單易用、快捷方便的vb6.0語(yǔ)言來(lái)編寫(xiě)程序計(jì)算。

        2.3 軟件界面

        軟件主界面如圖1,界面上半部分為數(shù)據(jù)輸入,按照規(guī)定輸入數(shù)據(jù),界面右下方框架“計(jì)算結(jié)果”顯示輸出結(jié)果,顯示前坡塊石名義直徑,堤頂塊石名義直徑,后坡塊石名義直徑,堤腳塊石名義直徑。軟件設(shè)計(jì)有4個(gè)功能按鈕:計(jì)算、清空、計(jì)算示例、計(jì)算公式圖解。點(diǎn)擊計(jì)算,即進(jìn)行軟件自動(dòng)計(jì)算,界面顯示計(jì)算成果。點(diǎn)擊清空,界面上所有的text值為空。點(diǎn)擊計(jì)算示例,會(huì)出現(xiàn)計(jì)算參考值。點(diǎn)擊計(jì)算公式圖解,會(huì)出現(xiàn)計(jì)算圖示。

        3 計(jì)算步驟

        下面以圖1和表1中參數(shù)為例,用軟件說(shuō)明塊石穩(wěn)定性計(jì)算的方法。

        3.1 輸入數(shù)據(jù)

        首先,在界面上按照要求依次輸入各計(jì)算參數(shù),然后點(diǎn)擊計(jì)算,軟件先給一個(gè)判斷,如果各個(gè)參數(shù)有一個(gè)輸入不符合要求,則相應(yīng)的軟件計(jì)算結(jié)果會(huì)顯示為0。輸入正確后,軟件自進(jìn)行計(jì)算。

        3.2 計(jì)算原理

        本軟件的計(jì)算原理是條件篩選法,按照給定的條件,軟件進(jìn)行判斷是哪一個(gè)情況,每一種情況對(duì)應(yīng)的塊石穩(wěn)定性計(jì)算公式不同。

        具體過(guò)程實(shí)現(xiàn)的部分代碼如下[3][4][5][6]:

        If d/hs>3 Then

        If m>1.2 And m<6 And n<7500 And hs/lp<0.06 And hs/lp>0.004 And p1>0.7 And p1<11.3 And b>1 And b<2.1 And pv>0.1 And pv<0.6 And sd1/Sqr(n)<0.9 And sd1<25 Then

        If p1>p2 Then

        dn1=hs/((6.2*b*(pv^(0.18))*(p1^(-0.5))*(sd1/Sqr(n))^(0.2)))

        Else

        dn1=hs/(1*b*(pv^(-0.13))*(p1^(pv))*Sqr(m)*(sd1/Sqr(n))^(0.2))

        End If

        End If

        If d/hs<3 Then

        If m>1.2 And m<4 And n<3000 And hs/lp>0.004 And hs/lp<0.06 And p1>1 And p1<5 And p3>1.3 And p3<6.5 And h2/hs>1.2 And h2/hs<1.4 And hs/d>0.25 And hs/d<1.5 And sd1<30 Then

        If p3

        dn1=h2/(8.4*b*(pv^(0.18))*(p3^(-0.5))*((sd1/Sqr(n))^(0.2)))

        Else

        dn1=h2/(1.3*b*(pv^(-0.13))*Sqr(m)*(p3^(pv))*((sd1/Sqr(n))^(0.2))

        End If

        End If

        If rc/hs*Sqr(sop/(2*3.1415926))>0Andrc/hs*Sqr(sop/(2*3.1415926))<0.052 Then

        dn1=rd*dn1

        End If

        Text10.Text=Str(dn1)

        If Abs(Val(Text10.Text))<1 And Abs(Val(Text10.Text))>0 Then Text10.Text=IIf(Sgn(Val(Text10.Text))=1,"","-")&"0"&Abs(Val(Text10.Text))

        Else

        Text10.Text=Str(dn1)

        End If

        If m>1.25 Then

        If p4<1.4 Then

        r0=1.6*p4

        Else

        r0=2.68-0.7*1/Sqr(p4)

        End If

        Else

        r0=1.24*Sqr(1.5*m*m+1)

        End If

        ru=r0*h1

        u1=(Sqr(9.81*hs)*1.7*((rfc)^(0.5))*(((ru-rc)/(rf*hs))^(0.5)))/(1+0.1*bc/hs)

        If rc/hs>0.3 And rc/hs<2 And rcr/hs>0.3 And rcr/hs<6 And n<4000 And(2*3.1415926*hs/(9.81*t0*t0))>0.019 And(2*3.1415926*hs/(9.81*t0*t0))<0.036 Then

        dn2=0.0021*((sd2/Sqr(n))^(-1/1.8))*(u1*t0/b^(0.5))*(1+10*Exp(-rcr/hs))^(1/6)

        End If

        Text11.Text=Str(dn2)

        If Abs(Val(Text11.Text))<1 And Abs(Val(Text11.Text))>0 Then Text11.Text=IIf(Sgn(Val(Text11.Text))=1,"","-")&"0"&Abs(Val(Text11.Text))

        End If

        If rc/hs>0.3 And rc/hs<2 And rcr/hs>0.3 And rcr/hs<6 And n<4000 And(2*3.1415926*hs/(9.81*t0*t0))>0.019 And(2*3.1415926*hs/(9.81*t0*t0))<0.036 And bc/hs>1.3 And bc/hs<1.6 And sd3>2 And sd3<3 And m>1.2 And m<4 Then

        dn3=0.0027*((sd3/Sqr(n))^(-1/2.96))*(u1*t0/(b^(0.5)))*((m1)^(-0.25))*(1+10*Exp(-rcr/hs))^(1/6)

        End If

        Text25.Text=Str(dn3)

        If Abs(Val(Text25.Text))<1 And Abs(Val(Text25.Text))>0 Then Text25.Text=IIf(Sgn(Val(Text25.Text))=1,"","-")&"0"&Abs(Val(Text25.Text))

        s0=2*3.1415926*hs/(9.81*t0*t0)

        p0=(1/m)/(s0^(0.5))

        If ht/d>0.7 And ht/d<0.9 And ht/hs>1.2 And ht/hs<4.5 And s0>0.016 And s0<0.05 And p1>1 And p1<5 And p3>2.4 And p3<4.5 And sd4<7.3 And bt/hs>0.17 And bt/hs<4.4 And tt/hs>0.12 And tt/hs<1.19 Then

        dn4=0.32*(hs/(b*sd4^(1/3)))*((tt/hs)^(1/3))*((bt/hs)^(0.1))*(us/Sqr(9.81*hs))^(1/3)

        End If

        Text26.Text=Str(dn4)

        If Abs(Val(Text26.Text))<1 And Abs(Val(Text26.Text))>0 Then Text26.Text=IIf(Sgn(Val(Text26.Text))=1,"","-")&"0"&Abs(Val(Text26.Text))

        End Sub

        3.3 計(jì)算結(jié)果

        計(jì)算結(jié)果直接顯示在界面的計(jì)算結(jié)果界面,前坡、堤頂、后坡、堤腳塊石名義直徑Dn50直接在界面的text中顯示(見(jiàn)圖1)[7]。經(jīng)驗(yàn)證,程序運(yùn)行穩(wěn)定,計(jì)算速度快,計(jì)算結(jié)果可靠。

        4 結(jié)束語(yǔ)

        本文從多個(gè)方面介紹了一款塊石穩(wěn)定性計(jì)算軟件,該計(jì)算軟件能夠準(zhǔn)確、合理地確定采用塊石作為護(hù)面的海堤穩(wěn)定性,具有計(jì)算準(zhǔn)確、操作性強(qiáng)等優(yōu)點(diǎn),適用于各種采用塊石作為護(hù)面層的穩(wěn)定性計(jì)算。

        參考文獻(xiàn):

        [1] Van der Meer J W. Rock slopes and gravel beaches under wave attac[D]. Delft University of Technology, Delft, 1988.

        [2] Van Gent M R A, Smale A J, Kuiper C. Stability of rock slopes with shallow foreshores, ASCE, Proc. Coastal Structures, 2003.

        [3] 陳國(guó)平. 波浪爬高及越浪量研究[D]. 南京: 河海大學(xué), 2008.

        [4] van Gent M R A, Pozueta B. Rear-side stability of rubble mound structures.

        In Coastal Engineering Conference. ASCE American Society of Civil Engineers, 2004, 29(4)..

        [5] Van der Meer J W. Wave run-up and overtopping[M]. Chapter 8 in Dikes and revetments, design, maintenance and safety assessment. Ed. K. W. Pilarczyk, A. A. Balkema, Rotterdam, Brookfield, 1998.

        [6] Van Gent M R, Der Werf I V. Rock toe stability of rubble mound breakwaters[J]. Coastal Engineering, 2014: 166-176.

        [7] 范立柱. VB6.0在渠道設(shè)計(jì)水力計(jì)算中的應(yīng)用[J]. 廣東水利水電, 2009(3): 49-51.

        【通聯(lián)編輯:謝媛媛】

        久久精品国产亚洲av无码偷窥| 老司机在线免费视频亚洲| 亚洲一级毛片免费在线观看| 深夜国产成人福利在线观看女同| 亚洲国产成人资源在线桃色| 国产激情视频免费观看| 国产一区二区三区白浆肉丝| 日本精品免费看99久久| 亚洲国产亚综合在线区 | 粗大的内捧猛烈进出小视频| 免费1级做爰片1000部视频 | 久久久99精品免费视频| 丰满少妇人妻无码专区| 免费特级毛片| 狠狠色狠狠色综合久久第一次| 天天狠天天透天干天天| 狠狠亚洲婷婷综合久久久| 搞黄色很刺激的网站二区| 那有一级内射黄片可以免费看| 国产精品国产三级国产av品爱网| 99精品国产在热久久| 亚洲国产一区二区三区亚瑟| 久热香蕉精品视频在线播放| 91精品人妻一区二区三区蜜臀| 麻豆成人久久精品二区三区免费| 亚洲色图三级在线观看| 国产动作大片中文字幕| 日本成本人三级在线观看| 99国产免费热播视频| 北岛玲精品一区二区三区| 一区二区三区国产天堂| 亚洲成av人片不卡无码| 国内精品卡一卡二卡三| 伊伊人成亚洲综合人网7777 | 在线观看av永久免费| 一本大道久久东京热无码av| 国产精品综合色区av| 久久99精品综合国产女同| 日本孕妇潮喷高潮视频| 夜夜欢性恔免费视频| 国产精品主播视频|