服务热线:
您的位置: 主页 > 新闻中心 > 行业动态 >

椭圆封头卧式储罐的体积椭圆封头卧式储罐在化工生产中的应用还是比较多的

发布日期:2021-11-25 01:06   浏览量:

椭圆卧式贮槽液体体积计算源程序代码(可连续运算)

CLS

INPUT "d=", d1

INPUT "l=", l1

INPUT "ellipse(1/0)=", y

INPUT "wd=", wd

INPUT "Dv=", DV

e = .001

d = d1 / 1000

椭圆封头体积_标准椭圆封头卧式容器液体体积计算软件 注册码_椭圆封头 液位 体积

l = l1 / 1000 + 2 * wd / 1000

v = DV

pi = 3.14159265#

R = d / 2

X0 = -R + .00001

A$ = "V="

B$ = "M^3"

C$ = "H="

d$ = "mm"

椭圆封头体积_椭圆封头 液位 体积_标准椭圆封头卧式容器液体体积计算软件 注册码

OPEN "1.DAT" FOR OUTPUT AS #1

PRINT #1, " ---------------RESULT---------------"

PRINT #1, " "; "d="; d1; "mm", "L="; INT(l1 / 100) * 100; "mm"

PRINT #1, " "; "ellipise = "; y

XH: IF ABS(X0 - R) > e THEN

FOR X = X0 TO R - .00001 STEP .0001

T = X / R

vf = pi / 2 * (R ^ 2 * (X + R) - 1 / 3 * (X ^ 3 + R ^ 3))

Vt1 = l * X * SQR(R ^ 2 - X ^ 2)

标准椭圆封头卧式容器液体体积计算软件 注册码_椭圆封头体积_椭圆封头 液位 体积

Vt2 = l * (R ^ 2 * ATN(T / SQR(1 - T ^ 2)) + pi / 2 * R ^ 2)

Vt = Vt1 + Vt2

vz = Vt + y * vf

IF ABS(vz - v) < e THEN

X0 = X

PRINT #1, " "; A$; INT(v * 10000 + 2) / 10000!; B$, " "; C$; 1000 * (X + R); d$

PRINT " "; "V="; INT(v * 10000 + 2) / 10000!; "M^3", " "; "H="; 1000 * (X + R); "mm"

v = v + DV

END IF

标准椭圆封头卧式容器液体体积计算软件 注册码_椭圆封头 液位 体积_椭圆封头体积

NEXT X

END IF

vzz = pi / 4 * d ^ 2 * l + y * 2 * pi / 3 * (d / 2) ^ 3

h = d1 / 1000

PRINT #1, " "; A$; vzz; B$, " "; C$; 1000 * (X + R); d$

PRINT " "; "V="; vzz; "M^3", " "; "H="; INT(d1); "mm"

CLOSE

END

多年前自编了的程序,用以在自己的工作中进行液位的计算。程序的说明

椭圆封头 液位 体积_标准椭圆封头卧式容器液体体积计算软件 注册码_椭圆封头体积

1、将代码以QBASIC程序打开,F5运行;

2、出现“d=”,输入槽的直径,单位为“mm”,回车;

3、出现“l=”,输入槽的筒体长度标准椭圆封头卧式容器液体体积计算软件 注册码,不包括直边高度,单位为“mm”,回车;

4、出现“ellipse(1/0)=”,输入槽的封头形式,1为椭封,0为平头,回车;

5、出现“Wd=”,输入槽的直边高度,单位为“mm”,回车;

6、出现“Dv=”,输入槽液位标尺的间隔,如0.2、0.4、0.5,单位为“m3”,回车;

7、出现计算结果标准椭圆封头卧式容器液体体积计算软件 注册码,同时生成数据文件“1.DAT”

8、如有疑问,欢迎讨论。

老帖子开新花了,呵呵。

在线咨询 联系方式 二维码

服务热线

扫一扫,关注我们