<form id="pxtl9"></form>

                        <address id="pxtl9"></address>
                        毕业论文网

                        开题报告论文 关于有杆抽油井工程诊断方法程序开题报告论文范文参考资料

                        关于开题报告函授毕业论文范文 有杆抽油井工程诊断方法程序开题报告类本科开题报告范文学年毕业论文。

                        iberglass sucker rod string Using API 11L spe 18188,1988.

                        [18] Gibbs, S.G. and Neely, A.B. "Computer Diagnosis of Downhole Conditions in Sucker Rod Pumping Wells", J. Pet. Tech., Jan. 1966.

                        [19] S.G.Gibbs,Design and diagnosis of deviated rod-pumped well,SPE22787.1991.

                        附录1 诊断模型求解程序代码

                        Private Sub zhenduan_click()

                        Dim K As Integer

                        Dim I As Integer, ii As Integer

                        Dim J As Integer

                        Dim sumrodl As Single

                        Dim kk As Integer

                        Dim jj As Integer

                        Dim yita(0 To 100) As Single

                        For I = 1 To oilrod.JiShu

                        rodaa(I) = 0

                        rodbb(I) = 0

                        rodcc(I) = 0

                        Next I

                        For I = 1 To oilrod.totalnod

                        For J = 0 To oilrod.Ntime

                        U(I, J) = 0

                        Next J

                        Next I

                        For I = 0 To tnod

                        U(I, 0) = 0

                        U(I, 1) = U(I, 0)

                        Next I

                        For I = 0 To oilrod.Ntime

                        U(1, I) = -flex_stress(0, I) * oilrod.dertx(1) / (oilrod.Er(1) * oilrod.rodarea(1)) + U(0, I)

                        ' Syangjian = U(2, 1) - U(1, 1)

                        有杆抽油井工程诊断方法程序开题报告毕业论文开题报告范文相关参考属性
                        有关论文范文主题研究: 关于开题报告文章 大学生适用: 2000字学位论文
                        相关参考文献下载数量: 93 写作解决问题: 写作参考
                        毕业论文开题报告: 文献综述、论文结论 职称论文适用: 论文发表、高级职称
                        所属大学生专业类别: 本科开题报告范文课题 论文题目推荐度: 最新开题报告题目

                        ' PpumpN(0, I) = (oilrod.Er(I) * oilrod.rodarea(I)) * Syangjian / oilrod.dertx(I)

                        Next I

                        U(0, oilrod.Ntime + 1) = U(0, 1)

                        U(1, oilrod.Ntime + 1) = U(1, 1)

                        ''计算一级杆柱的位移

                        For I = 1 To oilrod.totalnod - 1

                        For J = 1 To oilrod.Ntime

                        Hyangjian = 1 + oilrod.rodc(1) * oilrod.derttime

                        Gyangjian = oilrod.dertx(1) / oilrod.Volosity(1) * oilrod.derttime

                        Fyangjian = 2 + oilrod.rodc(1) * oilrod.derttime

                        Dyangjian = Hyangjian * U(I, J + 1) - Fyangjian * U(I, J) + U(I, J - 1)

                        U(I + 1, J) = Gyangjian ^ 2 * Dyangjian + 2 * U(I, J) - U(I - 1, J)

                        Next J

                        U(I + 1, 0) = U(I + 1, oilrod.Ntime)

                        U(I + 1, oilrod.Ntime + 1) = U(I + 1, 1)

                        Next I

                        '以下是求静位移

                        For I = 0 To oilrod.JiShu

                        Weight = 0: yita(0) = 0: Temps = 0: yita(1) = 0

                        If I > 0 Then

                        For X = I + 1 To oilrod.JiShu

                        Weight = Weight + oilrod.density(X) * 9.81 * oilrod.rodarea(X) * oilrod.rodl(X) * (1 - liquiddensity / oilrod.density(X))

                        Next X

                        Temps = (0.5 * oilrod.density(I) * oilrod.rodl(I) * gravity * oilrod.rodarea(I) * (1 - liquiddensity / oilrod.density(I)) + Weight) * oilrod.rodl(I) / (oilrod.Er(I) * oilrod.rodarea(I))

                        yita(I) = Temps + yita(I - 1) 'I级杆在浮力重力作用下的静伸长量

                        End If

                        Next I

                        For J = 0 To oilrod.Ntime

                        I = oilrod.totalnod

                        Uzhenduan(I, J) = U(I, J) + yita(1)

                        Next J

                        '求泵载荷

                        For ii = 0 To oilrod.Ntime

                        ' flex_stress(oilrod.totalnod, ii) = oilrod.Er(1) * oilrod.rodarea(1) / (12 * oilrod.dertx(1)) * (-25 * U(oilrod.totalnod, ii) + 48 * U(oilrod.totalnod - 1, ii) - 36 * U(oilrod.totalnod - 2, ii) + 16 * U(oilrod.totalnod - 3, ii) - 3 * U(oilrod.totalnod - 4, ii))

                        flex_stresszhenduan(oilrod.totalnod, ii) = -(1.5 * U(oilrod.totalnod, ii) - 2 * U(oilrod.totalnod - 1, ii) + 0.5 * U(oilrod.totalnod - 2, ii)) * oilrod.Er(1) * oilrod.rodarea(1) / oilrod.dertx(1)

                        Next ii

                        For ii = 0 To oilrod.Ntime

                        If ii < oilrod.Ntime / 2 Then

                        PpumpNzhenduan(oilrod.totalnod,ii) = flex_stresszhenduan(oilrod.totalnod, ii) - pressure_pc + pressure_po * oilrod.totalLength

                        Else '下冲程

                        PpumpNzhenduan(oilrod.totalnod,ii) = flex_stresszhenduan(oilrod.totalnod, ii) - pressure_po * oilrod.totalLength

                        End If

                        Next ii

                        End Sub

                        附录2 例子1实测悬点载荷数据

                        位移,

                        1 2 3 4 5 6 7

                        本科开题报告范文论文参考文献总结:

                        该文是开题报告论文范文,为你的写作提供相关参考.

                        建筑工程学术毕业论文开题报告

                        建筑工程自考毕业论文开题报告

                        建筑工程学位毕业论文开题报告

                        建筑工程学士毕业论文开题报告

                        建筑工程党校毕业论文开题报告

                        工程管理毕业论文开题报告

                        北京赛车对冲刷水|官网_首页