主井多绳摩擦提升设备选型.doc

啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊以下参数仅供您参考:箕斗型号为箕斗自重Qz=吨箕斗载重Q=吨钢丝绳优先选用6(24)股(0+12+12)绳和纤维芯其中直径d=毫米尾绳优先选用圆股钢丝绳.啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊主井多绳摩擦提升设备选型啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊主井多绳摩擦提升设备选型%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 miu 箕斗在在曲轨内减速或爬行所需之附加时间 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 箕斗自重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=Request(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(kuangjingnianchanliangtext)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/a1+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=myconn.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(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-最低出车水平到尾绳环端部的高度 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）计算钢丝绳单位长度重量pyipie 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) 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 Until 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.movenext 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* hjyipie+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 * 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) Gj=rs(suoyouxuanzhuanbufendebianweizhiliang) 所有旋转部分变位到主导轮圆周上的变位质量 mmax=rs(jianshuqizuidaliju) 减速器为ZHD2R-140速比11.5，输出最大力矩23吨.米 i=Rs(subi) 速比11.5 ddad=rs(zhudaolunzhijing) daGx=rs(daoxianglundebianweizhiliang) 到向轮（或天轮）变位质量 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 xpeyipie Rs.movenext loop GD2d=rs(zhuanzehuizhuanliju) 电动机转子飞轮力矩 dianyin=rs(xiaolv) 电机效率效率 pe=rs(edingrongliang) 电动机额定功率 lanmd=rs(guofuhexishu) 电机过负荷系数 xinhao=rs(xinhao) zhuanshu=rs(zhuanshu) tongbuzhuanshu=rs(tongbuzhuanshu)二 提升系统变位质量1 有效载荷变位质量Q 2提升容器变位质量Gzprivate function daGz daGz=2*Qzend function3主提升钢丝绳变位质量np(H+2 HJ)4尾绳变位质量：5到向轮（或天轮）变位质量Gx(Gt)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+ jinbianwei+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)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 function4 按防滑条件计算允许的加速度（按提升开始）（1）计算上升侧钢丝绳静张力Fs1private function linshi1()linshi1=n*p*(daH+HJyipie)end functionprivate 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*xq*(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)/(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 function a31pie()dim dak dak=1.15a31pie=(daK*Q*1000+dert*daH)/(xm*1000)end function3按防滑条件计算（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 -omig*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*(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 function2主加速度简阶段加速时间private function t1()dim vm vm=vmyipiet1=(Vm- VO)/ a1end function 加速距离private function h1()dim vm vm=vmyipieh1=(Vm+ VO) *t1/2end function3减速阶段减速时间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 function5等速阶段等速距离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*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三) 等速阶段拖动力等速开始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（五） 爬行阶段爬行开始：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一）一次提升的电耗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 functionprivate function fuyu()fuyu=ann/anend function %以下参数仅供您参考：箕斗型号为箕斗自重Qz=吨箕斗载重Q=吨钢丝绳优先选用6（24）股（0+12+12）绳和纤维芯其中直径d=毫米尾绳优先选用圆股钢丝绳绳6o(21)+6(8)绳和纤维芯其中直径为毫米提升机型号为导向轮直径D=米主导轮直径DX=米提升机变位质量为吨减速器型号为减速器速比i=减速器输出的最大力矩为吨.