测量程序设计及应用1

1、 编制:郑文和李鹏远单位:北京市城远市政工程有限责任公司测量程序设计及应用测量程序设计及应用摘摘 要要:测量程序在施工测量中的应用与开发。 关键词关键词：测量程序 应用 开发 AbstractAbstract:The measuring programs are usage and development in the constructional measurement. Key wordsKey words: measuring program usage development 过去，我们搞测量数据处理大部分都要靠计算器一步一步套用公式计算。特别是对一些较为复杂的曲线上任一点测量放线，大

2、量的数据计算给我们公司的测量人员带来繁重的负担，有时还容易出错。随着科学的发展和电脑的普及，特别是公司又搞了计算机区域联网。怎样利用现在的办公自动化条件更好地为测量工作服务，来解决测量工作中计算的一些难题，提高工作效率，我们结合公司的现有条件及施工特点。借助fx-CASIO4800p计算器，设计了几个常用的测量程序。圆曲线、缓和曲线偏角、弦长计算，直线、曲线任意点极坐标放样计算，竖曲线、平曲线高程计算。这里以缓和曲线任意点的极坐标放样为例作一简单介绍，其它就不再一一赘述。源程序见附表。在说明程序功能之前，先介绍一下传统手工计算缓和曲线任意点的极坐标的方法。主要分以下几步：1、计算缓和曲线弦长。

3、 x=L-L5/40R2I2 y=L3/6RI-L7/336R3I3 C=yx222、计算缓和曲线偏角。 =573L2/60RI3、根据切线方位角计算线路中点方位角。 =14、根据端点坐标、弦长、方位角计算线路中点坐标。 x=x1+Ccos y=y1+Csin5、计算极坐标。 S= =arctg(（y-y测) /（x-x测) )6、如要计算两边桩的极坐标，不仅需计算出线路测测yyxx22 中心点的坐标，而且还需通过偏角的关系重复3、4、5步骤才能算出放样点的极坐标。 如要计算下一放样点的极坐标，那么必须重复1- 6步骤。而利用测量程序计算时，只要把所设计的源程序输入CASIOfx-4800p计

4、算器，即可调用对所放样的数据进行计算。首先计算器提示你输入测站点坐标，再输入直缓点或缓直点坐标，输入曲线参数，线路中线在切线方向右侧O输入+1，左侧O输入-1。如要放样线路两边桩，那么输入要放样点相对线路中线的距离。此时只要输入曲线上任一里程，即可计算出这一里程要放样的左、中、右三点的坐标和测站点与其的相对距离和方位角。计算完这一点只需输入下一点的里程数，即可计算出放样点的所需数据，缓 和 曲 线 实 例 计 算 （ 万 泉 河 主 路 ） 输 入 左 边 距 输 入 O 判 断 折 角线 路 中 点中 输 入 半 径右中左 输 入 切 线 方 位 角 输 入 计 算 点 里 程 线 路左 5

5、m 输 入 下 一 个 计 算 点 里 程 输 出线 路右 1 0m 输 入 测 站 点 坐 标 输 入 Z H 点 坐 标 输 入 Z H 点 里 程 输 入 缓 和 曲 线 长输 出 输 入 右 边 距输 出测 站 点不需要重复输入上述数据，即可连续计算要放样点的数据。直线上任一点的极坐标放样计算，圆曲线上任一点的极坐标放样计算程序同样有上述功能。圆曲线偏角、弦长计算程序只要输入圆曲线半径，任一点里程数，再输入要计算点里程，即可算出这两点间弦长与偏角。可连续计算下一里程的弦长与偏角。缓和曲线偏角、弦长计算程序只要输入缓和曲线半径、缓和曲线长、缓和曲线起点或终点里程，再输入要计算点里程，即可

6、算出这两点间弦长与偏角。可连续计算下一里程的弦长与偏角。竖曲线高程计算程序首先输入变坡点高程值，再输入坡度、半径、切线长、起点里程或终点里程，凸形曲线输入+1，凹形曲线输入-1。只要输入任一点里程，即可算出这点高程值。利用测量程序计算其优点有：1、每一个程序均可循环计算，输入起始参数后可减少大量的重复计算。2、准确、快速、不易出错。尤其在复杂的计算中更为突出，大大提高了工作效率。3、配合测距仪，在测量过程中有全站仪之功效。4、这种测量程序简单易学、适用范围广，有一定的推广应用潜力。虽然借助CASIO计算器进行编程计算，解决了测量计算这一大问题，但也有其不足之处，它无法与打印机连接。在进行大量的

