计算放样公式集 BASIC语言程序.docx
《计算放样公式集 BASIC语言程序.docx》由会员分享,可在线阅读,更多相关《计算放样公式集 BASIC语言程序.docx(76页珍藏版)》请在冰点文库上搜索。
计算放样公式集BASIC语言程序
&BASIC
中国化学工程第四建设公司
高用全
目录
前 言…………………………………………………………………………………(3)
第一部分两体相贯展开………………………………………………………………(5)
1.封头与圆管相贯…………………………………………………………………(5)
2.方管与封头垂直体相贯…………………………………………………………(9)
3.直管与封头水平相贯……………………………………………………………(12)
4.直角二节弯头……………………………………………………………………(14)
5.任意角度二节弯头………………………………………………………………(15)
6.任意角度四节弯头………………………………………………………………(17)
7.虾米弯管托………………………………………………………………………(19)
8.圆锥体弯头………………………………………………………………………(21)
9.圆筒上直管………………………………………………………………………(24)
10.圆管与圆筒中心线平行相贯及开孔……………………………………………(25)
11.圆台与圆筒相贯…………………………………………………………………(28)
12.直管与圆筒体斜相贯……………………………………………………………(32)
13.特殊形状圆变方与圆筒相贯……………………………………………………(34)
14.特殊形体圆变圆与圆筒相贯一…………………………………………………(38)
15.特殊形体圆变圆与圆筒相贯二…………………………………………………(41)
16.圆锥与直管垂直相贯……………………………………………………………(45)
17.直管与圆锥水平相贯……………………………………………………………(48)
18.直管与圆锥相贯开孔……………………………………………………………(50)
19.圆管与圆台中心线平行相贯……………………………………………………(53)
20.球体与圆柱相贯(球罐柱腿)…………………………………………………(55)
第二部分单形体展开…………………………………………………………………(58)
21.天圆地方…………………………………………………………………………(58)
22.倾斜天圆地方……………………………………………………………………(60)
23.天圆地方二………………………………………………………………………(63)
24.圆台体大圆弧展开法……………………………………………………………(66)
25.偏心大小头………………………………………………………………………(69)
26.马蹄形体……………………………………………………………………………(72)
27.斜圆台………………………………………………………………………………(75)
附:
BASIC语言程序计算值………………………………………………………………78)
第一部分两体相贯展开
1.封头与圆管相贯
已知:
R、r、a、b、H,求:
圆管素线实长(展开圆管实形)
椭圆封头上的节管是石油化工容器设备上常见的一种,这里计算的是节管的下料长度。
在制造容器设备过程中,对封头上节管下料,很少有人采用放样,而是将节管按图纸上给定的节管尺寸加上足够的余量,事先开好封头上的孔,再将节管插入封头开孔中,然后,顺着封头开孔的边缘画出节管与封头的相贯素线,再进行二次切割下料。
这种方法虽然简单,但浪费材料,。
由于封头的开孔投影是椭圆,实际孔形近似椭圆,在不用样板情况下开孔比较麻烦,往往先开粗孔,然后将管子插入慢慢修割,这种方法很容易造成偏离图纸给定的尺寸。
采用放样后的节管,按图纸标注的位置放在封头上画线,可准确地开出节管与封头相贯的孔。
采用作图法放样展开封头上节管本身很容易,但求相贯线难,难就难在要做多次按节管等分点通过椭圆顶点(俯视图中的圆心)做多次切面,而且每次切面后还要旋转投影面,工作量大旋转又不易掌握,因此,许多人仍然采用上述的“土”方法,但仍可以达到下料的目的。
计算节管下料长度,克服了上述的缺点。
下面介绍计算公式的推导过程:
计算放样一般步骤是:
①、先徒手画出需要展开构件的草图;②、根据二物体相交的特征画出相贯线的大致形状;③、标出构件展开计算的素线;④、根据图纸给定的尺寸和参数推导计算公式。
公式推导过程一般从后向前找出素线与素线、夹角之间的计算关系,也就是先从需要展开的素线入手,确定展开素线与其它素线、夹角的之间的计算关系,如果这些素线和夹角是未知的,还须找出这些素线、夹角与图纸给定的尺寸和参计算关系,再确定它们的最终计算式。
本文为节省篇幅,还是采用顺序方法逐步介绍。
大家知道解析几何中椭圆方程式为:
X表示横坐标的数值,Y表示纵坐标的数值,a为椭圆的长半轴,b为椭圆的短半轴,标准椭圆规定了短半轴
是长半轴的一半,因此,公式化简后为
。
由于公式中的a是本图中的椭圆的半径R,Rn为椭圆方程式中的变量X所以,椭圆方程式:
。
H是椭圆封头口到节管上口的标注尺寸,图纸中一般标注到包括封头直边的高度,这里为了计算方便只标到椭圆方程所能计算到的范围,在实际计算时要首先减去封头直边高度,再将H值代入公式。
公式中的hn、Yn,后面例题中的Ln、Fn等等都表示所需要计算的素线投影长度或素线实长。
素线hn、Yn、Ln、Fn分别表示该系列素线的统称,hn、Yn、Ln、Fn中的n表示素线的序号,h0、h1、h2……hn分别表示h的第0条素线;h的第1条素线;h的第2条素线到h的第n条素线。
为了计算方便,计算式中的θ表示人为等分一个圆中的等分角度,如果一个圆等分24等份,那么,θ为3600的二十四分之一,即θ等于150,2θ为300,nθ等于n×θ。
从主视图中可以直观看出,h1实长等于H减Y1,h2=H-Y2,那么hn=H-Yn,Yn是一个未知的变量,必须先计算出Yn才能求出hn的实长,Yn可以用标准椭圆方程求得。
要计算Yn必须要先计算Rn,Rn在视图中的投影(实长)是一个从节管圆的等分点到圆心的距离,Rn的计算方法有二种,第一种方法是利用勾股定律方法;第二种是本题采用的余玄定理方法。
见下列公式:
(标准椭圆时)
有人不理解,认为Rn投影不是在俯视图中的水平中线上,怎能满足椭圆方程式?
这种理解不是没有道理,这就要求我们要正确掌握各种形体在按“切面法”做形体切面时的断面图形,椭圆体通过椭圆顶点(俯视图中是圆心)的任何方向,做垂直切面的断面图形是椭圆,Rn相当于方程式中的横坐标X。
在计算放样整个过程中,就是通过视图中的投影关系,利用辅助“切面法”计算辅助素线长度,辅助素线长度既可能是投影长度,也可能是实长,利用辅助素线的实长计算出需要开展的素线实长。
一般情况下,在一个圆上等分多少份,就要做辅助“切面”多少次,由于很多视图为对称图形,因此,只要做等份点数的一半切面即可。
这里所说的“切面”不是象作图法中的真实切面,而是虚设一种“切面”,作为解题和思考问题的一种方法,但原理相同。
在实际操作时要灵活运用需要展开素线和辅助素线的投影关系以及空间概念。
hn的实长计算公式:
①
将求Rn公式代入yn,再将求yn的公式代入公式①中,整理得hn的实长公式:
BASIC语言程序
设:
R=1000r=r1=300a=500H=800且设四分之一圆为八等份即:
θ=b=22.50
10LETR=1000
20LETr1=300
30LETa=500
40LETH=800
50LETb=22.5*3.1416/180
60FORn=0TO8
70PRINT"n=";n
80LETx=r1^2+a^2-2*r1*a*COS(n*b)
90LETLn=H-1/2*SQR(R^2-x)
110PRINT"Ln=";Ln
120NEXTn
130END
2.方管与封头垂直相贯
已知:
标准椭圆封头R、F、H、A、B,求:
方管素线LPn、LVn、LDn的实长。
方管与封头相贯,一般为宾馆供热的加热器上常用的接口形式,方管是为加热器的管束的安装设置的,封头上开方孔的容器受力情况较差,一般用在低压和微压容器上,但往往管程压力较高,这是容器计算所涉及的范围,可不必考虑。
这里只考虑怎样展开方管的计算下料。
从俯视图中可以看出方管有四个面组成,P面、D面、V面和E面,V面和E面是对称图形只要计算其中的一个面即可。
每个面可等分若干个点,等分点越多越准确,每个面的等分点到圆心的距离分别用RPn、RDn和RVn表示,从RPn、RDn和RVn作垂直“切面”它们的断面图形为椭圆,将RPn、RDn和RVn看着是椭圆方程式中横坐标的自变量,代入椭圆方程式就可求出方管每个面的高度YPn、YVn和YDn。
RPn、RDn和RVn可用勾股定律求得,见公式①、②、③。
下公式中的Pn、Dn、Vn是根据图纸给定的尺寸,人为设定的等分数的累加。
计算出YPn、YVn和YDn后,再用H分别减去YPn、YVn和YDn中的每一条素线的计算长度,就是我们要展开的LPn、LVn、LDn的实长(实形)。
公式推导如下:
①
②
③
其实长公式:
P面:
V面:
D面:
BASIC语言程序
设:
R=1000F=200H=700A=300B=400
LPRINT"P面"
10LETR=1000
20LETF=200
30LETH=700
40LETA=300
50LETB=400
60FORPn=0TOASTEP50
70PRINT"Pn=";Pn
75LETx=R^2-F^2-Pn^2
80LETLPn=H-1/2*SQR(x)
90PRINT"LPn=";LPn
100NEXTPn
110PRINT"V面"
120FORVn=0TOBSTEP50
125PRINT"Vn=";Vn
130LETx1=R^2-(F+Vn)^2-A^2
140LETLVn=H-1/2*SQR(x1)
150PRINT"LVn=";LVn
160NEXTVn
170PRINT"D面"
80FORDn=0TOASTEP50
190PRINT"Dn=";Dn
200LETx2=R^2-(F+B)^2-Dn^2
210LETLDn=H-1/2*SQR(x2)
220PRINT"LDn=";LDn
230NEXTDn
240END
3.直管与封头水平相贯
已知:
A、H、R、r,求L1~Ln实长。
节管与封头水平相贯,这种形式受压情况较差,一般不采用,这里作为一个特例谋求计算节管的展开实形,而不必考虑其它作用。
这一例题与前面二题有所不同,前例是先求Rn再求Yn,辅助切面是通过椭圆顶点(圆心)作垂直“切面”,计算出Rn的值,而这一题先作主视图中的辅助圆的水平“切面”计算出Yn的高度,Yn的高度在主视图中很直观,它的范围在H-r到H+r之间,Yn的计算公式是:
求出Yn值代入椭圆方程式计算出Rn,Rn是由
演变而来即:
将
代入得
那么Ln计算实长公式为:
Ln=A-Rncosγn计算Ln实长还必须算出γn,γn计算公式是:
γn=arcsin[rsin(nθ)/Rn]必须注意得是:
γn(又可以用θn表示)和nθ是二个完全不同的角度概念,前面讲述过nθ表示n个θ角,γn表示第n个角,γn是由二条素线之间通过反函数反算出的夹角γ1、γ2、……γn分别表示第1个夹角、第2个夹角、到第n个夹角、它的增量不是成倍增加或减小,而是逐渐地增加或减小,例如:
γ1=arctg(L1/B)、γ2=arctg(L2/B),假定γ1等于300,γ1一定不等于600这一点千万不要混淆γn(θn)和nθ两个完全不同的角度概念。
将上述有关公式代入Ln=A-Rncosγn实长公式:
BASIC语言程序
R=1000r=r1=200A=1100H=250γ=x二分之一圆为八等份,
即:
θ=c=22.50
10LETA=1100
20LETR=1000
30LETr1=200
40LETH=250
50LETc=22.5*3.1416/180
60FORn=0TO8
70PRINT"n=";n
80Yn=r1*COS(n*c)+H
90PRINT"Yn=";Yn
100LETRn=SQR(R^2-4*Yn^2)
110LETx=r1*SIN(n*c)/Rn
120LETwn=ATN(x/SQR(1-x^2))
130LETLn=A-Rn*COS(wn)
140PRINT"Ln=";Ln
150NEXTn
160END
4.直角(二节)弯
已知:
d、h,求实长即y0、y1~yn
直角弯头的展开计算是所有计算展开公式中最简单的一种,由方法简单这里不再叙述,请读者自己分析。
d=2r因为是等直角管(900),故α=450、tgα=1
展开实长公式为:
BASIC语言程序
设:
h=600r=1/2d=300且设:
二分之一圆为八等份,即:
a=22.50
10LETh=600
20LETr=300
30LETa=22.5*3.1416/180
40FORn=0TO8
55PRINT"n=";n
50LETLn=h-r*COS(n*a)
60PRINT"Ln=";Ln
70NEXTn
80END
5.任意角度弯头(二级)
已知:
β、h、R,求L1、L2~Ln实长
直角二节弯头是任意角度二节弯的一种特殊形式,但比任意角度弯头常用,任意角度的计算公式同样适合于直角二节弯。
在直角弯头中辅助线与相贯线的夹角α是450,因为tg450=1,底边边长就等于对边的高,因此计算公式中可以省略正切450在公式中的乘。
本题辅助线与相贯线的夹角用γ表示,弯头的任意角度用β表示,γ与β之间的关系是:
γ=900-β/2。
Ln的实长等于A加yn即:
Ln(实长)=A+yn要计算Ln的实长还必须求出A和yn从视图上可以看出:
A=h-Rtgγ。
计算yn的公式是:
yn=[R-Rcos(nθ)]tgγ,yn是整个计算式的核心,只要弄清其道理,其它就迎刃而解。
接下来举例y2的求法来说明,视图中2点对应的高是y2,2点到中心点(也是辅助圆的圆心)的长度就是2点到3点的距离,2到3点的计算公式是:
Rcos(2θ),因此,0到2点长度是半径R减去2到3点的长度,即:
R-Rcos(2θ),那么y2长度等于0到2点长度乘以2θ的正切,即:
y2=[R-Rcos(2θ)]tgγ。
求出y2的实长,所计算展开的L2的实长就一目了然,即L2(实长)=A+[R-Rcos(2θ)]tgγ。
由此推论求实长通用公式为:
BASIC语言程序
设:
β=b=1350γ=dh=400且设:
二分之一圆为八等份,即:
θ=c22.50
10LETb=135
20LETR=300
30LETd=(90-b/2)*3.1416/180
40LETh=400
50LETA=h-R*TAN(d)
60LETc=22.5*3.1416/180
70FORn=0TO8
75PRINT"n=";n
80LETLn=A+(R-R*COS(n*c))*TAN(d)
90PRINT"Ln=";Ln
100NEXTn
110END
6.任意角度弯头(四节)
已知:
β、R、r和N节(本图曾四节),求L1、L2~Ln实长。
四节虾米弯是低压管道中最常见的一种管件,一般为90度。
计算公式为了适合任何角度四节弯的计算,特介绍带有通用性的任意角度四节弯。
一般四节弯是由二大节和二小节组成,二小节之和等于一大节,实际上是由相同的三节组成,展开时只要计算其中的一个小节,其大节是小节的对称图形。
β是弯头的角度,由于一大节是二小节的之和,因此,β1=β/2(N-1),本题中的β1相当于上题中的γ,其公式的推导与上题基本相同,推导过程如下,这里不再赘述。
L0=(R-r)tgβ1yn=[r-rcos(nθ)]tgβ1
Ln=L0+ynLn=[r-rcos(nθ)]tgβ1+(R-r)tgβ1
Ln(实长)=Rtgβ1-rcos(nθ)tgβ1
求实长的通用公式:
BASIC语言程序
设:
β=b=22.5R=1000r=R1=250且设:
二分之一圆为八等份,即:
θ=a=22.50
10LETR=1000
20LETR1=250
30LETa=22.5*3.1416/180
40LETb=22.5*3.1416/180
50FORn=0TO8STEP1
55PRINT"n=";n
60LETL=(R-R1*COS(n*a))*TAN(b)
70PRINT"L=";L
80NEXTn
90END
6.1方法之二
10LETr=1000
20LETr1=250
30LETb=22.5*3.1416/180
40LETa=22.5*3.1416/180
50INPUTn
60IFn=-1THENGOTO110
65LETy=n*a
70IFy>3.1416THENGOTO110
80LETl=(r-r1*COS(y))*TAN(b)
90PRINT"n=";n,"l=";l
100GOTO50
110END
7.虾米弯管托
已知:
A、B、R、β求管托Ln实长。
管托在管道中作为管件和管道支撑,硫酸装置的转化工段设有多处。
视图中管托高(A)与弯头相交部分h=A-C为了直观反映管托与弯头相贯实形,作一辅助投影面P面,从P面上可以看出,L0是一个点,其实长等于0,L1到Ln已经反映了实际长度,如若采用作图法展开就可直接量出L1到Ln的实长。
我们将h分成若干等份,即n等份,那么h1表示n等份中的一份;h2表示n等份中的二份;hn表示n等份中的n份,也就是等份之间的累加。
现在,我们举例分析L2实长的求法:
从P面视图知道
即:
(①式)。
R是给定的常数半径;Y2是一个未数,Y2由主视图h2、β夹角和P面视图中的R之间的关系求得。
主视图中的0到2的长度等于h2cosβ,h2是人为等分hn的一个已知数。
P面视图中的Y2,它等于R-h2cosβ,再将Y2代入公式①就计算出L2的实长。
其它素线实长的求法以此类推。
管托的Ln计算公式:
在BASIC语言程序里为了一次计算完所有需要计算参数,增设了An=C+hn公式,它也适合人工计算。
其实在划样图时也间接用到An=C+hn公式。
BASIC语言程序
设:
A=1200C=400R=1000β=B=300
10LETA=1200
20LETC=400
30LETw=30*3.1416/180
40LETh=A-C
50LETR=1000
60FORhn=oTOhSTEPh/10
65LETAn=C+hn
70PRINT"An=";An
80LETLn=2*SQR(R^2-(R-(hn*COS(B)))^2)
90PRINT"Ln=";Ln
100NEXThn
110END
8.圆锥(台)