主井多繩摩擦提升設(shè)備選型_第1頁
主井多繩摩擦提升設(shè)備選型_第2頁
主井多繩摩擦提升設(shè)備選型_第3頁
主井多繩摩擦提升設(shè)備選型_第4頁
主井多繩摩擦提升設(shè)備選型_第5頁
已閱讀5頁，還剩9頁未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、<html><head><title>主井多繩摩擦提升設(shè)備選型</title><%dim VO 初速度 VO=1.5dim V4 爬行速度 V4=0.5dim tishengji '提升機(jī)型號(hào)dim jiansuqi '減速器型號(hào)dim zhuanshu '電機(jī)轉(zhuǎn)數(shù)dim tongbuzhuanshu '電機(jī)同步轉(zhuǎn)數(shù)dim t5 '制動(dòng)減速時(shí)間 t5=1dim h4 '爬行距離 h4=3.0dim xhx '卸載曲軌長(zhǎng)度 xhx=2.35 Dim daH '提升高度HDim m

2、iu '箕斗在在曲軌內(nèi)減速或爬行所需之附加時(shí)間 miu=10dim n '鋼絲繩數(shù)目 n=4dim nyipie '尾繩數(shù)目 nyipie=2dim cHJ 'HJ-高度，（或井架高度），對(duì)井塔式布置 HJ=3550米，箕斗提升取其較大值 cHJ=50 dim cHg cHg-過卷筒高度，<規(guī)程>規(guī)定：Vm10米/秒時(shí)，cHgVm且6米；Vm10米/秒時(shí)，cHg10米/秒。 chg=10dim daS 'S-兩提升容器中心距（米）dim seita seita=10 '休止時(shí)間dim Q '箕斗載重dim Qz '箕斗

3、自重DIM HL HL=2dim qq 'dim p '鋼絲繩單位長(zhǎng)度重量dim xq '尾繩單位長(zhǎng)度重量dim GD2d,dianyin,pe,lanmd dim ddad '主導(dǎo)輪直徑dim xd '鋼絲繩直徑dim xxd '尾繩直徑dim Gj '所有旋轉(zhuǎn)部分變位到主導(dǎo)輪圓周上的變位質(zhì)量dim mmax '減速器為ZHD2R-140速比11.5，輸出最大力矩23噸.米dim i '速比11.5dim dX '導(dǎo)向輪直徑dim daGx'到向輪（或天輪）變位質(zhì)量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)'計(jì)算提升高度daH=Hs+Hx+Hz'計(jì)算合理的經(jīng)濟(jì)提升速度private function vmyipie()vmyipie=0.4*sqr(daH)end function'估算一次提升循環(huán)時(shí)間private function daT() Dim a1 a1=0.7 daT=vmyipie/a

6、1+daH/vmyipie+miu+seitaend function'計(jì)算一次提升量private function daQyipie() 'daQyipie估算的一次提升量 dim c c=1.15 dim af af=1.2 daQyipie=An*af*c*daT/3600/br1/xtend function'建立數(shù)據(jù)庫連接 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") '提升鋼絲繩選擇計(jì)算private function G()G=Q+Qzend functionprivate function Hh() 'Hh-最

9、低出車水平到尾繩環(huán)端部的高度 Hh=HL +cHg+0.5+2*daS/1000end functionprivate function HJyipie() HJyipie=cHJ-Hxend functionprivate function Hc() 'Hc-鋼絲繩的懸垂長(zhǎng)度（米） Hc=daH+HJyipie+ Hh end functionprivate function ma() 'ma鋼絲繩安全系數(shù)，可用下式計(jì)算。 ma=7.2-0.0005* Hcend functionprivate function pyipie() '（3）計(jì)算鋼絲繩單位長(zhǎng)度重量pyi