7、数据计算时，手工记录结果给测量工作带来了诸多不便。鉴与此，我们利用C语言进行了测量程序设计,直线、曲线等坐标计算源程序见附录。通过编译程序对源程序进行翻译产生以“obj”为扩展名的目标程序，再经过连接程序（LINK）连接定位形成以“EXE”为扩展名的可执行程序。将“EXE”的程序装入计算机即可对放样数据进行计算。全中文提示，每个人一看便能运用。在永丰科技园区市政工程，万泉河道路扩建工程，西北旺市政工程等的建设过程中得到了很好的运用，显现出了它的优越性，得到了同行们的一致好评，具有一定的推广应用价值。当然也有其不足之处，有待进一步完善。 fx-CASIO-4800p缓和曲线极坐标缓和曲线极坐标

8、放样程序放样程序X:Y:AX0:BY0“:Z:C:P:R:O:D:HLb11LG=Abs(L-Z)-Abs(L-Z)5)(40R2D2):E=Abs(L-Z)3)(6RD)-Abs(L-Z)7)(336R3D3):S=(G2+E2):U=EG:W=tan-1U:F=A+Scos(H+(W)O)K=B+Ssin(H+(W)O)Pol(F-X,K-Y):IJJ=J+360JV=F+Ccos(H+(3W)O+270)M=K+Csin(H+(3W)O+270)Pol(V-X,M-Y):IJJ=J+360JN=F+Pcos(H+(3W)O+90)Q=K+Psin(H+(3W)O+90)Pol(N-X,Q

9、-Y):IJJ=J+360JGoto1fx-CASIO-4800p圆曲线极坐标放样程序圆曲线极坐标放样程序X:Y:AX0:BY0“:Z:C:P:H:R:OLb11LW=(57.2958(Abs(L-Z)R)2:E=2Rsinw:F=A+Ecos(H+(W)O)K=B+Esin(H+(W)O)Pol(F-X,K-Y):IJJ=J+360JS=F+Ccos(H+(2W)O+270)M=K+Csin(H+(2W)O+270)Pol(S-X,M-Y):IJJ=J+360JN=F+Pcos(H+(2W)O+90)Q=K+Psin(H+(2W)O+90)Pol(N-X,Q-Y):IJJ=J+360JGot

10、o1 fx-CASIO-4800p直线极坐标放样程序直线极坐标放样程序X:Y:AX0:BY0“:Z:C:P:RLb11LF=A+(L-Z)cosRK=B+(L-Z)sinRPol(F-X,K-Y):IJJ=J+360JS=F+Ccos(R+270)M=K+Csin(R+270)Pol(S-X,M-Y):IJJ=J+360JN=F+Pcos(R+90)O=K+Psin(R+90)Pol(N-X,O-Y):IJJ=J+360JGoto1 fx-CASIO-4800p圆曲线弦长、圆曲线弦长、偏角程序偏角程序R:O:QLb14LA=1719(L-Q)（O）R60X=(L-Q)（O）-(L-Q)(O)3

11、6R2+(L-Q)(O)5120R4:Y=(L-Q)（O）)22R-(L-Q)(O)424R3(L-Q)(O)6720R5:C=(X2+Y2)Goto4 fx-CASIO-4800p缓和曲线缓和曲线弦长、偏角程序弦长、偏角程序R:O:Q:ILb15LA=573(L-Q)（O）)2RI60X=(L-Q)（O）-(L-Q)(O)5I240R2:Y = ( ( L - Q ) （ O ） ) 3 I 6 R - ( ( L -Q)(O)7336R3I3:C=(X2+Y2)Goto5 fx-CASIO-4800p竖曲线竖曲线高程程序高程程序G:I:O:R:T:Q:ILb16LY=(L-Q)22R:H=

12、G-(T-Abs(L-Q)I（O）-Y(O)Goto6fx-CASIO-4800p平曲线平曲线 高程程序高程程序G:Q:ILb17LH=G+(L-Q)IGoto7 C C语言语言圆曲线坐标计算程序圆曲线坐标计算程序#includemath.h#definePI3.1415926main()floatd,f,m,l,z,g,e,x,y,x1,y1,x2,y2,x3,y3,p,c,r,o;printf(欢迎使用圆曲线坐标计算程序n);printf(设计单位:北京市城远市政有限责任公司n);printf(设计者:郑文和李鹏远n);printf(警告:版权所有,盗版必究.n);printf(输入起点坐

13、标:x=);scanf(%f,&x1);printf(输入起点坐标:y=);scanf(%f,&y1);printf(输入方位角:);scanf(%f,%f,%f,&d,&f,&m);printf(线路中线在切线方向右侧输入+1,左侧输入-1:);scanf(%f,&o);printf(输入半径:);scanf(%f,&r);printf(输入起点里程:);scanf(%f,&z);printf(输入左边距:);scanf(%f,&p);printf(输入右边距:);scanf(%f,&c);doprintf(输入计算点里程:);scanf(%f,&l);g=57.2928*(l-z)/r/2

14、/180*PI;e=2*r*sin(g);x=x1+e*cos(d+f/60+m/3600)/180*PI+g*o);y=y1+e*sin(d+f/60+m/3600)/180*PI+g*o);x2=x+p*cos(d+f/60+m/3600+270)/180*PI+(2*g)*o);y2=y+p*sin(d+f/60+m/3600+270)/180*PI+(2*g)*o);x3=x+c*cos(d+f/60+m/3600+90)/180*PI+(2*g)*o);y3=y+c*sin(d+f/60+m/3600+90)/180*PI+(2*g)*o);printf(x中=%7.3fy中=%7.

15、3f,x,y);printf(x左=%7.3fy左=%7.3f,x2,y2);printf(x右=%7.3fy右=%7.3fn,x3,y3);while(r); C C语言缓和曲线坐标计算程序语言缓和曲线坐标计算程序#includemath.h#definePI3.1415926main()doublew,e,g,s;floatd,f,m,l,z,p,c,r,o,t;x,y,x1,y1,x2,y2,x3,y3;printf(欢迎使用缓和曲线坐标计算程序n);printf(设计单位:北京市城远市政有限责任公司n);printf(设计者:郑文和李鹏远n);printf(警告:版权所有,盗版必究.n

