油库上机编程实验报告.doc

《油库上机编程实验报告.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、油库设计与管理实验报告小组成员李伟王文康陈万贵陈实曹增辉赖家鑫学　号实验名称油库设计与管理指导教师宋晓琴单　　位西南石油大学1题目来源某油库的自流装卸系统，如图2所示，装油管设置在集油管中部，且两侧鹤管同时装油，两侧鹤管对称布置。油库油料为车用汽油，操作条件下车用汽油的粘度为0.6×10-6m2/s，鹤管采用Φ108×4的钢管，鹤管计算长度为25m，鹤管间距为12.5m，集油管为Φ273×6，输油管为Φ159×5，输油管计算长度为1500m，油库库容为30000m3，单个罐的容量为3000m3，油罐内径为16m，罐壁高度为15.85，罐出油口与装油鹤管出口之间的高差为30m。（1）计算鹤分别

2、管数为20和30，液位高度为3m和10m时所对应的各鹤管流量？（2）操作鹤管数为30，发油量为1500m3，开始发油时液位高度为12m ，计算发油时间？。2程序框图：开机输入参数n计算常数=+V(1)(1)hf1(1)u(1)hf2(1)i=2ton/2(i)=(i-1)+hf1(i)(i)+<++YESu(i-1)(i)hf2(i)i

3、常数3.3定义数组3.4计算过程3.5计算第一根鹤管OptionBase1PrivateSubCommand1_Click()'定义数据和数据输入Dimdd,D,ll,L,D0,ν,εH,εJ,aa,A,C1,C2,C3,ε,Δ,t,S,E,Fdd=Text5D=Text4D0=Text3N=Text1ν=Text2ll=Text8L=Text7L0=Text6S=Text10'系统常数εH=2*0.00015/ddεJ=2*0.00015/Daa=3.14*dd^2/4A=3.14*D^2/4C1=ll/(19.6*dd)C2=L/(19.6*D)C3=L0/(19.6*D0)'定义数组D

4、imQ0(50)DimV0(50)Dimλ0(50)DimRe(50)DimH0(50)AsString*5Dimvv(50,50)DimV(50,50)Dimλ(50,50)DimΛ(50,50)Dimqq(50,50)DimQ(50,50)DimReH(50,50)DimReJ(50,50)DimB(50,50)'计算过程qq(1,1)=0.01Δ=0.Fori=1To30'计算第一根鹤管Ifi<>1Thenqq(i,1)=qq(i-1,1)+(i-1)*ΔEndIfQ(i,1)=qq(i,1)vv(i,1)=qq(i,1)/aaReH(i,1)=vv(i,1)*dd/νIfReH(i,

5、1)<2000Thenλ(i,1)=64/ReH(i,1)ElseIfReH(i,1)<3000AndReH(i,1)>2000Thenλ(i,1)=0.16/ReH(i,1)^0.25ElseIfReH(i,1)<59.7/εH^(8/7)AndReH(i,1)>3000Thenλ(i,1)=0.3164/ReH(i,1)^0.25Elseλ(i,1)=(1/(-1.8*Log(6.8/ReH(i,1)+(εH/7.4)^1.11)/Log(10)))^2EndIf'计算第一段集油管V(i,1)=qq(i,1)/AReJ(i,1)=V(i,1)*D/νIfReJ(i,1)<2000Then

6、Λ(i,1)=64/ReJ(i,1)ElseIfReJ(i,1)<3000AndReJ(i,1)>2000ThenΛ(i,1)=0.16/ReJ(i,1)^0.25ElseIfReJ(i,1)<59.7/εJ^(8/7)AndReJ(i,1)>3000ThenΛ(i,1)=0.3164/ReJ(i,1)^0.25ElseΛ(i,1)=(1/(-1.8*Log(6.8/ReJ(i,1)+(εJ/7.4)^1.11)/Log(10)))^2EndIf'计算后面鹤管Forj=2ToNqq(i,j)=qq(i,j-1)Doqq(i,j)=qq(i,j)+0.00001vv(i,j)=qq(i,j)/

7、aaReH(i,j)=vv(i,j)*dd/νIfReH(i,j)<2000Thenλ(i,j)=64/ReH(i,j)ElseIfReH(i,j)<3000AndReH(i,j)>2000Thenλ(i,j)=0.16/ReH(i,j)^0.25ElseIfReH(i,j)<59.7/εH^(8/7)AndReH(i,j)>3000Thenλ(i,j)=0.3164/ReH(i,j)^0.25Elseλ(i