【文章內(nèi)容簡介】 管內(nèi)溫度梯度小于地層地溫梯度。所以油管內(nèi)液體隨著流體的不斷向上流動溫度降低速率小于地層溫度降低速率，管內(nèi)溫度與地層溫度差在井底處為0，并隨著井深的減小不斷增加，管內(nèi)流體與地層的傳熱量逐漸增加，所以管內(nèi)流體溫度降低的速率逐漸增大，即表現(xiàn)為井溫分布曲線圖中隨著井深增加，曲線斜率逐漸減小，并在接近井底處曲線斜率趨近于零。（3）混合物平均密度——井深曲線：圖543 密度井深曲線 由密度——井深曲線可知，當井深小于1000m時，密度隨著井深的增加而增加，當井深大于1000m時，混合物的平均密度變化幅度比較小。由壓力與深度曲線可知，隨著井深增加管內(nèi)壓力增大。井深小于1000m時，隨著井深增加，溶解油氣比逐漸增加，直至等于生產(chǎn)油氣比，即天然氣全部溶于原油中。而氣液混合物平均密度（其中 為原油密度，為天然氣在標況下的密度， 為水的密度，Rp為生產(chǎn)油氣比，Rs為溶解油氣比，Bo為原油體積系數(shù)， Vw為水油比），可知隨著井深增大，（(RpRs）逐漸減小，混合物平均密度隨之增大，即表現(xiàn)為密度曲線圖中斜率逐漸增大。井深達到1000m時，隨著井深增加，溶解油氣比不再發(fā)生變化，恒等于生產(chǎn)油氣比。這時由氣液混合物平均密度公式可知氣液混合物平均密度只與生產(chǎn)油氣比有關(guān)，而生產(chǎn)油氣比隨井深增加變化不大，所以混合物平均密度隨井深增加變化不大，即表現(xiàn)為混合物平均密度曲線中曲線斜率變化較小。結(jié)束語 進入卓越工們程師班，我覺得收獲頗多。在這三周里，雖然比較辛苦，但是我學到了許許多多課堂上學不到的東西。首先，我在C語言的基礎上，有學習了一種新的語言，經(jīng)過使用這兩種語言，發(fā)現(xiàn)它們各有特色，C語言由于指針的存在而特別靈活，但是VB卻有比較好的界面，更方便我們編制小軟件，通俗易懂。另外，VB看似簡單，但是有許多技巧可言，在這幾周里，在張文老師的指導下，學到了非常多的知識，實際在編寫代碼和運行程序的過程中會出現(xiàn)各種各樣的問題，需要把各個窗體、模塊聯(lián)系起來，稍有差錯，就不會得到正確的結(jié)果。此外，在張老師的指導下，學會了導出數(shù)據(jù)、畫圖表，雖然說EXCEL可能也會做成這些事，但是，它又有自己獨特的功能。通過這次課程設計，對我來說是一次能力的提升，綜合的挑戰(zhàn)。 與此同時，我也掌握了相關(guān)的主要內(nèi)容，如：油氣物性參數(shù)的計算、能量方程的推導、按深度增量迭代的步驟方法等等。切實體會到了把課堂所學的知識應用于實際資料來解決實際問題，從而把理論與實踐有機結(jié)合起來。在這一段時間里，同學之間也是不斷探討、搜集相關(guān)信息、上網(wǎng)查閱資料，經(jīng)歷一翻波折終于完成了這次課程設計。 但是在本次課程設計中我也暴露出來了一些問題，比如說VB使用還不夠靈活，這也許是自己剛剛接觸VB，練得還是不夠的緣故。最后，真誠地感謝張文老師以及所有對同學們的知道，在今后的學習生活中，我一定會更加注重專業(yè)素養(yǎng)的提高，為祖國石油事業(yè)貢獻自己的力量。參考文獻[1] 王鴻勛，張琪. 采油工藝原理[M]. 石油工業(yè)出版社，北京，2000，7485.[2] 衣治安，吳雅娟主編. 實用計算機基礎教程[M]. 石油工業(yè)出版社，2002.[3] 陳濤平等. 石油工程[M]. 石油工業(yè)出版社，2000.[4] 蔣加伏， Basic程序設計教程. 北京郵電大學出版社，2009.附錄程序內(nèi)容：（1） . 模塊中的程序：Public jinghao As String 39。井號Public H As Single 39。井深Public d As Single 39。油管內(nèi)徑Public Pwh As Single 39。油壓Public qo As Single 39。日產(chǎn)油量Public qg As Single 39。日產(chǎn)氣量Public miduo As Single 39。地面脫氣原油密度Public midug As Single 39。天然氣密度Public miduw As Single 39。水密度Public miduor As Single 39。地面脫氣原油相對密度Public midugr As Single 39。天然氣相對密度Public miduwr As Single 39。水相對密度Public WO As Single 39。水油比Public gt As Single 39。井口溫度Public gr As Single 39。地溫梯度Public gC As Single 39。傳熱系數(shù)Public Pb As Single 39。飽和壓力Public Co As Single 39。原油比熱Public Cw As Single 39。地層水比熱Public Cg As Single 39。天然氣比熱Public Flag As Integer 39。天然氣分類 富氣賦值為1 貧氣賦值為0Public fw As Single 39。含水率 不變量在調(diào)用時需賦值Public Wt As Single 39。1m3地面脫氣原油同時產(chǎn)出的油、水、氣混合物的總質(zhì)量 Kg/m3Public Vt As Single 39。井筒條件下產(chǎn)出Wt油氣水混合物所對應的體積Public dgr689 As Single 39。Public tpb As Single 39。飽合壓力對應的溫度Public p0 As Single 39。標準狀態(tài)下壓力KPa 常量在調(diào)用時需賦值Public gd0 As Single 39?？諝饷芏菿g/m3 常量在調(diào)用時需賦值Public t0 As Single 39。標準狀態(tài)下溫度℃ 常量在調(diào)用時需賦值Public g As Single 39。重力加速度m/s2 常量在調(diào)用時需賦值Public Rp As Single 39。生產(chǎn)油氣比 不變量在調(diào)用時需賦值Public AP As Single 39。油管截面積m2 不變量在調(diào)用時需賦值Public NN As Single 39。計算點的個數(shù)39。數(shù)組的定義Public SHUZUH(2000) As Single 39。計算點深度mPublic SHUZUP(2000) As Single 39。計算點壓力MPaPublic SHUZUT(2000) As Single 39。計算點溫度℃Public SHUZUd(2000) As Single 39。計算點混合物平均密度Kg/m3Public SHUZUuo(2000) As Single 39。計算點原油粘度mPasPublic SHUZURs(2000) As Single 39。計算溶解油氣比Public SHUZUBo(2000) As Single 39。計算點原油體積系數(shù)Public SHUZUZ(2000) As Single 39。計算點天然氣壓縮系數(shù)Public SHUZUug(2000) As Single 39。計算點天然氣粘度mPasPublic SHUZUuw(2000) As Single 39。水的粘度mPas39。求溶解油氣比Rs（p,t)函數(shù)Public Function Rs(P As Single, t As Single) As SingleDim c1 As Single, c2 As Single If miduor = Then c1 = : c2 = : c3 = Else c1 = : c2 = : c3 = End If Rs = * c1 * dgr689 * ( * P) ^ (c2) * Exp(c3 * (( * miduor) / (miduor * ( * t + 492)))) If Rs Rp Then Rs = RpEnd Function39。求原油體積系數(shù)Bo(p,t)函數(shù)Public Function Bo(P As Single, t As Single) As SingleDim Bob As Double, c1 As Single, c2 As Single, c3 As SingleDim a1 As Single, a2 As Single, a3 As Single, a4 As Single, a5 As Single, a6 As SingleDim c0 As Single If P = Pb Then If miduor = Then c1 = * 10 ^ (4): c2 = * 10 ^ (5): c3 = * 10 ^ (8) Else c1 = * 10 ^ (4): c2 = * 10 ^ (5): c3 = * 10 ^ (9) End If Bo = 1 + * c1 * Rs(P, t) + c2 * ( * t 28) * (( * miduor) / (miduor * dgr689)) + * c3 * Rs(P, t) * ( * t 28) * (( * miduor) / (miduor * dgr689)) Else Bob = Bo(Pb, tpb) a1 = 1433: a2 = 5: a3 = : a4 = 1180: a5 = : a6 = 10 ^ 5 c0 = * (a1 + * a2 * Rs(P, t) + a3 * ( * t + 32) + a4 * dgr689 + a5 * ( * miduor) / miduor) / (a6 * P) Bo = Bob * Exp(c0 * (P Pb)) End IfEnd Function39。求天然氣壓縮系數(shù)Z(p,t)函數(shù)39。富氣為1,貧氣為0Public Function Z(P As Single, t As Single) As Single Dim Tc As Single, Pc As Single Dim Tr As Single, Pr As Single, dr As Single 39。（dr為天然氣的對比度） Dim i As Integer If Flag = 1 Then If midugr = Then Tc = 132 + * midugr Pc = 5102 * midugr Else Tc = 106 + * midugr Pc = 4778 * midugr End If Else If midugr = Then Tc = 92 + * midugr Pc = 4881 * midugr Else Tc = 92 + * midugr Pc = 4778 * midugr End If End If Z = 1 Tr = (273 + t) / Tc: Pr = P / Pc For i = 1 To 5 dr = * Pr / (Z * Tr) Z = 1 + ( / Tr / Tr ^ 3) * dr + ( / Tr + / Tr ^ 3) * dr ^ 2 Next iEnd Function39。求原油粘度uo函數(shù)Public Function uo(P As Single, t As Single) As Single Dim uon As Single Dim x As Single, y As Single, zz As Single, a As Single, b As Single zz = * (( * miduor) / miduor): y = 10 ^ zz: x = y * ( * 20 + 32) ^ () 39。地面脫氣