16、);printf(输入起点坐标:x=);scanf(%f,&x1);printf(输入起点坐标:y=);scanf(%f,&y1);printf(输入方位角:);scanf(%f,%f,%f,&d,&f,&m);printf(线路中线在切线方向右侧输入+1,左侧输入-1:);scanf(%f,&o);printf(输入半径:);scanf(%f,&r);printf(输入缓和曲线长:);scanf(%f,&t);printf(输入起点里程:);scanf(%f,&z);printf(输入左边距:);scanf(%f,&p);printf(输入右边距:);scanf(%f,&c);doprint

17、f(输入计算点里程:);scanf(%f,&l);g=(l-z)-pow(l-z),5)/(40*r*r*t*t);e=pow(l-z),3)/(6*r*t)-pow(l-z),7)/(336*r*r*r*t*t*t);s=sqrt(g*g+e*e);w=atan2(e,g);x=x1+s*cos(d+f/60+m/3600)/180*PI+w*o);y=y1+s*sin(d+f/60+m/3600)/180*PI+w*o);x2=x+p*cos(d+f/60+m/3600+270)/180*PI+(3*w)*o);y2=y+p*sin(d+f/60+m/3600+270)/180*PI+(3

18、*w)*o);x3=x+c*cos(d+f/60+m/3600+90)/180*PI+(3*w)*o);y3=y+c*sin(d+f/60+m/3600+90)/180*PI+(3*w)*o);printf(x中=%7.3fy中=%7.3f,x,y);printf(x左=%7.3fy左=%7.3f,x2,y2);printf(x右=%7.3fy右=%7.3fn,x3,y3);while(r); C C语言直线坐标计算程序语言直线坐标计算程序#includemath.h#definePI3.1415926main()floatd,f,m,l,z,x,y,x1,y1,x2,y2,x3,y3,p,c;printf(欢迎使用直线坐标计算程序n);printf(设计单位:北京市城远市政有限责任公司n);p