10、pie dim cgemaB cgemaB=15500 pyipie=1000*G/n/(1.1*cgemaB/ma-Hc)end function'根據(jù)計(jì)算的p查鋼絲繩規(guī)格表，選標(biāo)準(zhǔn)鋼絲繩（優(yōu)先選三角鋼絲繩）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 尾繩選擇計(jì)算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 驗(yàn)算鋼絲繩安全系數(shù) 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'第三節(jié) 多繩摩擦式提升機(jī)選擇計(jì)算'.二 計(jì)算提升鋼絲繩最大靜張力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'三 計(jì)算提升系統(tǒng)最大靜張力差Fcyipieprivate function Fcyipie() Fcyipie=(1000*Q+dert*daH)/1000end function'選擇提升機(jī)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") '主導(dǎo)輪直徑 tishengji=rs("jiqixinghao

16、") Gj=rs("suoyouxuanzhuanbufendebianweizhiliang") '所有旋轉(zhuǎn)部分變位到主導(dǎo)輪圓周上的變位質(zhì)量 mmax=rs("jianshuqizuidaliju") '減速器為ZHD2R-140速比11.5，輸出最大力矩23噸.米 i=Rs("subi") '速比11.5 ddad=rs("zhudaolunzhijing") daGx=rs("daoxianglundebianweizhiliang") '到向輪（

17、或天輪）變位質(zhì)量 dx=rs("daoxianglunzhijing") jiansuqi=rs("jiansuqixinghao") '四 根據(jù)所需最大提升速度vmyipie，確定減速器速比I和電動(dòng)機(jī)轉(zhuǎn)數(shù)neyipieneyipie=60*i*Vmyipie/3.14/ddaddim pb'五 驗(yàn)算主導(dǎo)輪襯壓比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 '第四節(jié)提升機(jī)對(duì)井筒相對(duì)位置的計(jì)算'一 井塔高度計(jì)算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'二 確定主導(dǎo)輪與到向掄的水平間距L0。'private function L0() L0=da

20、S+RX-ddaD/2'end function'第五節(jié)提升系統(tǒng)變位置量function uerfa()dim erfa erfa=0.127 uerfa=miu*erfaend function'1 估算電機(jī)功率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'電動(dòng)機(jī)的選擇 Set Rs=myconn.Execute(&qu

21、ot;Select * From JRZxiliehuahuanshiganyingdianji" )Rs.moveFirst Do Until Rs("edingrongliang") > xpeyipie Rs.movenext loop GD2d=rs("zhuanzehuizhuanliju") '電動(dòng)機(jī)轉(zhuǎn)子飛輪力矩 dianyin=rs("xiaolv") '電機(jī)效率效率 pe=rs("edingrongliang") '電動(dòng)機(jī)額定功率 lanmd=rs("

22、;guofuhexishu") '電機(jī)過負(fù)荷系數(shù) xinhao=rs("xinhao") zhuanshu=rs("zhuanshu") tongbuzhuanshu=rs("tongbuzhuanshu")'二 提升系統(tǒng)變位質(zhì)量'1 有效載荷變位質(zhì)量Q '2提升容器變位質(zhì)量Gzprivate function daGz daGz=2*Qzend function'3主提升鋼絲繩變位質(zhì)量np(H+2 HJ)'4尾繩變位質(zhì)量：'5到向輪（或天輪）變位質(zhì)量Gx(Gt)

23、9;6提升機(jī)變位質(zhì)量：'7電動(dòng)機(jī)變位質(zhì)量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提升系統(tǒng)總變位質(zhì)量 daGi=Q+daGz+ jinbi

24、anwei+weibianwei+ daGx+ Gj+ daGdend functionprivate function xm() xm=daGi/9.8end function' 運(yùn)動(dòng)學(xué)計(jì)算'提升加速度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-電動(dòng)機(jī)作用在主導(dǎo)輪上的額定力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 按防滑條件計(jì)算允許的加速度（按提升開始）'（1）計(jì)算上升側(cè)鋼絲繩靜張力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）計(jì)算下放側(cè)鋼絲繩靜張力Fx1private function Fx1()dim omig omig=0.075Fx1=1000*Qz+n*p*HJyipie+nyipie*x

27、q*(daH+Hh)- omig*Q*1000end function' 上升側(cè)運(yùn)動(dòng)部分變位質(zhì)量ms1private function ms1()dim omig omig=0.075ms1=(Fs1-omig*Q*1000)/9.8end function'下放側(cè)運(yùn)動(dòng)部分變位質(zhì)量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按防滑條件計(jì)算'（1）計(jì)算上升側(cè)鋼絲繩靜張力Fs3private function Fs3()Fs3=1000*Q+1000*Qz+n*p*HJyipie+nyipie*xq*(daH+Hh)+omig*Q*1000end function'（3）計(jì)算下放側(cè)鋼絲繩的靜張力Fx3private function Fx3()Fx3= 1000*Qz+n*p*(H+HJyipie)+nyipie*xq*Hh -o

30、mig*q*1000end function'（4）計(jì)算上升側(cè)運(yùn)動(dòng)部分的變位質(zhì)量ms3private function ms3()ms3=(Fs3-omig*Q*1000)/9.8end function'計(jì)算下放側(cè)運(yùn)動(dòng)部分的變位質(zhì)量mx3private function mx3()mx3=( Fx3+omig*Q*1000)/9.8end function'按防滑條件計(jì)算的減速度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 '四 速度圖各參數(shù)計(jì)算'1 初加速階段private function a0()a0=(VO)2/(2*xhx)end functionprivate function t0()t0=VO/a0end function'2主加速度簡(jiǎn)階段'加速時(shí)間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減速階段'減速時(shí)間private function t3()dim vm vm=vmyipiet3=(Vm- V4)/ a3end function'減速距離private function h3()dim vm vm=vmyipieh3=(Vm+ V4)* t3/2end function'爬行時(shí)間private function t4()t4= h4/V4end fu

33、nction'5等速階段'等速距離private function h2()h2=daH-xhx- h1- h3- h4end function'等速運(yùn)行時(shí)間private function t2()dim vm vm=vmyipiet2= h2/Vmend function ' 一次提升循環(huán)時(shí)間Txprivate function Tx()Tx= t0+ t1+ t2+ t3+ t4+t5+seitaend function'八 動(dòng)力學(xué)計(jì)算' 初加速階段拖動(dòng)力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'二) 主加速階段拖動(dòng)力'加速開始private function F1() F1= F0yipie+1000*xm*(a1- a0)end function ' 加速終了：private function F1yipie()F1yipie= F1+2*dert*h1end function'三) 等速階段拖動(dòng)力'等

35、速開始private function F2()F2= F1yipie- 1000*xm*a1end function'等速終了：private function F2yipie() F2yipie= F2+2*dert*h2end function'（四） 減速階段拖動(dòng)力'減速開始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 %>以下參數(shù)僅供您參考：<Ul>箕斗型號(hào)為<%Response.Write(jidou)%></Ul><Ul>箕斗自重Qz=<%Response.Write(qz)%>噸</Ul><Ul>箕斗載重Q=<%Response.Write(q)%>噸</Ul><Ul>鋼絲繩優(yōu)先選用6（24）股（0+12+12）繩和纖維芯其中直徑d=<%Response.Write(x

39、d)%>毫米</Ul><Ul>尾繩優(yōu)先選用圓股鋼絲繩繩6o(21)+6(8)繩和纖維芯其中直徑為<%Response.Write(xxd)%>毫米</Ul><Ul>提升機(jī)型號(hào)為<%Response.Write(tishengji)%></Ul><Ul>導(dǎo)向輪直徑D=<%Response.Write(dx)%>米</Ul><Ul>主導(dǎo)輪直徑DX=<%Response.Write(ddad)%>米</Ul><Ul>提升機(jī)變位質(zhì)

40、量為<%Response.Write(Gj)%>噸</Ul><Ul>減速器型號(hào)為<%Response.Write(jiansuqi)%></Ul><Ul>減速器速比i=<%Response.Write(i)%></Ul><Ul>減速器輸出的最大力矩為<%Response.Write(mmax)%>噸.米</Ul><Ul>井塔高度Hj=<%Response.Write(hj)%>米</Ul><Ul>同步轉(zhuǎn)數(shù)為<%

41、Response.Write(tongbuzhuanshu)%>轉(zhuǎn)/分</Ul><Ul>轉(zhuǎn)數(shù)<%Response.Write(zhuanshu)%>轉(zhuǎn)/分</Ul><Ul>電動(dòng)機(jī)額定功率Pe=<%Response.Write(pe)%>千瓦</Ul><Ul>電機(jī)效率效率為<%Response.Write(wwww)%></Ul><Ul>電機(jī)過負(fù)荷系數(shù)<%Response.Write(lanmd)%></Ul><Ul>提升系

42、統(tǒng)總變位質(zhì)量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等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論