主井多绳摩擦提升设备选型_第1页
主井多绳摩擦提升设备选型_第2页
主井多绳摩擦提升设备选型_第3页
主井多绳摩擦提升设备选型_第4页
主井多绳摩擦提升设备选型_第5页
已阅读5页，还剩9页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、<html><head><title>主井多绳摩擦提升设备选型</title><%dim VO 初速度 VO=1.5dim V4 爬行速度 V4=0.5dim tishengji '提升机型号dim jiansuqi '减速器型号dim zhuanshu '电机转数dim tongbuzhuanshu '电机同步转数dim t5 '制动减速时间 t5=1dim h4 '爬行距离 h4=3.0dim xhx '卸载曲轨长度 xhx=2.35 Dim daH '提升高度HDim m

2、iu '箕斗在在曲轨内减速或爬行所需之附加时间 miu=10dim n '钢丝绳数目 n=4dim nyipie '尾绳数目 nyipie=2dim cHJ 'HJ-高度，（或井架高度），对井塔式布置 HJ=3550米，箕斗提升取其较大值 cHJ=50 dim cHg cHg-过卷筒高度，<规程>规定：Vm10米/秒时，cHgVm且6米；Vm10米/秒时，cHg10米/秒。 chg=10dim daS 'S-两提升容器中心距（米）dim seita seita=10 '休止时间dim Q '箕斗载重dim Qz '箕斗

3、自重DIM HL HL=2dim qq 'dim p '钢丝绳单位长度重量dim xq '尾绳单位长度重量dim GD2d,dianyin,pe,lanmd dim ddad '主导轮直径dim xd '钢丝绳直径dim xxd '尾绳直径dim Gj '所有旋转部分变位到主导轮圆周上的变位质量dim mmax '减速器为ZHD2R-140速比11.5，输出最大力矩23吨.米dim i '速比11.5dim dX '导向轮直径dim daGx'到向轮（或天轮）变位质量dim Hr,xh,HgHs1=Requ

