欢迎来到天天文库
浏览记录
ID:41740640
大小:204.12 KB
页数:15页
时间:2019-08-31
《完井工程_图文》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、重庆科技学院上机报告课程名称:完井工程报告名称:套管强度设计院(系)石油与天然气工程学院专业班级石油2013级1班学生姓名宋闯学号2013444368指导教师郭晓兀评定成绩(五级计分制)2016年5月25日套管强度设计一、欲解决问题说明根据相关资料,进行套管强度设计。求得各段套管的段长及所使用的钢级和壁厚等相关参数,使得设计结果满足设计要求。其中,已知条件为:井深2000m处下一层245mm的技术套管,钻井液密度为1.20&/C”,水泥返至井口,试进行套管强度设计,要求在下表给定的套管中选择套管。表1.1可选套管参数表钢级壁厚
2、(mm)抗挤强度(KPa)屈服强度(KN)抗滑扣拉力(KN)单位重力(KN)N-8011.05262694470.53669.80.6384N-8010.03213054074.6327&30.5835K-5510.03177202802.42495.30.5835二、问题求解分析过程(包括计算方法.公式、步骤、编程流程图、符号变量说明)1、符号变量说明:表1.2符号变量说明表符号单位说明符号单位说明Hm井深FslKN第一段套管允许抗拉力Dmm套管外径Fs2KN第二段套管允许抗拉力Pg/cm3钻井液密度Fs3KN第三段套管允许
3、抗拉力PocKPa全井的最人外挤载荷qlKN第一段套管单位长度的重力gjl第…段套管的钢级q2KN第二段套管单位长度的重力gJ2第二段套管的钢级q3KN第三段套管单位长度的重力gj3第二段套管的钢级W1KN第一段的重力bhlmm第•段套管的撰厚W2KN第二段的重力bh2mm第一•段套管的撰厚W3KN第三段的重力bh3mm第三段套管的壁疗Stl第一•段的实际抗拉安全系数DIm第•段套管的长度St2第二段的实际抗拉安全系数D2m第二段套管的长度St3第三段的实际抗拉安全系数D3m第二段套管的长度nj抗拉安全系数nc抗挤安全系数2、
4、计算方法、公式、步骤:(1)确定安全系数不计浮力,Kf=l,抗拉安全系数nj取1.6:抗挤安全系数nc取1.0(2)按全井的最大外挤载荷初选第一段套管。Pol-9800*p0H第一段应有的强度pc1=po1nc第一段选择的套管其允许抗外挤强度匕必须大于等于巧个。抗挤安全系数ncl=p01/pcl(3)选择壁厚小一级或钢级小一级的套管为第二段套管,确定该段套管的可下入深度〃2。H2Pc29.81p由此确定第一段套管的允许长度:D=II—〃2(4)按照步骤(2),逐步确定以上齐段的套管长度。当所设计的套管抗拉安全系数小于规定的2
5、倍以内时,转入抗拉强度设计。此时,第i段套管的长度为:(i-\Li=F./S~yLq/q.sit//mnmi丿3、编程流程图:将题冃中给定的套管相关参数输入EXCLE在EXCLE屮将不同套管的的抗挤强度数据按由大到小的顺序排列根据计算的Poc从EXCLE■]'筛选符合要求的套管选择比Poc小一级的数据作为下一段套管的允许抗外挤强度以让算可下入深度计算各段下入的实际长度计算各段实际抗拉安全系数(当英值W规定值得2倍以内时转入抗拉设计)得到最终所设计的结果三、程序功能、界面介绍,并附源程序代码1、程序功能:本陈序能在输入己知参
6、数后,通过已有的数据库能直接对套管进行设计,最终得到各段套管的段长,所使用的钢级和壁厚,以及各段套管的实际安全抗拉系数的值。2、界面介绍:(1)在文本框输入题干中所给的已知参数,点击“设计”,得到设计结果。已知参数:井深5)第一段2451.2站井液密度(g/cm3)套管尺寸5m)钢级第二段I:壁厚段长实际抗拉系数图1.1界面介绍图3、源代码如F:PrivateSubCommand1_Click()DimxlsAppAsExcel.Application,声明对彖变量SetxlsApp=Excel.Application,实例
7、化对象xlsApp.Visible=FalseM吏Excel隐藏不可见xlsApp.Workbooks.Opcn(nC:UscrsAdministratorDcsktop套竹强度设计.xlsx”)打开EXCEL文件,假设文件在c盘根目录'井深(m),套管外径(mm),钻井液密度(g/cm3),金井的最大外挤载荷'只有3列数据可以改变(1DimH!,p!,D!,Poc!,Pl!,aa!H=Tcxt2.TcxtD=Text3.TextP=Text4.TextPoc=9.81*P*H(KPa)Dima(lTo3)AsInte
8、ger,mAsInteger,iAsIntegerTo3)中的3'只有3列数据2至4行至4行第3列的数据i=1'Form=1To3i=i+1a(m)=xlsApp.Cclls(i,3)Printa(m)NextmDimnAsIntegerFork=1To2*2=3-1n=kF
此文档下载收益归作者所有