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

下載本文檔

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

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-過卷筒高度，<規(guī)程>規(guī)定：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'估算一次提升循環(huán)時間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、低出車水平到尾繩環(huán)端部的高度 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查鋼絲繩規(guī)格表，選標準鋼絲繩（優(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 尾繩選擇計算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'第三節(jié) 多繩摩擦式提升機選擇計算'.二 計算提升鋼絲繩最大靜張力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'三 計算提升系統(tǒng)最大靜張力差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 '第四節(jié)提升機對井筒相對位置的計算'一 井塔高度計算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'第五節(jié)提升系統(tǒng)變位置量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")'二 提升系統(tǒng)變位質量'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提升系統(tǒng)總變位質量 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 ' 一次提升循環(huán)時間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>鋼絲繩優(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>提升機型號為<%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、統(tǒng)總變位質量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. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網僅提供信息存儲空間，僅對用戶上傳內容的表現方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論