4、est("jingtongshendutext")HS=CSNG(HS1)Hz1=Request("zhuangzaigaodutext")HZ=CSNG(HZ1)Hx1=Request("xiezaigaodutext")HX=CSNG(HX1)br11=Request("niangongzuotianshutext")BR1=CSNG(BR11)xt1=Request("yitiangongzuoxiaoshishutext")XT=CSNG(XT1)an1=Request("ku

5、angjingnianchanliangtext")AN=CSNG(AN1)sanmeirongzhong1=Request("sanmeirongzhongtext")sanmeirongzhong=CSNG(sanmeirongzhong1)'计算提升高度daH=Hs+Hx+Hz'计算合理的经济提升速度private function vmyipie()vmyipie=0.4*sqr(daH)end function'估算一次提升循环时间private function daT() Dim a1 a1=0.7 daT=vmyipie/a

6、1+daH/vmyipie+miu+seitaend function'计算一次提升量private function daQyipie() 'daQyipie估算的一次提升量 dim c c=1.15 dim af af=1.2 daQyipie=An*af*c*daT/3600/br1/xtend function'建立数据库连接 set myconn = server.CreateObject("ADODB.Connection") myconn.Open "wysheji" '查询Q和Qz选择箕斗 Set Rs=m

7、yconn.Execute("Select * From duoshengtishengjidouguigebiao") Rs.moveFirst Do Until Rs("mingyizaizhong") > daQyipie Rs.movenext loopQ=Rs("mingyizaizhong")Qz=Rs("jidouzizhong")jidou=rs("duoshengtishengjidouxinghao") dim l22 Set Rs=myconn.Execute(&qu

8、ot;Select * from duoshengtishengjidouzaijingtongzhongdebuzhi ") l22=rs("jidouxinghao") Do until Instr(l22,jidou)=1 Rs.movenext l22=Rs("jidouxinghao") loop daS=RS("jidouzhongxingju") '提升钢丝绳选择计算private function G()G=Q+Qzend functionprivate function Hh() 'Hh-最

9、低出车水平到尾绳环端部的高度 Hh=HL +cHg+0.5+2*daS/1000end functionprivate function HJyipie() HJyipie=cHJ-Hxend functionprivate function Hc() 'Hc-钢丝绳的悬垂长度（米） Hc=daH+HJyipie+ Hh end functionprivate function ma() 'ma钢丝绳安全系数，可用下式计算。 ma=7.2-0.0005* Hcend functionprivate function pyipie() '（3）计算钢丝绳单位长度重量pyi

10、pie dim cgemaB cgemaB=15500 pyipie=1000*G/n/(1.1*cgemaB/ma-Hc)end function'根据计算的p查钢丝绳规格表，选标准钢丝绳（优先选三角钢丝绳）private sub gangsixuanze dim qyipie,flag flag=1 Set Rs=myconn.Execute("Select * From sheng6sanjiaogushenghexianweixin ") Rs.moveFirst Do Until Rs("chankaozhongliang") >

11、pyipie Rs.movenext Loop qq=rs("gangsishenggongchengkanglaqiangdu155") p=rs("chankaozhongliang") xd=rs("gangsishengzhijing") '钢丝绳直径'3 尾绳选择计算Do while flag=1 qyipie=n/nyipie*p Set Rs=myconn.Execute("Select * From yuangungangsisheng ") Rs.moveFirst Do Unti

12、l Rs("cankaozhongliang") >qyipie Rs.movenext Loop xq=rs("cankaozhongliang") xxd=rs("gangsishengzhijing")'2 验算钢丝绳安全系数 Set Rs=myconn.Execute("Select * From sheng6sanjiaogushenghexianweixin ") Do Until Rs("chankaozhongliang") >pyipie Rs.movene

13、xt Loop temp=n*qq/(G+N*P*hc) if temp >= ma then flag=0 else Rs.movenext P=Rs("chankaozhongliang ") Qq=Rs("gangsishenggongchengkanglaqiangdu155") end if Loopend subcall gangsixuanze'第三节 多绳摩擦式提升机选择计算'.二 计算提升钢丝绳最大静张力Fjyipieprivate function Fjyipie() Fjyipie=(1000*G+n*p* h

14、jyipie+nyipie*xq*(daH+Hh)/1000end function'-尾绳每米重与主绳每米重之差private function dert() dert=nyipie*xq-n*pend function'三 计算提升系统最大静张力差Fcyipieprivate function Fcyipie() Fcyipie=(1000*Q+dert*daH)/1000end function'选择提升机private sub tishengjixuanze dim flag flag=1Set Rs=myconn.Execute("Select *

15、From JKMxingduoshengmochaluntishengji" ) Rs.moveFirst Do Until Rs("gamgsishengzuidajingzhangli") > Fjyipie and Rs("gangsishengzuidajingzhanglicha") >Fcyipie Rs.movenext loop Do while flag=1 ddad=rs("zhudaolunzhijing") '主导轮直径 tishengji=rs("jiqixinghao

16、") Gj=rs("suoyouxuanzhuanbufendebianweizhiliang") '所有旋转部分变位到主导轮圆周上的变位质量 mmax=rs("jianshuqizuidaliju") '减速器为ZHD2R-140速比11.5，输出最大力矩23吨.米 i=Rs("subi") '速比11.5 ddad=rs("zhudaolunzhijing") daGx=rs("daoxianglundebianweizhiliang") '到向轮（

17、或天轮）变位质量 dx=rs("daoxianglunzhijing") jiansuqi=rs("jiansuqixinghao") '四 根据所需最大提升速度vmyipie，确定减速器速比I和电动机转数neyipieneyipie=60*i*Vmyipie/3.14/ddaddim pb'五 验算主导轮衬压比pB pB= (1000*Q+2*QZ*1000+n*p*(daH+2*Hj)+nyipie*xq*(H+2*Hh)/(n*ddad*xd*100) if pB<20 then flag=0 else Rs.movenext

18、 end ifLoopend subcall tishengjixuanze '第四节提升机对井筒相对位置的计算'一 井塔高度计算private function he() He=0.75*dX/2end functionprivate function hj()'HJ-井塔高度（米）dim hzx,l11 hzx=5 Set Rs=myconn.Execute("Select * From duoshengtishengxitongzhuyaocanshu ") l11=Rs("jidouxinhao") Do until In

19、str(l11,jidou)=1 Rs.movenext l11=Rs("jidouxinhao") loop Hr=rs("jidouquangao") xh=rs("fangzhuangliangdizhidaoxianglunchenloumiangao") Hg=rs("guojuangaodu") HJ=HX+Hr/1000+Hg/1000+xh/1000+He+HZX end function'二 确定主导轮与到向抡的水平间距L0。'private function L0() L0=da

20、S+RX-ddaD/2'end function'第五节提升系统变位置量function uerfa()dim erfa erfa=0.127 uerfa=miu*erfaend function'1 估算电机功率pprivate function xpeyipie() dim rou,yintaj, dak rou=1.2 yintaj=0.93 '减速器效率 dak=1.15 xpeyipie=1000*daK*Q *vmyipie*rou/102/yintajend function'电动机的选择 Set Rs=myconn.Execute(&qu

21、ot;Select * From JRZxiliehuahuanshiganyingdianji" )Rs.moveFirst Do Until Rs("edingrongliang") > xpeyipie Rs.movenext loop GD2d=rs("zhuanzehuizhuanliju") '电动机转子飞轮力矩 dianyin=rs("xiaolv") '电机效率效率 pe=rs("edingrongliang") '电动机额定功率 lanmd=rs("

22、;guofuhexishu") '电机过负荷系数 xinhao=rs("xinhao") zhuanshu=rs("zhuanshu") tongbuzhuanshu=rs("tongbuzhuanshu")'二 提升系统变位质量'1 有效载荷变位质量Q '2提升容器变位质量Gzprivate function daGz daGz=2*Qzend function'3主提升钢丝绳变位质量np(H+2 HJ)'4尾绳变位质量：'5到向轮（或天轮）变位质量Gx(Gt)

23、9;6提升机变位质量：'7电动机变位质量private function daGd() daGd=GD2d*(i/ddad)2/1000end function private function jinbianwei() jinbianwei=n*p*(daH+2*HJyipie)/1000 end function private function weibianwei() weibianwei=nyipie*xq*(daH+2*Hh)/1000 end functionprivate function daGi()'8提升系统总变位质量 daGi=Q+daGz+ jinbi

24、anwei+weibianwei+ daGx+ Gj+ daGdend functionprivate function xm() xm=daGi/9.8end function' 运动学计算'提升加速度a1的确定'一般a11.2米/秒2 private function fgk() dim dak dak=1.1 fgk=dak*qend functionprivate function a11pie() a11pie=(mmax-fgk*ddad/2)/(ddad/2*(xm-daGd/9.8)end function Response.Write(a11pie)&

25、#39;Fe-电动机作用在主导轮上的额定力private function Fe()Fe=102*pe/vmyipie*dianyinend functionprivate function a12pie()dim dak dak=1.15a12pie=(0.75*lanmd*fe-(daK*Q*1000+dert*daH)/xm/1000end function'4 按防滑条件计算允许的加速度（按提升开始）'（1）计算上升侧钢丝绳静张力Fs1private function linshi1()linshi1=n*p*(daH+HJyipie)end functionpriva

26、te function linshi2()linshi2=nyipie*xq*Hhend functionprivate function linshi3()dim omig omig=0.075linshi3=omig*Q*1000end functionprivate function Fs1()Fs1=1000*Q+1000*Qz+linshi1+linshi2+linshi3end function'（2）计算下放侧钢丝绳静张力Fx1private function Fx1()dim omig omig=0.075Fx1=1000*Qz+n*p*HJyipie+nyipie*x

27、q*(daH+Hh)- omig*Q*1000end function' 上升侧运动部分变位质量ms1private function ms1()dim omig omig=0.075ms1=(Fs1-omig*Q*1000)/9.8end function'下放侧运动部分变位质量mx1private function mx1()dim omig omig=0.075mx1=( Fx1+omig*Q*1000)/9.8end functionprivate function a13pie()a13pie=(2.7182(uerfa)-1)*Fx1-1.25*(Fs1- Fx1)

28、/(2.7182(uerfa)-1)*mx1+1.25*(ms1+mx1)end functionprivate function a1()dim aaa,bbb if a11pie>=a12pie then aaa=a12pie else aaa=a11pie end if if a12pie>=a13pie then bbb=a13pie else bbb=a12pie end if if aaa>=bbb then a1=bbb else a1=aaa end ifend function'三 主减速度a3的确定'（1）按自由滑行减速private fu

29、nction a31pie()dim dak dak=1.15a31pie=(daK*Q*1000+dert*daH)/(xm*1000)end function'3按防滑条件计算'（1）计算上升侧钢丝绳静张力Fs3private function Fs3()Fs3=1000*Q+1000*Qz+n*p*HJyipie+nyipie*xq*(daH+Hh)+omig*Q*1000end function'（3）计算下放侧钢丝绳的静张力Fx3private function Fx3()Fx3= 1000*Qz+n*p*(H+HJyipie)+nyipie*xq*Hh -o

30、mig*q*1000end function'（4）计算上升侧运动部分的变位质量ms3private function ms3()ms3=(Fs3-omig*Q*1000)/9.8end function'计算下放侧运动部分的变位质量mx3private function mx3()mx3=( Fx3+omig*Q*1000)/9.8end function'按防滑条件计算的减速度private function a32pie()a32pie=(2.7182(uerfa)-1)*Fs3+1.25*(Fs3- Fx3)/(2.7182(uerfa)-1)*ms3+1.25

31、*(ms3+ mx3)end functionprivate function a3()if a31pie>=a32pie then a3=a32pie else a3=a31pie end ifend function '四 速度图各参数计算'1 初加速阶段private function a0()a0=(VO)2/(2*xhx)end functionprivate function t0()t0=VO/a0end function'2主加速度简阶段'加速时间private function t1()dim vm vm=vmyipiet1=(Vm- V

32、O)/ a1end function' 加速距离private function h1()dim vm vm=vmyipieh1=(Vm+ VO) *t1/2end function'3减速阶段'减速时间private function t3()dim vm vm=vmyipiet3=(Vm- V4)/ a3end function'减速距离private function h3()dim vm vm=vmyipieh3=(Vm+ V4)* t3/2end function'爬行时间private function t4()t4= h4/V4end fu

33、nction'5等速阶段'等速距离private function h2()h2=daH-xhx- h1- h3- h4end function'等速运行时间private function t2()dim vm vm=vmyipiet2= h2/Vmend function ' 一次提升循环时间Txprivate function Tx()Tx= t0+ t1+ t2+ t3+ t4+t5+seitaend function'八 动力学计算' 初加速阶段拖动力private function F0()dim dak dak=1.15F0=daK

34、*Q*1000-dert*daH+1000*xm*a0end function'初加速终了private function F0yipie()dim xhx xhx=2.35 F0yipie= F0+2*xhXend function'二) 主加速阶段拖动力'加速开始private function F1() F1= F0yipie+1000*xm*(a1- a0)end function ' 加速终了：private function F1yipie()F1yipie= F1+2*dert*h1end function'三) 等速阶段拖动力'等

35、速开始private function F2()F2= F1yipie- 1000*xm*a1end function'等速终了：private function F2yipie() F2yipie= F2+2*dert*h2end function'（四） 减速阶段拖动力'减速开始private function F3()F3= F2yipie- 1000*xm*a3end function'减速终了：private function F3yipie() F3yipie= F3+2*dert*h3end function'（五） 爬行阶段'爬行

36、开始：private function F4() F4= F3yipie+ 1000*xm*a3end function' 提升终了：private function F4yipie()F4yipie=daK*Q*1000+dert*daHend functionprivate function wwww()wwww=100*dianyinend functionprivate function jifen()jifen=(f0+foyipie)*t0/2+(f1+f1yipie)*t1/2+(f2+f2yipie)*t2/2+(f4+f4yipie)*t4/2end function

37、'一）一次提升的电耗Wprivate function ww()ww=1.02*vmyipie/(102*3600*0.9*dianyin)*jifenend functionprivate function wwt()wwt=ww/qend functionprivate function wwy()wwy=q*dah/(3.6*102)end functionprivate function wwxiaolv()wwxiaolv=100*wwy/wwend functionprivate function ann()nn=3600*br1*xt*q/(1.15*tx)end fun

38、ctionprivate function fuyu()fuyu=ann/anend function %>以下参数仅供您参考：<Ul>箕斗型号为<%Response.Write(jidou)%></Ul><Ul>箕斗自重Qz=<%Response.Write(qz)%>吨</Ul><Ul>箕斗载重Q=<%Response.Write(q)%>吨</Ul><Ul>钢丝绳优先选用6（24）股（0+12+12）绳和纤维芯其中直径d=<%Response.Write(x

39、d)%>毫米</Ul><Ul>尾绳优先选用圆股钢丝绳绳6o(21)+6(8)绳和纤维芯其中直径为<%Response.Write(xxd)%>毫米</Ul><Ul>提升机型号为<%Response.Write(tishengji)%></Ul><Ul>导向轮直径D=<%Response.Write(dx)%>米</Ul><Ul>主导轮直径DX=<%Response.Write(ddad)%>米</Ul><Ul>提升机变位质

40、量为<%Response.Write(Gj)%>吨</Ul><Ul>减速器型号为<%Response.Write(jiansuqi)%></Ul><Ul>减速器速比i=<%Response.Write(i)%></Ul><Ul>减速器输出的最大力矩为<%Response.Write(mmax)%>吨.米</Ul><Ul>井塔高度Hj=<%Response.Write(hj)%>米</Ul><Ul>同步转数为<%

41、Response.Write(tongbuzhuanshu)%>转/分</Ul><Ul>转数<%Response.Write(zhuanshu)%>转/分</Ul><Ul>电动机额定功率Pe=<%Response.Write(pe)%>千瓦</Ul><Ul>电机效率效率为<%Response.Write(wwww)%></Ul><Ul>电机过负荷系数<%Response.Write(lanmd)%></Ul><Ul>提升系

42、统总变位质量m=<%Response.Write(xm)%>千克.秒*秒/米</Ul><Ul>a1=<%Response.Write( a1)%>米/秒*秒</Ul><Ul>a3=<%Response.Write( a3)%>米/秒*秒</Ul><Ul>v0=<%Response.Write(VO)%>米/秒</Ul><Ul>vm=<%Response.Write( vmyipie)%>米/秒</Ul><Ul>v4=0<%Response.Write( v4)%>米/秒</Ul><Ul>t0=<%Response.Write( t0)%>秒</Ul><Ul>t1=<%Response.Write( t1)%>秒</Ul><Ul>t

人人文库> 全部分类> 教育资料 > 辅导培训

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论