公路测量程序集

公路平面测量放线计算程序II行LJFY1 [主程序名，适用于对称曲线lS+Ly+lS]LJFY2 [主程序名，适用于非对称曲线lS1+Ly+lS2及匝道等，将曲线分为前后两个单元段输入参数,超出该段后则重输单元曲线参数○MRG,亦可用于对称曲线]F [子程序名，极坐标放线程序]M [子程序名,对称曲线lS+Ly+lS参数储存器]例某段路线起点桩号K0+000；第1曲线:交点坐标(1000,1111),LS=50,R=150,第1方位角A1=120°0′0″,左转,HZ点K1+100；第2曲线:交点坐标(2000,2222),LS=60,R=250,A1=100°0′0″,右转,HZ点K2+200；第3曲线:交点坐标(3000,3333),LS=70,R=350,A1=125°0′0″,右转,A2=130°0′0″,HZ点K3+300；。

则该段路线曲线参数(虚数形式)储存器M子程序如下：1 M=1000+1111i:R=50-150i:U=120°+100°i:Z=0+1100i [第一曲线单元交点JD1(M),圆半径R(路线左转输负值),两头回旋曲线长H相等,第一、二直线方位角U、G,起点桩号一般为交点JD0桩号或前ZH点桩号，Z令HZ1点桩号为第一曲线单元终点桩号]2 K>1100=>M=2000+2222i:R=60+250i:U=100°+125°i:Z=1100+2200iΔ[桩号K超出K1+100，进入第二曲线单元]3 K>2200=>M=3000+3333i:R=70+350i:U=125°+130°i:Z=2200+3300iΔ[中间曲线单元，在此略]n K>KHZ=>M=XJDn+iYJDn:R=Lsn+iRn:U=An-1+iAn:Z=KZHn+KHZnΔ [桩号K超出第n-1曲线单元，进入第n曲线单元,提示:若把子程序M作为一段落曲线参数库,子程序N作为另一段落曲线参数库,…,则该程序将能处理路线长、短链桩号段及线外工程等的测量放线。

FX5800计算器公路测量常用程序集2.2 版一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化：1、调整一次显示结果；2、交点法中考虑了不对称缓和曲线；3、修改原版本部分地方笔误.(红色为修改处)二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。

输入-2,返回选择线路。

坐标计算中输入-3,则显示本段曲线要素。

程序名：0ZCXLbl 0: 24→DimZ：Norm 2:1→A：＂A:XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9＂?A:A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4:A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:A=9=>Goto 9Lbl 1:Prog＂DX＂:LbI A:Prog＂QX＂:90→B:＂PJ1＂?B:B→C:＂PJ2＂?C:B→Z[1]:C→Z[8]:Lbl B:1→F:＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>GotoX:Prog＂KM＂:?D:Porg＂THB＂:0→L:＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E)→X:Y+Lsin(E) →Y:Prog＂XY＂:Prog＂JS＂:Goto BLbl 2:2→F:90→Z[1]:Prog＂QX＂: Lbl C:＂DKLC＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂X0＂?X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto CLbI 3:Prog＂QX＂:→B:＂H-B＂?B:B→Z[9]:＂SXG＂?L:Lbl D:＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 3:?D:＂ZS＂?P: Porg＂H＂:Fix 3:＂SJG=＂:Lcoate 6,4,H-Z[9]:＂SCG=＂:Lcoate 6,4,F:＂I=＂:Locate 6,4,I×100: If U<0:Then ＂W=＂: Locate 6,4, U: Else＂T=＂: Locate 6,4, U : IfEnd◢Goto DLbl 4:Prog＂QX＂:LbI E:＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog＂GD＂:Fix 3:＂ SJGD=＂:Locate7,4,L: Goto ELbl 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[23]:Lbl F:2→F:90→Z[1]:＂KM＂?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog＂KM＂:＂X0＂?X:＂Y0＂?Y:0→M:＂M0＂?M: M→Z[4]:Prog＂FBX＂:Fix 2: P→D ：Abs（D）-S→O: ＂ L0=＂:Locate 6,4,O:Prog＂ZD＂: Z[4]→T:＂ TW=＂:Lcoate 6,4,T◢ Goto FLbl 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]:＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:?D:Prog＂THB＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M: ＂M0＂?M:Fix 2:H-M→T:＂ TW=＂:Locate 6,4,T◢ Goto HLbl 7:Prog＂DX＂:LbI I:Prog＂QX＂: ＂Z0＂?Z:0→D: ＂LD:Z-,Y+＂? D:Abs(D) →R:＂LR＂?R: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: ＂L0:DZH+,XZH-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂ZP＂:Goto JLbl 8:Prog＂DX＂:Lbl K:?X:X=-1=>Goto 0:X=-2=>Goto 8:?Y:Prog＂JS＂:Goto KLbl 9:Porg＂DX＂:Lbl L:Prog”QX”:Lbl M:2→F:90→Z[1]: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto L:Z=-3=>Goto X: Prog＂SD1＂: 0.5→A:＂CQHD＂?A:“X0＂?X:＂Y0＂?Y:0→M:＂M0＂?M:M→Z[8]:A→Z[15]:Prog＂SD＂: Goto M: Lbl X:Mat F◢ Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：FBXProg“THB”:D→P:Prog“GD”:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd:Lbl H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W-1”:If Z[4]<0:Then –Z[4]→G:Goto W:Else Z[4] →G:Goto T:IfEnd:Lbl W: Z[10]+Z[11] +Z[12] +Z[13]→A: Z[10]+Z[11]+Z[12]→B:Z[10]+Z[11]→C: If G>A:Then Goto 1:Else If G>B:Then Goto 2:Else If G>C:Then Goto 3:Else If G>Z[10]:Then Goto 4:Else Goto 5:IfEnd:Lbl 1: L+Z[14]+Z[15]+Z[16]+Z[17]+Z[18]+(G-A)×Z[9]+Z[13]×Z[8]+Z[12]×Z[7]+Z[11]×Z[6]+Z[10]×Z[5]→S:Goto Z:Lbl 2: L+Z[14]+Z[15]+Z[16]+Z[17]+(G-B)×Z[8]+Z[12]×Z[7]+Z[11]×Z[6]+Z[10]×Z[5]→S:Goto Z:Lbl 3:L+Z[14]+Z[15]+Z[16]+(G-C)×Z[7]+Z[11]×Z[6]+Z[10]×Z[5]→S:Goto Z: Lbl 4:L+Z[14]+Z[15]+(G-Z[10])×Z[6]+Z[10]×Z[5]→S:Goto Z:Lbl 5:L+Z[14]+G×Z[5] →S:Goto Z:Lbl T:L+Z[23]→T:If G>Z[21]:Then T+Z[22] +Z[21]×Z[19]+(G-Z[21])×Z[20]→S:Goto Z:Else T+G×Z[19]→S:Goto Z: IfEnd:Lbl Z3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：SDProg “KM”:Prog“THB”: D→Z[13]:0→D:Prog“H”:Cos(Z[10])×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:Lbl R:√((Z[13]-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4]-Z[15] →L:Goto L:Lbl S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 )×S÷Abs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6]-Z[15] →L:Goto L:Lbl L: Fix 2: “L0=”: Locate 6,4,L:Prog“ZD”:“H0=”: Locate 6,4,Z[8]-H◢4：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JS(一式)X：Y：Z[11]→K:Z[12]→L:Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J: Fix 4: “FWJ=”: Locate 6,4,J:Fix 3:“JL=”:Locate 6,4,I◢JS(二式)X：Y：Z[11]→K:Z[12]→L:Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEndFix 3:“JL=”:Locate 6,4,I: J▲DMS◢5．路基宽度子程序：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名： GD1→S: Prog “G-1”:Z-C→E: E ×(B-A)/S+A→L:6．坐标计算次程序程序名：THBIf Q>1:Then Goto J: Else 1÷P→C:(P-R)÷(2HPR)→S:180÷π→E:IfF=1:Then Abs(Z-O) →W:Prog "A":Ｇoto 2:Else X→I:Y→J:Prog ＂B＂:O＋Ｗ→Z:D→D:Ｇoto 2: IfEnd:LbI J: If F=1:Then Prog "Z":Ｇoto 1:Else Prog ＂ZX＂:Ｇoto 2: IfEnd: LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: LbI 27. 线元法正算子程序(Ａ)程序名：A0.1184634425→A: 0.2393143352→B：0.2844444444→N：0.0→K：0.2307653449→L：0.5→M：U+W(Acos(G+QEKW(C+KWS))+Bcos(G+QELW(C+LWS))+Ncos(G+QEMW(C+MWS))+Bcos(G+Q E(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS)))→X:V+W(Asin(G+QEKW(C+KWS))+Bsin(G+QELW(C+LWS))+Nsin(G+QEMW(C+MWS))+Bsin(G+Q E(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WS))) →Y:G+QEW(C+WS)→Z[2]:X+Ｄcos（Z[2]+Z[1]）→Ｘ: Y+Ｄsin（Z[2]+Z[1]）→Ｙ8. 线元法反算子程序(Ｂ)程序名： B G-90→T：Abs((Y-V)cos(T)-(X-U)sin(T))→W：0→D：Lbl 0：Prog "A"：T+QEW(C+WS)→L：(J-Y)cos(L)-(I-X)sin(L)→D：IF Abs(D)<0.01:Then Goto 1：Else W+D→W:Goto 0: IfEnd: Lbl 1:0→D：Prog "A"：(J-Y)÷sin(Z[2]+90) →D9. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R）÷Sin(Abs(P))-((H∧(4)-N∧(4))/2688/R∧(3))÷Sin(Abs(P))→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P)→W:0→M:H→C:If Z≤O -T:Then Z-O→S:G→Z[2]:Goto 2: IfEnd:If Z≤O -T+H:Then Z-O +T→S:Prog “HX”:G+WK→Z[2]:Goto 4:IfEnd:If Z≤O -T+πR×Abs(P)÷180+H÷2-N÷2: Then 180(Z-O +T-0.5H)÷R÷π→S : A+R(1-Cos(S))→B : H÷2-H∧(3)÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]:Goto 4: IfEnd:O -T+πR×Abs(P)÷180+H÷2+N÷2-Z→S:(R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→T :N→H:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3:Lbl 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G)→J: Goto 3:Lbl 2:U+Scos(Z[2])→I:V+Ssin(Z[2])→J: LbI 3:C→H10. 交点法缓和段转化子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)→B:90S2÷π÷R÷H→K:RH÷S→M11. 交点法反算子程序(ZX)程序名：ZXZ:0→D:Lbl 0:Prog“Z”:Pol(X-I,Y-J):J-Z[2]→J:Isin(J)→S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMπ)/180→I:Z+I→Z:Goto 0:IfEnd:LbI 212．高程计算子程序（H）程序名：HProg “S-1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z<C-T:Then G+I(Z-C→H:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto 0: IfEnd:N→I: G+I(Z-C→H:Lbl 0:If D=0:Then H→H: I→I:Goto I:Else Prog “I”:H+V→H:Abs(L-13.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog“I-1”:Goto 1:Else If Z[3]=2:Then Prog“I-2” :Goto1: Else If Z[3]=3:Then Prog“I-3” :Goto 1: Else If Z[3]=4:Then Prog“I-4” :Goto 1: Else If Z[3]=5:Then Prog“I-5” :Goto 1: Else IfZ[3]=6:Then Prog“I-6” :Goto 1: Else Prog“I-7”:Goto 1: IfEnd:Lbl 1: If W=1:Then Goto Z:Else Goto X: IfEnd :Lbl Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:Lbl X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:Lbl 2:Abs(D)→E:V÷E→I:I(E-K)→V14．导线点子程序（DX）程序名：DXZ[11]→K:Z[12]→L:“XZ”?K:“YZ”?L:K→Z[11]:L→Z[12]15．线路选择子程序(线路选择输0时,则输曲线参数)（QX）程序名：QX1→A:“LX:XX-1,XA-2,XB-3,XC-4,XD-5,XE-6,XF-7”?A:A→Z[3]:If A=0:Then Goto 1:Else Goto 2: IfEnd:Lbl 1:“JDO”?O:“XO”?U:“YO”?V:“FW”?G:“LS”?H:?P:?R:“J=2,3;X=(0,1,-1)”?Q:If Q=2:Then H→N:Goto 2:Else If Q=3:Then“LS”?N:Lbl 216．线路中线元段判别子程序（KM）程序名：KMIf Z[3]=0:Then Goto 0:Else If Z[3]=1:Then Prog “XX-1”:Goto 0: Else If Z[3]=2:Then Prog “XA-2”:Goto 0: Else If Z[3]=3:Then Prog “XB-3”:Goto 0: Else If Z[3]=4:Then Prog “XC-4”:Goto 0: Else IfZ[3]=5:Then Prog “XD-5”:Goto 0: Else If Z[3]=6:Then Prog “XE-6”:Goto 0: Else Prog “XF-7”:Goto 0: IfEnd: LbI 017．坐标计算参数转化子程序（F）程序名：FMat F[1,1]→O:Mat F[1,2]→U:Mat F[1,3]→V:Mat F[1,4]→G:Mat F[1,5]→H:Mat F[1,6]→P:Mat F[1,7]→R: Mat F[1,8]→Q:Q=2=>H→N:Q=3=>Mat F[1,9]→N18.桥梁锥坡放样子程序（ZP）程序名：ZP√(Z[6]2（1-Y2/Z[7]2）) →X:Z[8] →Z:Prog“GD”:If D>0:Then L+X→D:Else –L-X→D:IfEnd:Z[8]+Y→Z:D:1→F:90→Z[1]:Prog“KM”:Prog“THB”:Prog“XY”:Prog“JS”19．显示子程序（XY）和（ZD）①程序名：XYFix 3:＂XS=＂:Locate 6,4,Ｘ：＂YS=＂:Locate 6,4,Ｙ：②程序名：ZDFix 3:＂KM=＂:Locate 6,4,Z：＂ D=＂:Locate 6,4,Z：20．数据子程序(附后示例)①-1程序名：X X-1（线路1坐标计算要素程序）If Z≤26615.555:Then [[25900,11587.421,1847.983, 101。

公路施工的测量工作程序工程测量按其工作顺序和性质分为：勘测设计阶段的工程控制测量和地形测量；施工阶段的施工测量;竣工和管理阶段的竣工测量。

众所周知，工程施工测量是用精密测量工具采用先进的技术手段把工程设计图纸上的位置、几何形状、数据等真实地放样到实地的一门技术，其精度的高低、好坏，直接影响着工程建设项目的质量等级、结构、安全以及内外型部造和建成后的使用功能等。

因此必须避免此类事件的出现，防患于未然，首先应对测量仪器设备进行仪器的计量鉴定检测，并配备足够的测量人员。

工程项目中标后,施工准备阶段的测量工作主要有:编制测量工作规划；开工前的交接桩；控制点的复测、加密;放样检查及审核土石方工程量。

一、编制测量规划测量规划是整个项目测量过程中的指导方向和行动纲领，在施工准备阶段编制测量规划是为以后开展现场施工工作的必要准备.测量规划应包括以下内容:1．测量工作的依据，应包括有关规范、图纸、验收标准、招投标文件及本单位的有关文件（如本公司的作业指导书）等。

规范主要有公路路基施工技术规范、公路沥青路面施工技术规范、沥青路面施工与验收规范、水泥混凝土路面施工及验收规范、公路桥涵施工技术规范、工程测量规范等，验收标准主要为公路工程质量检验评定标准。

2．仔细查阅设计图纸精度要求及本工程技术规范要求，按照本工程的工作内容依据配备有关测量仪器设备。

3．编制测量工作程序和工作制度。

必须坚持现场施工放样后自检、监理抽检为原则的工作程序,同时监理认为是重点的或认为有怀疑的要加大复查力度，必要时全面检查.二、开工前的交接桩1．进场后,第一步工作就是联测导线,此时应该先问清楚，设计院的导线是平面坐标还是高斯坐标。

高程的获得是用什么方法，是水准还是GPS。

在交接桩位过程中一定要注意点位的完好及与交桩资料的吻合,同时要做好交接记录，交接记录中应注明桩的完好性，有破损或与点位与资料不符时应注明且需各方签字认可，如控制桩不能满足路线控制要求时必须要求业主、设计单位重新交桩。

FX5800计算器公路测量常用程序集2.2 版一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化：1、调整一次显示结果；2、交点法中考虑了不对称缓和曲线；3、修改原版本部分地方笔误.(红色为修改处)二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。

输入-2,返回选择线路。

坐标计算中输入-3,则显示本段曲线要素。

程序名：0ZCXLbl 0: 24→DimZ：Norm 2:1→A：＂A:XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9＂?A:A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4:A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:A=9=>Goto 9Lbl 1:Prog＂DX＂:LbI A:Prog＂QX＂:90→B:＂PJ1＂?B:B→C:＂PJ2＂?C:B→Z[1]:C→Z[8]:Lbl B:1→F:＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>GotoX:Prog＂KM＂:?D:Porg＂THB＂:0→L:＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E)→X:Y+Lsin(E) →Y:Prog＂XY＂:Prog＂JS＂:Goto BLbl 2:2→F:90→Z[1]:Prog＂QX＂: Lbl C:＂DKLC＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂X0＂?X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto CLbI 3:Prog＂QX＂:→B:＂H-B＂?B:B→Z[9]:＂SXG＂?L:Lbl D:＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 3:?D:＂ZS＂?P: Porg＂H＂:Fix 3:＂SJG=＂:Lcoate 6,4,H-Z[9]:＂SCG=＂:Lcoate 6,4,F:＂I=＂:Locate 6,4,I×100: If U<0:Then ＂W=＂: Locate 6,4, U: Else＂T=＂: Locate 6,4, U : IfEnd◢Goto DLbl 4:Prog＂QX＂:LbI E:＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog＂GD＂:Fix 3:＂ SJGD=＂:Locate7,4,L: Goto ELbl 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[23]:Lbl F:2→F:90→Z[1]:＂KM＂?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog＂KM＂:＂X0＂?X:＂Y0＂?Y:0→M:＂M0＂?M: M→Z[4]:Prog＂FBX＂:Fix 2: P→D ：Abs（D）-S→O: ＂ L0=＂:Locate 6,4,O:Prog＂ZD＂: Z[4]→T:＂ TW=＂:Lcoate 6,4,T◢ Goto FLbl 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]:＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:?D:Prog＂THB＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M: ＂M0＂?M:Fix 2:H-M→T:＂ TW=＂:Locate 6,4,T◢ Goto HLbl 7:Prog＂DX＂:LbI I:Prog＂QX＂: ＂Z0＂?Z:0→D: ＂LD:Z-,Y+＂? D:Abs(D) →R:＂LR＂?R: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: ＂L0:DZH+,XZH-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂ZP＂:Goto JLbl 8:Prog＂DX＂:Lbl K:?X:X=-1=>Goto 0:X=-2=>Goto 8:?Y:Prog＂JS＂:Goto KLbl 9:Porg＂DX＂:Lbl L:Prog”QX”:Lbl M:2→F:90→Z[1]: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto L:Z=-3=>Goto X: Prog＂SD1＂: 0.5→A:＂CQHD＂?A:“X0＂?X:＂Y0＂?Y:0→M:＂M0＂?M:M→Z[8]:A→Z[15]:Prog＂SD＂: Goto M: Lbl X:Mat F◢ Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：FBXProg“THB”:D→P:Prog“GD”:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd:Lbl H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W-1”:If Z[4]<0:Then –Z[4]→G:Goto W:Else Z[4] →G:Goto T:IfEnd:Lbl W: Z[10]+Z[11] +Z[12] +Z[13]→A: Z[10]+Z[11]+Z[12]→B:Z[10]+Z[11]→C: If G>A:Then Goto 1:Else If G>B:Then Goto 2:Else If G>C:Then Goto 3:Else If G>Z[10]:Then Goto 4:Else Goto 5:IfEnd:Lbl 1: L+Z[14]+Z[15]+Z[16]+Z[17]+Z[18]+(G-A)×Z[9]+Z[13]×Z[8]+Z[12]×Z[7]+Z[11]×Z[6]+Z[10]×Z[5]→S:Goto Z:Lbl 2: L+Z[14]+Z[15]+Z[16]+Z[17]+(G-B)×Z[8]+Z[12]×Z[7]+Z[11]×Z[6]+Z[10]×Z[5]→S:Goto Z:Lbl 3:L+Z[14]+Z[15]+Z[16]+(G-C)×Z[7]+Z[11]×Z[6]+Z[10]×Z[5]→S:Goto Z: Lbl 4:L+Z[14]+Z[15]+(G-Z[10])×Z[6]+Z[10]×Z[5]→S:Goto Z:Lbl 5:L+Z[14]+G×Z[5] →S:Goto Z:Lbl T:L+Z[23]→T:If G>Z[21]:Then T+Z[22] +Z[21]×Z[19]+(G-Z[21])×Z[20]→S:Goto Z:Else T+G×Z[19]→S:Goto Z: IfEnd:Lbl Z3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：SDProg “KM”:Prog“THB”: D→Z[13]:0→D:Prog“H”:Cos(Z[10])×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:Lbl R:√((Z[13]-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4]-Z[15] →L:Goto L:Lbl S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 )×S÷Abs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6]-Z[15] →L:Goto L:Lbl L: Fix 2: “L0=”: Locate 6,4,L:Prog“ZD”:“H0=”: Locate 6,4,Z[8]-H◢4：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JS(一式)X：Y：Z[11]→K:Z[12]→L:Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J: Fix 4: “FWJ=”: Locate 6,4,J:Fix 3:“JL=”:Locate 6,4,I◢JS(二式)X：Y：Z[11]→K:Z[12]→L:Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEndFix 3:“JL=”:Locate 6,4,I: J▲DMS◢5．路基宽度子程序：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名： GD1→S: Prog “G-1”:Z-C→E: E ×(B-A)/S+A→L:6．坐标计算次程序程序名：THBIf Q>1:Then Goto J: Else 1÷P→C:(P-R)÷(2HPR)→S:180÷π→E:IfF=1:Then Abs(Z-O) →W:Prog "A":Ｇoto 2:Else X→I:Y→J:Prog ＂B＂:O＋Ｗ→Z:D→D:Ｇoto 2: IfEnd:LbI J: If F=1:Then Prog "Z":Ｇoto 1:Else Prog ＂ZX＂:Ｇoto 2: IfEnd: LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: LbI 27. 线元法正算子程序(Ａ)程序名：A0.1184634425→A: 0.2393143352→B：0.2844444444→N：0.0→K：0.2307653449→L：0.5→M：U+W(Acos(G+QEKW(C+KWS))+Bcos(G+QELW(C+LWS))+Ncos(G+QEMW(C+MWS))+Bcos(G+Q E(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS)))→X:V+W(Asin(G+QEKW(C+KWS))+Bsin(G+QELW(C+LWS))+Nsin(G+QEMW(C+MWS))+Bsin(G+Q E(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WS))) →Y:G+QEW(C+WS)→Z[2]:X+Ｄcos（Z[2]+Z[1]）→Ｘ: Y+Ｄsin（Z[2]+Z[1]）→Ｙ8. 线元法反算子程序(Ｂ)程序名： B G-90→T：Abs((Y-V)cos(T)-(X-U)sin(T))→W：0→D：Lbl 0：Prog "A"：T+QEW(C+WS)→L：(J-Y)cos(L)-(I-X)sin(L)→D：IF Abs(D)<0.01:Then Goto 1：Else W+D→W:Goto 0: IfEnd: Lbl 1:0→D：Prog "A"：(J-Y)÷sin(Z[2]+90) →D9. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R）÷Sin(Abs(P))-((H∧(4)-N∧(4))/2688/R∧(3))÷Sin(Abs(P))→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P)→W:0→M:H→C:If Z≤O -T:Then Z-O→S:G→Z[2]:Goto 2: IfEnd:If Z≤O -T+H:Then Z-O +T→S:Prog “HX”:G+WK→Z[2]:Goto 4:IfEnd:If Z≤O -T+πR×Abs(P)÷180+H÷2-N÷2: Then 180(Z-O +T-0.5H)÷R÷π→S : A+R(1-Cos(S))→B : H÷2-H∧(3)÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]:Goto 4: IfEnd:O -T+πR×Abs(P)÷180+H÷2+N÷2-Z→S:(R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→T :N→H:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3:Lbl 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G)→J: Goto 3:Lbl 2:U+Scos(Z[2])→I:V+Ssin(Z[2])→J: LbI 3:C→H10. 交点法缓和段转化子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)→B:90S2÷π÷R÷H→K:RH÷S→M11. 交点法反算子程序(ZX)程序名：ZXZ:0→D:Lbl 0:Prog“Z”:Pol(X-I,Y-J):J-Z[2]→J:Isin(J)→S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMπ)/180→I:Z+I→Z:Goto 0:IfEnd:LbI 212．高程计算子程序（H）程序名：HProg “S-1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z<C-T:Then G+I(Z-C→H:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto 0: IfEnd:N→I: G+I(Z-C→H:Lbl 0:If D=0:Then H→H: I→I:Goto I:Else Prog “I”:H+V→H:Abs(L-13.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog“I-1”:Goto 1:Else If Z[3]=2:Then Prog“I-2” :Goto1: Else If Z[3]=3:Then Prog“I-3” :Goto 1: Else If Z[3]=4:Then Prog“I-4” :Goto 1: Else If Z[3]=5:Then Prog“I-5” :Goto 1: Else IfZ[3]=6:Then Prog“I-6” :Goto 1: Else Prog“I-7”:Goto 1: IfEnd:Lbl 1: If W=1:Then Goto Z:Else Goto X: IfEnd :Lbl Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:Lbl X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:Lbl 2:Abs(D)→E:V÷E→I:I(E-K)→V14．导线点子程序（DX）程序名：DXZ[11]→K:Z[12]→L:“XZ”?K:“YZ”?L:K→Z[11]:L→Z[12]15．线路选择子程序(线路选择输0时,则输曲线参数)（QX）程序名：QX1→A:“LX:XX-1,XA-2,XB-3,XC-4,XD-5,XE-6,XF-7”?A:A→Z[3]:If A=0:Then Goto 1:Else Goto 2: IfEnd:Lbl 1:“JDO”?O:“XO”?U:“YO”?V:“FW”?G:“LS”?H:?P:?R:“J=2,3;X=(0,1,-1)”?Q:If Q=2:Then H→N:Goto 2:Else If Q=3:Then“LS”?N:Lbl 216．线路中线元段判别子程序（KM）程序名：KMIf Z[3]=0:Then Goto 0:Else If Z[3]=1:Then Prog “XX-1”:Goto 0: Else If Z[3]=2:Then Prog “XA-2”:Goto 0: Else If Z[3]=3:Then Prog “XB-3”:Goto 0: Else If Z[3]=4:Then Prog “XC-4”:Goto 0: Else IfZ[3]=5:Then Prog “XD-5”:Goto 0: Else If Z[3]=6:Then Prog “XE-6”:Goto 0: Else Prog “XF-7”:Goto 0: IfEnd: LbI 017．坐标计算参数转化子程序（F）程序名：FMat F[1,1]→O:Mat F[1,2]→U:Mat F[1,3]→V:Mat F[1,4]→G:Mat F[1,5]→H:Mat F[1,6]→P:Mat F[1,7]→R: Mat F[1,8]→Q:Q=2=>H→N:Q=3=>Mat F[1,9]→N18.桥梁锥坡放样子程序（ZP）程序名：ZP√(Z[6]2（1-Y2/Z[7]2）) →X:Z[8] →Z:Prog“GD”:If D>0:Then L+X→D:Else –L-X→D:IfEnd:Z[8]+Y→Z:D:1→F:90→Z[1]:Prog“KM”:Prog“THB”:Prog“XY”:Prog“JS”19．显示子程序（XY）和（ZD）①程序名：XYFix 3:＂XS=＂:Locate 6,4,Ｘ：＂YS=＂:Locate 6,4,Ｙ：②程序名：ZDFix 3:＂KM=＂:Locate 6,4,Z：＂ D=＂:Locate 6,4,Z：20．数据子程序(附后示例)①-1程序名：X X-1（线路1坐标计算要素程序）If Z≤26615.555:Then [[25900,11587.421,1847.983, 101。

4800公路测量放样计算程序CASIO fx-4800P计算器程序DA DI——N E (公路弯道坐标计算)K“JD”：R：S“LS”：F“PJ——L－R＋”：A“ZH——N”：B“ZH——E”：C“JD——N”：D“JD——E”M“ZH”=K－（R＋S2÷（24R））tan（Abs F÷2）－S÷2＋S^3÷（240R2）▲N“HY”=M＋S▲O“QZ”=M＋（πRAbs F÷180＋S）÷2▲Z[1]“YH”=M＋πRAbs F÷180▲Q“HZ”= Z[1]＋S▲T=K－M▲L=Q－M▲E=（R＋S2÷（24R））÷cos（F÷2）－R▲Lb1 0：{G}：G“ZHUANG HAO”：G＜O＝=＞Z=G－M≠=＞Z=Q－G：△{U}：U“I——B OUT＋IN－”Z＜S＋0.005＝=＞H=tan-1（24Z2S2R2－Z^6）÷（48Z^3R^3－6Z^4SR））：V=Z－Z^5÷（40S2R2）＋Usin H：W=Z^3÷（6SR）－Z ^7÷（336Z^3R^3）－Ucos H：≠=＞H=180（Z －S÷2）÷（πR）：V=Rsin H＋S÷2－S^3÷（240R2）＋Usin H：W=R－Rcos H＋S2÷（24R）－Ucos H：△F＜0＝=＞G＜O＝=＞X=V：Y=W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Tsin Abs F －Vsin Abs F＋Wcos F：△≠=＞G＜O＝=＞X=V：Y=－W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Vsin Abs F－Tsin Abs F－Wcos F：△△C=A＝=＞D≥B＝=＞P=90：≠=＞P=270：△≠=＞C＜A＝=＞P= tan-1（（D－B）÷（C－A））＋180：≠=＞P= tan-1（（D－B）÷（C－A））：△△I“COM——N”=A＋√（X2＋Y2）cos（P－tan-1（Y÷X））▲J“COM——E”=B＋√（X2＋Y2）sin（P－tan-1（Y÷X））▲G=G＋20Goto 0程序运行输入：JD？——交点桩R？——圆曲线半径LS？——缓和曲线长度PJ——L－R＋？——偏角右偏为正ZH——N？——ZH点N坐标ZH——E？——ZH点E坐标JD——N？——JD点N坐标JD——E？——JD点E坐标输出：ZH= ——ZH点桩号HY= ——HY点桩号QZ= ——QZ点桩号YH= ——YH点桩号HZ= ——HZ点桩号T= ——切线长L= ——曲线长E= ——外矢距再输入：ZHUANG HAO？——输入任一点桩号I——B OUT＋IN－？——距中线距离（外侧为正）再输出：COM——N= ——计算出N坐标COM——E= ——计算出E坐标以此循环——再输入——再输出程序中各字母所代表的含义：A——ZH点N坐标B——ZH点E坐标C——JD点N坐标D——JD点E坐标E——外矢距F——偏角（右偏为正）G——弯道内任一点桩号H——弯道内任一点切线角I——计算出的N坐标J——计算出的E坐标K——交点桩号L——曲线长M——ZH点桩号N——HY点桩号O——QZ点桩号P——ZH--JD方位角Q——HZ点桩号R——圆曲线半径S——缓和曲线长度T——切线长U——距中线距离（外侧为正）V——支距W——支距X——弯道内坐标Y——弯道内坐标Z——任一点曲线长度Z[1]——YH点桩号有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序四、QXZB(曲线坐标)A＂ZH(ZH)=″:B＂X(ZH)=″:C＂Y(ZH)=″ ＂X(HZ)=″:E＂Y(HZ)=″:F＂FWJ-1=″:G＂FWJ-2=″:H＂R=″:I＂L1=″:J＂L=″:K＂L2=″:L＂ZJ(Z=1,Y=-1)=″O=180/pi (pi为圆周率，电脑中找不到此符号以此代替)LbI A{MN}M＂ZHUANG HAO=″P=M-AMM>(A+I+J+K)?GOTO A⊿N＂ZHUANG JU(Z+,Y-)=″M>(A+I+J)?GOTO D⊿M>(A+I)?GOTO C⊿LbI B(第一缓和曲线)X=B+(P-(P5÷40÷H2÷I2))COSF+(P3÷6÷H÷I-P7÷336÷H3÷I3)LSINFY=C+(P-(P5÷40÷H2÷I2))SINF-(P3÷6÷H÷I-P7÷336÷H3÷I3)LCOSFX=X+NCOS(F-(P2÷2÷H÷I)OL-90)◢Y=Y+NSIN(F-(P2÷2÷H÷I)OL-90)◢GOTO ALbI C(圆曲线)X=B+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))COSF-(H(1-COS(((P-I )÷H+I÷2÷H)O))+ I2÷24÷H)(-1)LSINFY=C+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))SINF+(H(1-COS(((P-I )÷H+I÷2÷H)O))+I2÷24÷H)(-1)LCOSFX=X+NCOS(F-((P-I)÷H+I÷2÷H)OL-90)◢Y=Y+NSIN(F-((P-I)÷H+I÷2÷H)OL-90)◢GOTO A回答人的补充 2009-06-21 01:41LbI D(第二缓和曲线)Q=A+I+J+K-MX=D-(Q-Q5÷40÷H2÷K2)COSG+(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LSINGY=E-(Q-Q5÷40÷H2÷K2)SING-(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LCOSGX=X+NCOS(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢Y=Y+NSIN(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢GOTO A变量说明：以上变量依次为：ZH(ZH)=直缓点桩号，无缓和曲线则为直圆点；X(ZH)=直缓点X坐标；无缓和曲线则为直圆点；Y(ZH)=直缓点Y坐标，无缓和曲线则为直圆点；X(HZ)=缓直点X坐标，无缓和曲线则为圆直点；Y(HZ)=缓直点Y坐标，无缓和曲线则为圆直点；FWJ-1=第一切线方位角；FWJ-2=第二切线方位角；R=半径；L1=第一缓和曲线长；L=圆曲线长；L2=第二缓和曲线长；ZJ(Z=1,Y=-1)=转角形式(左=1，右=-1)ZHUANG HAO=所求点桩号ZHUANG JU(Z+,Y-)=边桩桩距，左边桩为正，右为负，中桩0我已经用过了，没发现什么问题，请大家提意见。

筑龙网w w w .z h u l o n g .c o m公路工程施工测量控制管理程序**********集团公司前 言工程测量是工程建设的重要环节，是重要的技术基础工作，它贯穿于施工的全过程，是组织施工的依据，它的根本任务是按照《设计文件》、《招标文件》、《技术规范》等，将设计图纸上的建筑物准确地标定到指定的地面位置。

随着企业改革的不断深化，各单位在向管理要效益、将施工技术与经济效益紧密挂钩的同时，也逐渐认识到施工测量在其中的重要作用——优化施工组织设计、验工计价、变更增量、对下承、发包的工程量的确定等等，都需要实地测量以提供有效的基础数据。

国家经济建设的发展，公路工程基础建设将向山区及偏、远、难的地方发展。

施工条件越来越艰难，施工测量的工作也变得繁重和复杂，也对应用于施工现场的测量仪器设备的先进程度、从事测量工作人员的技术水平提出了更高一级的要求。

本人多年从事综合性公路工程施工测量工作，结合施工现场经验及平时所学，总结一套适合于公路工程施工的《公路工程施工测量控制管理程序》，详细阐明了在一项大的综合性公路工程建设当中，从工程上场到工程竣工，测量工作需要把握工作内容中的关键问题和注意事项，对提高测量成果水平，避免测量事故的发生，规范施工现场管理，提高测量人员的工作效率和质量，很有借荐意义，欢迎各界朋友和同行批评指正。

公路工程施工测量工作分为施工准备阶段、施工阶段、竣工验收阶段。

第一节 施工准备阶段 施工准备阶段的测量工作是整个建设项目的龙头性工作，这一阶段性工作在整个的施工测量工作当中占有主导地位。

这一阶段性的工作做得是否及时、到位将直接影响到施工方案的确定和施工组织的正确实施。

项目工程中标后，要求在短时间内迅速组成测量大队，测量大队及小组成员中，必须有至少一人能够熟练应用AutoCAD、Excel 及Casio-fx4800p 等计算机应用程序，有条件的单位可以配备测量软件，并有足够的测量仪器设备，满足施工复测的需要。

道路测量程序大全（2）一、程序设计1．测量放样计算主程序CLFY↵V=19:Fixm:Rad↵{OEFG}:O”1.XL2.SD”:E”DZ”:F”DH”:G”AH”↵Pol(Z[F+52]-Z[E+52],Z[F+62]-Z[E+62]) ↵D=πG÷180-J↵Lbl 1↵Goto 2◣⇒1≠O↵{KQ}:K”KF”:Q”BL”↵Prog ”ZB”↵X=X+Rec(Q,U+π÷2):Y=Y+J↵Goto 3↵Lbl 2↵{XY}:X”XF”:Y”YF”↵Lbl 3↵Pol(X-Z[E+52],Y-Z[E+62])I”S=”◢↵I=J+DI>↵I=I-2π◣⇒2πI<↵I=I+2π◣⇒0↵I=180I÷πI”A=”◢Goto 12．线路坐标计算主程序XLZB↵Rad↵Fixm↵{O}:O”1.ZX2.BX”↵Q=0↵Lbl 1↵{K}:K”K”↵{QG}:Q”L”:G”AJ”◣⇒1≠O↵Prog ”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+J X”X=”◢Y”Y=”◢U=180U÷π:U”AT=”◢⇒O=1↵◣Goto 13．线路高程计算主程序XLGC↵V=11:Fixm↵Lbl 0↵{KQ}:K”K”:Q”L”↵Prog ”KD”↵Prog ”GC”C”H=”◢Goto 04．边桩放样计算主程序BZFY↵Fixm↵Rad↵{Z}:Z”1.CJ 2.QZ 3.QS”↵Z[11]=0:Goto 1◣⇒Z=2↵ Goto 1◣⇒Z=3↵{MNGU}:M”DZ”:N”DH”:G”HZ”:U”AH”↵Z[8]=Z[M+52]:Z[9]=Z[M+62]↵C=Z[N+52]:A=Z[N+62]↵Pol(C-Z[8],A-Z[9]):Z[10]=J-πU÷180:Z[11]=G↵Lbl 1↵Goto 2◣⇒Z=2↵{EBFD}:B”AQ”:E”S”:D”HD”:F”HY”↵Rec(E,Z[10]+πB÷180):X=Z[8]+I:Y=Z[9]+J:Goto 3 ↵Lbl 2↵{EBD}:E”N”:B”E”:D”Z”:F=0:X=E:Y=B↵Lbl 3↵Prog “FQ”G=D+Z[11]-F:G”H”◢↵Prog “FY”Goto 15．线路坐标计算子程序ZB↵Prog ”YS”↵X=74445.797↵Y=501515.278↵S=771.296-K↵B=A+C+πS>↵Goto 1◣⇒L↵I=SSS÷6÷R÷L↵J=S-S^5÷(40RRLL)↵U=B-SS÷(2RL)-π:Goto 2↵Lbl 1↵U=(2S-L)÷R÷2↵I=R(1-cos U)+Z[5]:J=Rsin U+Z[6]↵U=B-(S-L÷2)÷R+π↵Lbl 2↵Pol(I,J):J=J+B-π÷2↵X=Rec(I,J)+X↵Y=Y+JU<U=U+2π◣⇒06．曲线要素计算子程序YS↵R=280↵L=84.7↵S=-0.6769479859↵A=-2.415291254↵N=-1↵C=1.738343268↵Z[5]=1.067572917↵Z[6]=42.31770592↵T=374.9146895Z[7]=RC+L7．线路高程计算子程序GC↵W=13↵Lbl 1↵P=Z[W+7]K>↵W=W+1:Goto 1◣⇒Z[W]-P ↵W=14◣⇒W=13↵Goto 2◣⇒V=W-1↵V=W-1↵J=Z[V+4]↵R=(J-Z[V+3])÷(Z[V]-Z[V-1]) ↵S=(Z[V+5]-J)÷(Z[V+1]-Z[V]) ↵T=Z[V+7]↵Lbl 2↵L=K-Z[V]↵H=J+RL:Goto 3◣⇒L≤-T↵H=J+SL:Goto 3◣⇒L≥T↵A=2T÷(S-R)↵X=L+A(R+S)÷2↵H=J+XX÷2÷A-ARS÷2↵Lbl 3↵H=H-Z[1]↵A=Abs Q↵C=0:Goto 6◣⇒A≤Z[4]↵I=-1Q>↵I=1◣⇒0↵Lbl 4↵Y=23↵Lbl 5↵Y=Y+1:Goto 5◣⇒K≥Z[Y]↵O=Z[Y+2]:X=Z[Y+3]:O=IO:X=IX↵O=2◣⇒Z[Y+2]=0↵X=2◣⇒Z[Y+3]=0↵N=(Z[Y]-K)÷(Z[Y]-Z[Y-1])↵M=(X-O)(1-3NN+2NNN)+O↵C=(Z[4]-A)M÷100:Goto 6◣⇒A≤Z[2]↵C=0.04(Z[2]-A)-M(Z[2]-Z[4])÷100M>↵C=(Z[4]-A)M÷100◣⇒4↵Lbl 6C=H+C8．反求线路桩号子程序FQ↵Prog ”YS”↵Z[4]=74445.797↵Z[3]=501515.278↵K=771.296:Q=0:Goto 2◣◣⇒Z[3]=Y⇒Z[4]=X ↵Q=Z[4]:K=Z[3]:G=S+π÷2↵Prog ”ZH”↵G=LL÷6÷R:Q=L-LLL÷40÷R÷R↵Pol(G-H,Q-W):K=J+π÷2+L÷2÷Rcos K<↵Goto 1◣⇒0↵Pol(H-(R+Z[5]),W-Z[6])↵K=771.296-R(π-J)-L÷2↵Q=R-I↵Goto 2↵Lbl 1↵K=1:U=L↵Prog ”HQ”↵K=771.296-O:Q=-Q↵Lbl 2↵M=1000↵K=Intg (MK+0.5)÷M↵Q=Intg (MQ+0.5)÷MZ”KD=”◢Q”WB=”◢9．坐标转换计算子程序ZH↵H=X-Q:W=Y-K↵Pol(H,W)↵G=J-GH=Icos G:W=Isin G10．反求缓曲长度子程序HQ↵A=K÷46080÷R^6÷U^6↵P=H÷3840÷R^5÷U^5↵C=13K÷5760÷R^4÷U^4↵T=KW÷384÷R^4÷U^4↵G=H÷48÷R^3÷U^3↵I=K÷(15RRUU)↵J=KW÷(8RRUU)↵L=H÷(2RU)↵N=KW↵S=W↵Lbl 7M=AS^13+PS^10-CS^9+TS^8-GS^6+IS^5-js↵^4+LSS-KS+NQ=13AS^12+10PS^9-9CS^8+8TS^7-6GS^5+5IS^4-4js↵^3+2LS-K ↵O=S-M÷QAbs (O-S)<↵Goto 8◣⇒1E-5↵S=O↵Goto 7↵Lbl 8↵T=KOOO÷6÷U÷R↵P=O-O^5÷(40RRUU)↵Q=0:Goto 9◣◣⇒P=W⇒T=H↵Pol(H-T,W-P)↵Q=sin (J+KOO÷2÷R÷U-π÷2)↵S=-1Q>↵S=1◣⇒0↵Q=SILbl 911．边桩放样计算子程序FY↵V=11↵U=Q↵Prog ”KD”↵Q=-0.75-Z[2]:Z[3]=-1U>↵Q=0.75+Z[2]:Z[3]=1◣⇒0↵Prog ”GC”↵X=G-C↵Goto 7◣⇒X≤0↵N=Int ((X-0.1)÷8.9)+1N>↵N=5◣⇒5↵I=1↵Lbl 2↵O=Z[28+I]↵{O}:O”M”↵Z[28+I]=O↵I=I+1I>↵Goto 4◣⇒N+1↵Goto 2↵Lbl 4↵I=0↵W=3.55+Z[2]:H=0.04↵Lbl 5↵I=I+1I>↵Goto 6◣⇒N-1↵W=W+2+9Z[I+28]↵H=H+8.9↵Goto 5↵Lbl 6A=X-H:A”C=”◢W=W-Abs UP=WZ[3]◢⇒A≤1↵◣P=(9Z[I+28]+W+2)Z[3]◢⇒A≥8↵◣↵A=AZ[I+28]+W↵Goto 8↵Lbl 7↵X=-X↵A=1.5X+0.75+Z[2]-Abs U◣⇒X≤8X>↵A=12.75+Z[2]+1.75(X-8)-Abs U◣◣⇒X≤12⇒8 X>↵A=14.75+Z[2]+1.75(X-8.04)-Abs U◣⇒12↵Lbl 8↵A=AZ[3]A”DB=”◢12.路面宽度计算子程序KD↵Z[2]=10.5↵Z[4]=0.5K>K⇒460<↵Z[4]=0◣◣⇒540↵Goto 6◣⇒Abs Q≤Z[4]Q>↵Goto 1◣⇒0K<↵I=50:X=K-370.6255:Goto 2◣⇒370.6255K>↵I=41:X=K-430:Goto 2◣◣⇒K≤467.384⇒430 K>K⇒467.384<↵Goto 3◣◣⇒532.616K⇒K≥532.616<↵I=41:X=570-K:Goto 2◣◣⇒570 K>↵I=35:X=K-686.596:Goto 2◣⇒686.596↵Goto 5◣↵Lbl 1K<↵I=47:X=K-350.4277:Goto 2◣⇒350.4277K>↵I=44:X=K-430:Goto 2◣◣⇒K≤463.545⇒430K>K⇒463.545<↵Goto 4◣◣⇒536.455K⇒K≥536.455<↵I=44:X=570-K:Goto 2◣◣⇒570K>↵I=38:X=K-686.596:Goto 2◣⇒686.596↵Goto 5◣↵Lbl 2↵Z[2]=Z[I]XXX+Z[I+1]XX+Z[I+2]X+10.5:Goto 5↵Lbl 3↵Z[2]=299.104÷sin (1.4543+(K-467.384)÷280)-280:Goto 5 ↵Lbl 4↵Z[2]=280-267.304÷sin (1.4406+(K-463.545)÷280)↵Lbl 5L=Z[2]+0.75:L”LD=”◢Lbl 6。

9860GⅡ公路测量多功能计算程序说明书欢迎使用9860GⅡ公路测量多功能计算程序！！该程序陆续编写于2010年5月至9月,直至10月1日程序基本编写成功,本测量程序适用于国家公路，市政，水利等各等级公路及隧道工程建设施工放样计算，拥有一些测量用小功能计算程序、程序数据库列表化（可直接在EXCLE表格中输入数据库导入计算器）、同时支持交点法与线元法两种平面计算方式、三维线路计算强大、一般小结构物计算、可对图纸进行逐桩检查、线路内任意点计算或者放样，边坡放样,无限制隧道断面计算等许多亮点功能。

程序由本人原5800程序《5800三维全能程序（丢掉图纸轻松测量）》改编而来，更改幅度很大，只保留了部分结构意图，数据库参数输入方便，使用操作人性，功能超强大，且保留扩展接口方便以后增加更多的功能，方便升级。

在学习本程序之前请认真学习附件fx-9860Gsoft中文说明书，以防止在计算器使用过程中发生低级操作错误。

如果您的计算器是SLIM 或者GSD1.0操作系统，请进入网站进行刷机升级，/thread-1535-1-1.html（网站上说明很清楚，在此不再说明），刷机成功后在菜单MENU中会增加一个E-CON2模块文件，请确认是否刷机成功，用1.0版的操作系统使用本程序会出现错误。

请安装程序附件中的FA-124软件，您的光盘中的FA-124软件是1.0版本，不能使用！如有安装1.0软件，请先卸载再进行安装，使用FA-124 1.0版，会在程序传输过程中出现乱码扰乱程序今后的正常运行安装软件后请使用数据线连接计算器。

请先将9860GⅡ公路测量多功能计算程序传输进计算器中进行以下步骤连接电脑与计算器，在计算器中会出现以下菜单选项Select Connection ModeDateTrans : [F1] ScreenCapt : [F2] Scrojectro : [F3] ScreenRecv : [F4] 按F1连接计算机如果您是第一次联机，计算器中会提示发现新硬件连接是否安装软件，选择是当您听到滴答的声音证明连接成功运行桌面上的FA-124按连接计算器，当该键变成灰色连接即成功！在软件界面右侧的列表栏中，鼠标右键点击选择Import 找到程序文件中的文件，点击打开这时您的FA-124软件中的Defauit下拉文件中会出现List\List File\Program子文件,如下图:移动鼠标将这三个文件拉至右侧，如下图恭喜！！程序安装成功按键即可结束联机功能序号一览表序号目录一数据库的编写及检查和运用1 数据库的输入方法1．1 平曲线数据库1．2 竖曲线数据库1．3 横坡超高数据库1．4 隧道数据库1．4．1 隧道断面变化里程数据库1．4．2 隧道断面数据库1．4．3 隧道结构层数据库1．5 EXCLE操作数据库及传输1．6 列表初始化二程序使用及其操作指南1 界面1〈Xuan-Ze(1)〉菜单界面1．1 三维模式 A1．2 简单反算 B1．3 单交点法 C1．4 导线简易平差 D1．5 多功能正算 E1．5．1 简单单点正算1．5．2 简单多点正算1．5．3 简单结构计算1．5．4 简单支导线计算1．6 单线元法 F1．7 坐标系转换 G1．8 面积计算 H1．9 四等水准计算 I2 线路选择3 界面2〈Xuan-Ze(2)〉菜单界面3．1 线路单点三维计算 A3．2 线路单点三维反算 B3．3 线路逐桩计算 C3．4 隧道模式 D3．5 三维功能的设置 E3．6 涵洞计算 F3．7 设计边桩计算 G3．8 边坡放样 H4 界面3〈Xuan-Ze(3)〉菜单界面4．1 右线隧道超欠计算 A4．2 左线隧道超欠计算 B4．3 仰坡计算 C4．4 定点放样计算 D一数据库编写及检查和运用（请参考列表说明文件对应学习）1，程序数据库的输入方法列表基本认识：9860计算器列表功能支持File1～File6（ 6张列表），查看调度方式为进入MENU菜单模式，进入STAT列表功能，先按SHIFT再按MENU进入参数设置界面，List File功能即是，移动光标至List File 按F1选择FILE 出现1～6选择，如果您想调取第二张列表，输入2按EXE回车，再按EXIT退出键，即可看到列表的第二张表格，现在即可对该表进行编辑和检查。

第1篇一、引言公路测设工程是公路工程建设的重要环节，其质量直接影响到公路建设的进度、质量和安全。

为了保证公路测设工程的顺利进行，本文将详细介绍公路测设工程的程序，包括前期准备、现场测量、数据处理和成果提交等阶段。

二、前期准备1. 工程项目明确在进行公路测设工程之前，首先要明确工程项目的基本情况，包括工程位置、工程类型、等级、设计规模等。

同时，要了解工程周边环境，如地形、地貌、水文、地质等。

2. 技术文件准备收集整理相关技术文件，包括设计文件、地形图、地质勘察报告、气象资料等。

这些文件为测设工作提供依据，确保测设结果的准确性。

3. 人员配备根据工程规模和复杂程度，配备相应的技术人员和施工人员。

技术人员负责测设工作的组织实施和指导，施工人员负责现场测量和放样。

4. 设备准备根据工程需求，准备必要的测量设备，如全站仪、水准仪、GPS接收机、GPS数据处理软件、绘图软件等。

三、现场测量1. 控制网点测设（1）控制网点选择：根据工程实际情况，选择具有代表性的控制点，如道路中线、桥梁、涵洞等。

（2）控制网点布置：采用三角网或导线测量方法，将控制点连接成测量骨干。

（3）控制网点测设：使用全站仪或GPS接收机，对控制点进行测量，记录其坐标和高程。

2. 路线测量（1）路线中线测量：根据设计文件，使用全站仪或GPS接收机，对路线中线进行测量，记录其坐标和高程。

（2）路基边坡桩测量：根据设计文件，使用全站仪或GPS接收机，对路基边坡桩进行测量，记录其坐标和高程。

3. 桥梁、涵洞测量（1）桥梁测量：使用全站仪或GPS接收机，对桥梁结构进行测量，记录其坐标和高程。

（2）涵洞测量：使用全站仪或GPS接收机，对涵洞结构进行测量，记录其坐标和高程。

4. 路面测量（1）路面中线测量：使用全站仪或GPS接收机，对路面中线进行测量，记录其坐标和高程。

（2）路面横断面测量：使用全站仪或GPS接收机，对路面横断面进行测量，记录其坐标和高程。