油库自流装卸系统上机编程实验报告.docVIP

3 - 1题目： 某油库的自流装卸系统，如图所示，装油管设置在集油管中部，且两侧鹤管同时装油，两侧鹤管对称布置。油库油料为车用汽油，操作条件下车用汽油的粘度为 0.6×10-6m2/s，鹤管采用Φ108×4的钢管，鹤管计算长度为25m，鹤管间距为12.5m，集油管为Φ219×6，输油管为Φ159×5，输油管计算长度为1500m，油库库容为30000m3，单个罐的容量为3000m3，油罐内径为 （1）计算鹤分别管数为20和30，液位高度为3m和10m时所对应的各鹤管流量？ （2）操作鹤管数为30，发油量为1500m3，开始发油时液位高度为12m?， 2．1程序框图： 开 机 开 机 输入参数 输入参数 n 计算常数 计算常数 = =+ V(1) V(1) (1) hf1(1) u(1) hf2(1) i=2 to n/2 i=2 to n/2 (i)= (i)= (i-1)+ hf1(i) hf1(i) (i) + +++ YES u(i-1) (i) hf2(i) u(i-1) (i) hf2(i) =2( =2(+………+)； = +hf1(1)+hf2(1)+………+hf2(n/2)+ +hf1(1)+hf2(1)+………+hf2(n/2)+ +Z 输出Q1(1) 输出Q1(1)……Q1（n/2）； 输入发油量V0 算Z1=Z0-V0/F；调用过程再算Q1 输入发油量V0 算Z1=Z0-V0/F；调用过程再算Q1 T=2V0/（Q1+Q0） T=2V0/（Q1+Q0） 结 束还需要另外调用过程算摩阻 结 束 3程序代码: 3．1该程序的执行顺序如下: 3．1．1:显示封面窗体,启动 3．1．2:单击“计算”命令按钮,封面窗体消失,显示基本参数设置界面;此时如果单击“退出”命令,则程序结束. 3．1．3:修改各个参数后,单击“计算发油时间”命令按钮,进入计算时间窗体;单击“计算各鹤管流量”命令按钮则进入鹤管界面.单击“返回”按钮,回到启动窗体. 3．1．4:进入计算时间窗体后,再输入各个变量.单击确定后显示发油时间.单击“返回”按钮,回到上一级窗体. 3．1．5:进入鹤管窗体后, 再输入各个变量.单击“输出图形”命令按钮后显示平均流量与液面高度图.单击“返回”按钮,回到该窗体. 3．1．6:在鹤管窗体里,单击“显示各鹤管流量”命令按钮,则显示鹤管数一半的各管流量.单击“返回”按钮,回到该窗体. 3．2封面窗体程序： Private Sub Command1_Click() Form2.Show Form1.Hide End Sub Private Sub Command2_Click() End End Sub 3．3基本参数窗体程序： Private Sub Command1_Click() Form3.Show Form2.Hide End Sub Private Sub Command2_Click() Form4.Show Form2.Hide End Sub Private Sub Command3_Click() Form1.Show Form2.Hide End Sub 3．4时间窗体程序： Private Sub Command1_Click() Cls AutoRedraw = True Dim hf As Single, V() As Single, u() As Single, hf1() As Single Dim hf2() As Single, hf0 As Single, Q1() As Single, Q2() As Single d1 = Val(Form2.Text1.Text): d2 = Val(Form2.Text2.Text): d0 = Val(Form2.Text3.Text) L1 = Val(Form2.Text4.Text): L2 = Val(Form2.Text5.Text): L0 = Val(Form2.Text6.Text) pi = 3.14: t1 = 0.00001: t2 = 0.00001: e = 0.0002: g = 9.8 p = Val(Form2.Text7.Text): H0 = Val(Form2.Text8.Text) n = Val(Form3.Text1.Text): Z0 = Val(Form3.Text2.Text): V0 = Val(Form3.Text3.Text) A1 = (pi * d1 ^ 2) / 4: A2 = (pi * d2 ^ 2) /