【正文】 。 5. 工程竣工。同期，首批發(fā)電機(jī)組必須安裝完備，開(kāi)關(guān)站、高壓輸電工程等必須完工。 4. 初期發(fā)電。同期，上游移民、庫(kù)區(qū)清理，工程設(shè)備拆遷；水電站工程基本完工，包括引水隧洞、調(diào)壓室、廠房、副廠房以及部分機(jī)電設(shè)備安裝工程。 2021 年 4 月須完成主體工程即Ⅱ期壩體至 ，與溢洪道堰頂齊平。在 2021 年 5 月 1 日開(kāi)始攔洪擋水。與此同時(shí)，填筑上游圍堰殼體及粘土斜墻。 擬定 2021 年 10 月下旬至 11 月上旬截流合龍，具體時(shí)間屆時(shí)決定。隧洞工程完工在截流前 1 月時(shí)間，導(dǎo)流時(shí)混凝土襯砌已具有 28d 強(qiáng)度。混凝土襯砌可落后于開(kāi)挖日期 2 天時(shí)間，預(yù)計(jì)完工在 2021 年 9 月。 擬定 2021 年 3 月 1 日開(kāi)工，用 9 至 10 個(gè)月時(shí)間完成壩頭清理工作、隧洞和鋪蓋工程。施工程 序如次。 工程擬定 2021 年開(kāi)工，初定工期 4 年， 2021 年全部竣工。所以度汛是安全的。上游圍堰與壩體結(jié)合，以節(jié)省費(fèi)用。按照 20 年一遇的洪水設(shè)計(jì)。本設(shè)計(jì)中沖坑離鼻坎邊界的挑距 L = m,L/tr =，滿(mǎn)足設(shè)計(jì)要求。 計(jì)算得出最大沖刷坑深度為 tr =。對(duì)于堅(jiān)硬巖石取 Kr=～ ；堅(jiān)硬但不完整巖石Kr =～ ；軟弱破碎的巖石 Kr=～ 。cosα ； h2—— 坎頂至河床表面高差； g—— 重力加速度。擴(kuò)散段布置見(jiàn)圖 71。為防止高速水流脫離邊壁而發(fā)生空蝕，擴(kuò)散角不宜過(guò)大。摻氣后的水深按以下公式計(jì)算： Ha = h+△ h △ h=khgRv2 式中： V、 R—— 為不計(jì)摻氣時(shí)斷面的平均流速和水力半徑； Ha—— 考慮摻氣后的水深。 第七章 泄水建筑物的計(jì)算 （以堰頂為坐標(biāo)原點(diǎn)） 采用 WES 型堰面曲線(xiàn) ,壩面鉛直，方程為： 2 dHxy ? 其中 Hd= m 上游連接段采用三圓弧法： 水利水電工程專(zhuān)業(yè)畢業(yè)設(shè)計(jì) 01 級(jí)水工三班 30 – 熊翰文 R1== b1= Hd= R2== b2= Hd= R3== b3== 隧洞的水力計(jì)算 平洞底坡的確定： 3 23 2 ?? gqhc ? = cccc BCgi ?? 2? 611RnCc? 其中 糙率 n = q =80 m3/s c? = A= cC = ci = 設(shè)計(jì)平洞底坡為陡坡，取 ci =。 護(hù)坡設(shè)計(jì) 本工程采用開(kāi)挖出的石料作為上游護(hù)坡材料，砌石護(hù)坡在最大浪壓力下所需要的球形直徑和質(zhì)量，平均粒徑平均質(zhì)量和厚度的計(jì)算 pwt wt hmmmKDD )1( 250 ????? ?? ? 其中 m =，取 tK =， ph 累計(jì)頻率 5%的波高。 壩殼與棱體排水，以及地基與棱體排水之間的反濾層的設(shè)計(jì) 反濾層所保護(hù)的為無(wú)粘性土，不均勻系數(shù)為 uC =? 8， 5mm 的含量為46%? 40%，按規(guī)范要求取 5mm以下的細(xì)顆粒（滿(mǎn)足 uC ? 5）的 85d ， 15d 作為計(jì)算粒徑。 由濾土要求： 15D ? 由排水要求： 15D ?4 15d ，且要滿(mǎn)足 15D ? 求出其上下包線(xiàn)如下表 61 表 61 反濾層上下包線(xiàn) 最大 D 10D = 15D = 60D =3 90D =20 最小 D 0D = 10D = 15D = 60D = 水利水電工程專(zhuān)業(yè)畢業(yè)設(shè)計(jì) 01 級(jí)水工三班 28 – 熊翰文 圖 61 反濾層上下包線(xiàn)及反濾層級(jí)配曲線(xiàn) 第一層反濾層與壩殼之間： 8515dD = ?? ??dD 不滿(mǎn)足反濾要求，還需要設(shè)置二層反濾層。版權(quán)所有 End Sub 第六章 細(xì)部結(jié)構(gòu)計(jì)算 反濾層的設(shè)計(jì)要滿(mǎn)足兩個(gè)條件：（ 1）濾土要求；（ 2）排水要求。計(jì)算面積 Dim q As Single If a1 + b1 c1 And b1 + c1 a1 And a1 + c1 b1 Then q = (a1 + b1 + c1) / 2 w = Sqr(q * (q a1) * (q b1) * (q c1)) s1 = w End If End Sub Private Sub Command2_Click() 39。B i3 = i33: j3 = j33 39。任意四點(diǎn)的面積 s = s1 x = Sqr((i11 i44) ^ 2 + (j11 j44) ^ 2) y = Sqr((i11 ) ^ 2 + (j11 123) ^ 2) z = Sqr(( i44) ^ 2 + (123 j44) ^ 2) Call area(x, y, z, s1) s = s + s1 G1 = s * r1 x = Sqr((i22 i44) ^ 2 + (j22 j44) ^ 2) y = Sqr((i33 i44) ^ 2 + (j33 j44) ^ 2) z = Sqr((i22 i33) ^ 2 + (j22 j33) ^ 2) Call area(x, y, z, s1) s = s1 G2 = s * r1 l = Atn((j22 j33) / (i22 i33)) m = Atn((j11 j22) / (i11 i22)) For k = 1 To 3 Step n = Atn(Tan( * / 180) / k) 水利水電工程專(zhuān)業(yè)畢業(yè)設(shè)計(jì) 01 級(jí)水工三班 26 – 熊翰文 If G1 / G2 * (1 / Tan(n l)) (1 / Tan(m n)) (1 + G1 / G2) * Tan(n) And G1 / G2 * (1 / Tan(n l)) (1 / Tan(m n)) (1 + G1 / G2) * Tan(n) And kmin k Then kmin = k i1 = i11: j1 = j11 39。判斷 土石壩 斜心墻 01 級(jí)水工三班 25 熊翰文 j33 = j33 + 2 If j33 = 200 Then GoTo 2 End If End If i44 = i22 j44 = (i22 ) / + 123 ReDim A(i11, j11) ReDim B(i22, j22) ReDim C(i33, j33) ReDim D(i44, j44) 39。C Exit For End If Next k Next j22 Next i22 Next i11 = Str(kmin) End If End If If = 0 Then 39。A i2 = i22: j2 = j22 39。任意四點(diǎn)的面積 s = s1 x = Sqr((i11 i44) ^ 2 + (j11 j44) ^ 2) y = Sqr((i11 ) ^ 2 + (j11 123) ^ 2) z = Sqr(( i44) ^ 2 + (123 j44) ^ 2) Call area(x, y, z, s1) s = s + s1 G1 = s * r1 39。判斷 土石壩 斜心墻 01 級(jí)水工三班 23 熊翰文 j33 = j33 + 2 If j33 = 200 Then GoTo 1 End If End If i44 = i22 j44 = ( i22) / 3 + 123 ReDim A(i11, j11) ReDim B(i22, j22) ReDim C(i33, j33) ReDim D(i44, j44) 39。浮容重 kmin = 3 If = 0 Then 39。工況定義 Dim temp As Integer If = 2 Then If = 1 Then temp = MsgBox(該種工況只計(jì)算上游壩坡！ , 48 + vbOKOnly, 穩(wěn)定計(jì)算 ) = End If End If End Sub Private Sub Command1_Click() r1 = 39。邊長(zhǎng) Dim fn1 As Single, fn2 As Si