excel在天圆地方制作中的应用

《excel在天圆地方制作中的应用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、EXCEL在天圆地方制作中的应用摘要：本文介绍了如何利用Excel电子表格自动计算不同规格的天圆地方的放样参数。同时着重讲述了从公式推导到Excel内部函数的编写以及电子表格的具体制作与应用整个过程。关键词：Excel表格天圆地方参数在天圆地方的制作放样过程中大部分是重复的投影与计算，既费时又费力。同时随着计算机的广泛普及和使用者水平的不断提高，人们开始用计算机来代替人工解决一些实际问题。笔者运用Excel电子表格对不同规格天圆地方的放样参数(画展开图时所需的连线长)进行精确计算从而大大提高了施工速度，增强了企业的创新能力。1.天圆地方及其放样过程概述天圆地方又名方圆变径

2、管，被广泛应用于圆断面与矩形断面的风管与设备间的连接。如圆通风管与风机出口，空调机组与风机进口等场合的连接。其放样过程简要如下：(1)先将上圆均分为若干等分，并将上圆各等分点与矩形角点依次相连，即将其分成若干个小三角形(如图1)。(1)利用直角三角形定理先求出其在投影面上的长，再利用该值与天圆地方的高求出各连线空间实长。并同时求出圆上任意两个相邻点间的弧长。（3）用（2）中求得的空间实长与圆上任意两个相邻点间的弧长作展开图（如图2）。由上述步骤可知传统放样过程的确较为繁琐，当天地方为偏心或制作精度要求较高的情形时则更为繁琐。因此，寻找其快捷方式具有一定的现实意义。2.计算

3、公式的推导本文以两个方向偏心的天圆地方为例进行推导，以求出天圆地方放样参数的通用公式。假设现需制作一天圆地方，其上圆半径为r，矩形长为a宽为b其上下端面在长边方向上的偏心矩为e1，在短边方向上的偏心矩e2，天圆地方的高为h，同时结合实际将上圆等分数定为n（n—般为4的倍数，图中取为12）。建立三维坐标本文通过建立三维坐标将原来所需的两次计算减为经一次计算即可得出结果。先以X轴平行于矩形长边，Y轴平等于矩形短边，Z轴过圆心并平行于天圆地方的高，建立三维直角坐标系。同时根据实际情况将圆周进行n等分，并将各等分点与矩形角点相连（如图1）。则各相关点的坐标分别为：A（，，0）;B

4、（，，0）;C（，，0）;D（，，0）;E（，0,0);Fi(rcosi0,rsini0,h)其中i=0，1，•••n；0=2/no如图所示A、B、C、D为矩形角点，E为AD与X轴的交点，F为圆上等分点。公式推导：结合上述各点坐标再利用空间两点间的距离公式可求出各连线在空间实长：AFi=其中i=0，1，…，n/4；BFi=其中i=n/4，n/4+l,…,n/2；CFi=其中i=n/2，n/2+1，…，n/4；DFi二其中i二3n/4，3n/4+l，…，n;EF0=；FiFi+l=其中i=0，1，…，n-1。计算公式优化：由于圆的等分量n为可变量故要在Exce1中逐行编辑公

5、式显然行不通，而对矩形角点A、B、C、D分区域编辑又因其区域分界点不甚明显，且若所编辑的内容过于繁琐既影响运算速度又易出错。故有必要对公式进行优化，以利于对其进行编辑。表1:j与Kl、K2、i关系表：jKlK2il〜n/4+1110~n/4n/4+2〜n/2+2-lln/4〜n/2n/2+3〜3n/4+3-1-ln/2〜3n/43n/4+4〜n+41-13n/4〜n将各连线自E0起逆时针进行编号并记为j（j=0,1，…，n+4）如图1。并引入参数Kl、K2,使矩形各角点坐标可统一标为（，，0）。显然对于点A有K1=K2=1，对于点B有-K1=K2=1，对于点C有K1=K2

6、=-1，对于点D有K1=-K2=1。则j与Kl、K2、i关系如表1所示。则其空间各连线计算公式可简化为：sh[j]=式中j=l，2,…，n+4;：电子表格的制作：根据需要先建立一Excel电子表格的模板，在具体应用时可根据实际将其再作调整。首先制作出如图3所示的表头。表格中灰底格是计算机自动计算结果显示处。下面分步介绍自动计算表格的设计过程。图3线段编号列（A列）的编辑：由于线段编号从0至n+4依次递增，故该列单元格中数值为行号减5,所以该列可作如下编辑。先单击单元格A5,然后在编辑栏中输入：=ROW（A5）-5再按ENTER键完成该单元格的编辑。接着将A5选中，然后用鼠

7、标左键点住A5右下脚的小黑方块，向下拖拽至A（n+8）的下端，抬起左键。其中ROW（A5）表示求单元格A5的行号。线段j对应的圆上等分点编号列（B列）的编辑：由表1可知：当线段编号j=0，1时对应圆上点i=0;当线段编号j=n/4+2时，对应圆上点I=n/4；当线段编号j=n/2+3时，对应圆上点i=n/2;当线段编号j=3*n/4+4时，对应圆上点i=3*n/4;其余i值均为上一个i值加1。故在B5上可编辑为：=IF(OR(ROW(B5)=5，ROW(B5)=6)，0,IF(A5=I5/4+2，15/4,IF(A5=15/2