5800公路测量程序2.2+版(6条路线)

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,则显示本段曲线要素。
程序名：0ZCX
Lbl 0: 17→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 9 :
Lbl 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=>Goto X: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 B ?

Lbl 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 C?
LbI 3:Prog＂QX＂:0→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 D?
Lbl 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 E?
Lbl 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[17]: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＂3FBX＂:
Fix 2: P→D ：Abs（D）-S→O: ＂ L0=＂:Locate 6,4,O:
Prog＂ZD＂: Z[4]→T:＂ TW=＂:Lcoate 6,4,T◢ Goto F?
Lbl 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 H?
Lbl 7:Prog＂DX＂:LbI I:Prog＂QX＂:0→D: ＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: ＂Z0＂?Z: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: ＂L0:SZ+,DZ-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂ZP＂:Goto J?
Lbl 8:Prog

＂DX＂:Lbl K:?X:X=-1=>Goto 0:X=-2=>
Goto 8:?Y:Prog＂JS＂:Goto K?
Lbl 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＂5SD＂: Goto M:
Lbl X:Mat F◢ Goto 0

2、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）
程序名：3FBX
Prog“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:
Lbl W:Z[8]+Z[9]→A: If G>A:Then Goto 1:Else If G>Z[8]:Then Goto 2:Else Goto 3:IfEnd:
Lbl 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5]→S:Goto Z:
Lbl 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5]→S:Goto Z:
Lbl 3:L+Z[10]+G×Z[5] →S:Goto Z:
Lbl T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z[14]+Z[15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:
Lbl Z



3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）
程序名：5SD
Prog “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:IFEnd?
Fix 3:“JL=”:Locate 6,4,I: J▲DMS◢
5．路基宽度子程序：
路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)
程序名： GD
1→S: Prog “G-1”:Z-C→E:(B-A) ×E/S+A→L:

6．坐标计算次程序
程序名：THB
If Q>1:Then Goto J: Else 1÷P→C:(P-R)÷(2HPR) →S:180÷π→E:If F=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 2
7. 线元法正算子程序(Ａ)
程序名：A
0.1184634425→A: 0.2393143352→B：0.2844444444→N：0.046910077→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+QE(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+QE(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) →D



9. 交点法正算子程序(Z)
程序名：Z
H2÷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→H
10. 交点法缓和段转化子程序(HX)
程序名：HX
S-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→M



11. 交点法反算子程序(ZX)
程序名：ZX
Z: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 2
12．高程计算子程序（H）
程序名：H
Prog “S-1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z13.高程超高计算程序（I）
程序名：I
If 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” :Goto1: Else If Z[3]=4:Then Prog“I-4” :Goto1: Else If Z[3]=5:Then Prog“I-5” :Goto1: Else Prog“I-6”:Goto1: 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)→V
14．导线点子程序（DX）
程序名：DX
Z[11]→K:Z[12]→L:“XZ”?K:“YZ”?L:K→Z

[11]:L→Z[12]
15．线路选择子程序(线路选择输0时,则输曲线参数)（QX）
程序名：QX
1→A:“LX:XX-1,AX-2,BX-3,CX-4,DX-5,EX-6”?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 2
16．线路中线元段判别子程序（KM）
程序名：KM
If Z[3]=0:Then Goto 0:Else If Z[3]=1:Then Prog “XX-1”:Goto 0: Else If Z[3]=2:Then Prog “AX-2”:Goto 0: Else If Z[3]=3:Then Prog “BX-3”:Goto 0: Else If Z[3]=4:Then Prog “CX-4”:Goto 0: Else If Z[3]=5:Then Prog “DX-5”:Goto 0: Else Prog “EX-6”:Goto 0: IfEnd: LbI 0
17．坐标计算参数转化子程序（F）
程序名：F
Mat 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]→N
18.桥梁锥坡放样子程序（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）
①程序名：XY
Fix 3:＂XS=＂:Locate 6,4,Ｘ：＂YS=＂:Locate 6,4,Ｙ：
②程序名：ZD
Fix 3:＂KM=＂:Locate 6,4,Z：＂ D=＂:Locate 6,4,Z：
20．数据子程序(附后示例)
①-1程序名：XX-1（线路1坐标计算要素程序）
If Z≤26615.555:Then [[25900,11587.421,1847.983, 101。09’23.1”,715.555,1×1045, 1×1045, 0]]→Mat F:Goto 0: IfEnd:
If Z≤26915.555:Then [[26615.555,11448.97,2550.016,101。09’23.1”,300,1×1045,1800,1]]→Mat F:Goto 0:IfEnd:
LbI 0: Prog“F”
①-2程序名：AX-2（线路2坐标计算要素程序）
If Z≤122269.856:Then [[121656.952, 2603848.019, 508351.147, 98°53′22.6″,660, 41°47′44.1″, 1415.097，3，300]]→Mat F:Goto 0: IfEnd:
If Z≤125115.9:Then [[123984.982, 2601974.464, 509885.441, 140°41′06.8″,700，-39°31′43.7″,2800，3，400]]→Mat F:Goto 0:IfEnd:
Lbl 0: Prog“F”
说明：1、交点法：If Z≤交点HZ点桩号：Then[[交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点总偏角，圆半径，3，交点后段缓和曲线长度，]] →Mat F:Goto 0: IfEnd:（如对称缓和曲线，圆半径后输，2后不用输后段缓和长，总偏角分正负，左偏为负，右偏为正）
2、线元法：If Z≤本段线元终点桩号:Then [[本段线元起点桩号,线元起点X坐标, 线元起点Y坐标,线元起点切线方位角,线元长度，线元起点半径,线元终点半径, 线元判别]]→Mat F:Goto 0:IfEnd:
(线元判别及线元半径见后说明)
②-1程序名：S-1(线路1高程竖曲线要素子程序)
If Z[3]=1:Then Goto 1: Else If Z[3]=2:Then Prog “S-2”:Goto 0: Else If Z[3]=3:Then Prog “S-3”:Goto 0: Else If Z[3]=4:Then Prog “S-4”:Goto 0: Else If Z[3]=5:Then Pr

og “S-5”:Goto 0: Else Prog “S-6”:Goto 0: IfEnd:
Lbl 1:If Z≤26157.8:Then 26000→C:37.1→G: 200000→R:0.01500→I:0.01222→N:Goto 0:IfEnd:
If Z≤27421.915:Then 27250→C:32.65→G:300000→R: 0.01222→I:-0.00356→N:Goto 0:IfEnd:
If Z≤27889.029:Then 27755→C:36.64→G:1000000→R:-0.00356→I:0.0079→N:Goto 0:IfEnd:
Lbl 0
②-2程序名：S-2(线路2高程竖曲线要素子程序)
If Z≤183.007:Then 162.532→C:46.1→G:1365→R:-0.0015→I: 0.003→N:Goto 0:IfEnd:
If Z≤321.264:Then 282.532→C:50.175→G:1200→R:0.033→I: -0.021→N:Goto 0:IfEnd:
Lbl 0
程序字母说明:If Z≤本段竖曲线终点桩号(即为竖曲线交点桩号+切线长度)；C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；R-竖曲线半径；I－竖曲线前纵坡；N－竖曲线后纵坡
③-1程序名：I-1（线路1高程超高参数子程序）
1.5→K:2→W:If D<0:Then Goto L:Else Goto R:IfEnd:
Lbl L:If Z≤26615.555:Then 0→S:-0.02→M:Goto 0:IfEnd:
If Z≤26735.555:Then 120→S:26615.555→C:-0.02→M:0.02→N:Goto 0:IfEnd:
If Z≤26795.555:Then 60→S:26735.555→C:0.02→M:0.04→N:Goto 0:IfEnd:
Lbl R: If Z≤26735.555:Then 0→S:-0.02→M: Goto 0:IfEnd:
If Z≤26795.555:Then 60→S:26735.555→C:-0.02→M:-0.04→N:Goto 0:IfEnd:
If Z≤27436.951:Then 0→S:-0.04→M: Goto 0:IfEnd:
Lbl 0
③-2程序名：I-2（线路2高程超高参数子程序）
0.5→K:1→W:If D<0:Then Goto L:Else Goto R:IfEnd:
Lbl L:If Z≤100:Then 0→S:-0.015→M:Goto 0:IfEnd:
If Z≤110:Then 10→S:100→C:-0.015→M:-0.02→N:Goto 0:IfEnd:If Z≤343.665:Then 0→S: -0.02→M: Goto 0:IfEnd:
Lbl R: If Z≤100:Then 0→S:-0.015→M: Goto 0:IfEnd:
If Z≤110:Then 10→S:100→C:-0.015→M:-0.02→N:Goto 0:IfEndIf Z≤375.665:Then 0→S:-0.02→M: Goto 0:IfEnd:
Lbl 0
字程序中字母表示说明：
K－中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W－超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）；S－超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M－超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。
④-1程序名：G-1(线路1路基标准半幅宽度参数子程序)
If Z[3]=1:Then Goto 1:Else If Z[3]=2:Then Prog “G-2”:Goto 0: Else If Z[3]=3:Then Prog “G-3”:Goto 0: Else If Z[3]=4:Then Prog “G-4”:Goto 0: Else If Z[3]=5:Then Prog “G-5”:Goto 0: Else Prog “G-6”:Goto 0: IfEnd:
Lbl 1:If D<0:Then Goto L:Else Goto R:IfEnd:
Lbl L:If Z≤28110.727:Then Z→C:17.25→A:Goto 0:IfEnd:
If Z≤28200.727:Then 28110.727→C:17.25→A:21.25→B:90→S:Goto 0:IfEnd:
Lbl R: Z≤27927.478:Then Z→C:17.25→A: Goto 0:IfEnd:
If Z≤28172:Then 27927.478→C:17.25→A:27.031→B:244.522→S:Goto 0:
IfEnd:Lbl 0
④-2程序名：G-2(线路2路基标准半幅宽度参数子程序)
If D<0:Then Goto L:El

se Goto R:IfEnd:
Lbl L:If Z≤69.998:Then Z→C:28.25→A:Goto 0:IfEnd:
If Z≤82.402:Then 69.998→C:28.25→A:25.545→B:12.404→S:Goto 0:IfEnd:
Lbl R: Z≤69.998:Then Z→C:17.45→A: Goto 0:IfEnd:
If Z≤80.367:Then 69.998→C:17.45→A:16.787→B:10.369→S:Goto 0:IfEnd:
Lbl 0
字程序中字母表示说明：
C－宽度渐变段起点桩号（不是渐变段C=Z）；A－宽度渐变段起点半幅宽度; B－宽度渐变段终点半幅宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。
⑤-1程序名：SD1(线路1隧道参数子程序)
If Z[3]=1:Then Goto 1: Else Prog “SD2”:Goto 0:IfEnd:
Lbl 1:8.75→Z[4]:-1.1→Z[5]:4.77→Z[6]:1.47→Z[7]:-0.25→Z[9]: 51。28’57.1”→Z[10]:
Lbl 0



⑤-2程序名：SD2(线路2隧道参数子程序)
5.43→Z[4]:1.634→Z[5]:7.93→Z[6]:1.634→Z[7]: 0→Z[9]: 90→Z[10]
字程序中字母表示说明：
Z[4]－隧道上拱半径；Z[5]－隧道上拱圆心至设计面高度；Z[6]－隧道中腰部半径；Z[7]－中腰圆心至设计面高度；Z[9]－设计隧道中线与设计路基中线偏移值，左为负数，右为正数；Z[10]－上部拱跨隧道半幅角度；
⑥-1程序名：W-1(线路1路基填挖边坡参数子程序)
If Z[3]=1:Then Goto 1: Else If Z[3]=2:Then Prog “W-2”:Goto 0: Else If Z[3]=3:Then Prog “W-3”:Goto 0: Else If Z[3]=4:Then Prog “W-4”:Goto 0: Else If Z[3]=5:Then Prog “W-5”:Goto 0: Else Prog “W-6”:Goto 0:IfEnd:
Lbl 1:0.75→Z[5]:1→Z[6]:1.25→Z[7]:10→Z[8]:10→Z[9]:2.6→Z[10]:2→Z[11]:2→Z[12]:1.5→Z[13]:1.75→Z[14]:8→Z[15]:2→Z[16]：LbI 0
⑥-2程序名：W-2(线路2路基填挖边坡参数子程序)
1→Z[5]:1→Z[6]:1.25→Z[7]:10→Z[8]:10→Z[9]:2.6→Z[10]:1.5→Z[11]:1.5→Z[12]:1.5→Z[13]:1.75→Z[14]:8→Z[15]:2→Z[16]
字程序中字母表示说明：
Z[5]－挖方第一阶边坡边率；Z[6]－挖方第二阶边坡边率；Z[7]－挖方第三阶边坡边率；Z[8]－挖方第一阶高度；Z[9]－挖方第二阶高度；Z[10]－挖方路基碎落台及水沟宽度；Z[11]－挖方第二台阶平台宽度；Z[12]－挖方第三台阶平台宽度；Z[13]－填方第一阶边坡边率；Z[14]－填方第二阶边坡边率; Z[15]－填方第一阶高度；Z[16]-填方第二台阶平台宽度。（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序THB和4FBZ程序中增加变量。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）




三、使用说明
1、规定
(1) “KM”为所求点桩号，反算时为输入大概桩号
(2) 当所求点位于中线时，Ｄ=0；当位于中线左铡时，Ｄ取负值；当位于中线中线右侧时，Ｄ取正值。
(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。（在用交点法时，P子母代表偏角）
(4) 当线元为圆曲线时

，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。（交点法为圆半径）
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
(7) Q值是判别用采用线元法还是交点法。交点法值为2或3，2为对称缓和曲线段交点法，3为不对称缓和段交点法。线元法，根据线元段取值，直线段取0，缓和段和圆曲线段，根据左偏取-1,右偏取1.
(8) 为了区别字母O及数子0，特把字母O 加粗；√为根号。
2、输入与显示说明
(1)输入部分：
＂A:XY=1，ZD=2，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9＂? 输入:1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序。
XZ？YZ？为置仪点X、Y坐标，第一次运行输一次，以下运行不需再输入，下次再运行此程序调上次输值，如需改，则输入，不需改，则按确认键。
“LX:XX=1,AX=2,BX=3,CX=4,DX=5,EX=6”?选择经路，坐标计算中输入0值，变为输入线元段曲线要素。输1为第一条线路,输2为第二条线路^.本程序暂设计实例为6条线路。
KM？ 正算时所求点的里程（反算输入大概桩号→ DKLC）输入-1，返回输入选择计算类型，输入-2,返回选择线路，输入-3，调出本段线元参数，以矩阵显示，再运行从头开始
D ？ 正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)
X0？Y0？ 反算时所求点的X、Y坐标（放样程序中实测X、Y坐标）
(2)显示部分:
L0? 涵洞放样程序中,涵距中心轴线前后距离,前为正,后为负.
M0? 边坡放样程序中原地面标高输入
H-B？ 计算面至路面高差（默认路面为0）
SXG？ 水准仪输入视线高（全站仪输入0）
ZS？ 水准仪输入放样点中视读数（全站仪输入放样点的实测高程）。
PJ1? PJ2? 涵洞计算中第一个夹角同PJ。第二夹角为涵洞中轴线线与涵洞边线前进方向夹角。
(同理适合在桥梁中斜交桥,平行布置中,桥台桩基坐标计算)默认值均为90度.
TH-GH？ 边坡放样中填方超放宽值，默认值为0.5m.
＂LD:Z-,

Y+＂? 桥梁锥坡向左右方向边长，左为负数，右为正数。
＂LR＂? 锥坡向路线前进或向后退方向边长。
＂Z0＂? 锥坡顶边桩号
(3)输出部分:
XS=*** 正算时，计算得出的所求点的X坐标
YS=*** 正算时，计算得出的所求点的Y坐标
FWJ=*** 正算时，计算得出的所求点的至置仪点方位角
JL=*** 正算时，计算得出的所求点的至置仪点距离
KM=*** 反算时，计算得出的所求点的里程
D=*** 反算时，计算得出的所求点的边距
SJG=*** 所求点位置设计路面顶标高(设计高)
SCG=*** 所求点位置实测标高（实测高）
I=*** 所求点位置设计路面横坡（D输0时为，本段路基纵坡）
T=***或
W=*** 所求点位置距设计标高填或挖高度
SJLG=*** 所求点位置路基设计半幅标准宽度
L0=*** 边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移。
(隧道程序中为超欠挖值，正为超挖，负为欠挖)
TW=*** 边桩放样程序中，实测放样边坡点至止桩号设计顶填挖高度值
H0=*** 隧道放样程序中测量点至设计面高度

四、结束语
1、本套程序实例线路给二条，如标段像匝道有多条线时，同理增加。
2、由于本人没做过隧道，隧道程序只是参照本项目另一个标的图纸所做，如有不同，可以调整参数。原理应是一样的。
3、为了更好的开发计算器程序，本人特建一QQ群，欢迎各位测友加入，QQ群号是：24817026。
4、所有对程序有建议或问题的，加本人QQ后可以直接留言，由于工作原因，可能不能马上给予答复，敬请谅解！(加QQ为好友时请注明:计算器程序)
五、附注
1、主程序名：0ZCX
2、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度） 程序名：3FBX
3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值） 程序名：5SD
4：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名： JS(一式)
5．路基宽度子程序: 路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L) 程序名： GD
6．坐标计算次程序（THB）
7. 线元法正算子程序(A)
8. 线元法反算子程序(B)
9. 交点法正算子程序(Z)
10. 交点法缓和段转化子程序(HX)
11. 交点法反算子程序(ZX)
12．高程计算子程序（H）
13.高程超高计算程序（I）
14．导线点子程序（DX）
15．线路选择子程序(线路选择输0时。则输曲线参数)（QX）
16．线路中线元段判别子程序（KM）
17．坐标计算参数转

化子程序（F）
18.桥梁锥坡放样子程序（ZP）
19．显示子程序 ①程序名：(XY) ②程序名：(ZD)
20．数据子程序
①-1程序名：XX-1（线路1坐标计算要素程序）
①-2程序名：AX-2（线路2坐标计算要素程序）
②-1程序名：S-1 (线路1高程竖曲线要素子程序)
②-2程序名：S-2 (线路2高程竖曲线要素子程序)
③-1程序名：I-1 （线路1高程超高参数子程序）
③-2程序名：I-2 （线路2高程超高参数子程序）
④-1程序名：G-1 (线路1路基标准半幅宽度参数子程序)
④-2程序名：G-2 (线路2路基标准半幅宽度参数子程序)
⑤-1程序名：SD1 (线路1隧道参数子程序)
⑤-2程序名：SD2 (线路2隧道参数子程序)
⑥-1程序名：W-1 (线路1路基填挖边坡参数子程序)
⑥-2程序名：W-2 (线路2路基填挖边坡参数子程序)







卡西欧5800p计算器所有编程命令解释
1.
Norm 1 指数显示
Norm 2 小数显示

2.
?→x 只显示 ？
字符+?→x 显示 字符+？

？x 显示 x?
“字符”？x 显示 字符+？

有→则不显示该变量当前值

3.（判断表达式） 语句1 : 语句2。。。
如果判断表达式为真（或非零），则不跳过语句1.
如果判断表达式为假（或是零），则会跳过语句1.

4. If...then…else…ifend

如果语句为真，则执行then（不执行else）,然后执行ifend.
如果语句为假，则执行else（不执行then）,然后执行ifend.

5. Break 中断语句

中断For，Do，While循环，并从该循环的下个命令起继续运行

6. Dsz

使控制变量递减一，在变量的值为零时执行转移

7. Isz
Isz<变量>:<语句1> <语句2>，变量应为A~Z
以 1 为增量逐次增加变量的值，当变量的值不等于0 时，执行语句1，否则执行语句2

8. Cls
Dsz<变量>:<语句1> <语句2>。变量应为A~Z。
以1 为减量逐次减小变量的值，当变量的值不等于0 时，执行语句1，否则执行语句2
9. Locate 定位显示语句

句法 1：Locate <列数>, <行数>,<数值>
句法2：Locate <列数>, <行数>,<表达式>
句法3：Locate <列数>, <行数>, "字符串"
fx-5800P 的屏幕最多可以显示4 行、16 列字符，因此定位语句中的列数值应为大于等于1、小于等于16 的整数，行数值应为大于等于1、小于等于4 的整数。

10. Lbi n ~ Goto n Goto n~Lbl n

无条件转移至 Lbi n 位置

11. Getkey

返回与上次按键相对应的代码,Getkey=

12. DO ~ LpWhile循环语句

Do <语句块> LpWhile<条件>
先执行语句块，然后测试条件，条件为真时重复执行语句块，否则执行<条件>后的语句。无,论条件是否为真，语句块至少被执行一次。

13. Pol
计算两坐标点之间距离,坐标为（4，4）,与原点的距离就是POL（4，4）=4√2
14. Abs
求绝对值
15. Fix
取整数函

数Fix(Rnd*11) ,取0 ~ 11的随机整数
16. Rnd
随机函数
17. 角度单位设置语句
Deg：设置角度单位为十进制度，按 键输入Deg。执行该语句后，状态行显示。
Rad：设置角度单位为弧度，按 键输入Rad。执行该语句后，状态行显示。
Grd：设置角度单位为哥恩，按 键输入Grd。执行该语句后，状态行显示。
18. Dim
定义变量
19. RCL
键面命令，Rcl+A 显示变量A的当前值
20. STO
键面命令,STO+A 给变量A赋值，显示→A
21. INS
键面命令,切换键标记样式，覆盖与插入切换
22. ←
键面命令，角度度分秒格式与小数格式转换
23. ?DMS
常将反三角函数计算出的十进制角度转换成六十进制度分秒形式，cos-1(x)?DMS
24. Pol
键面命令，将直角坐标转换为极坐标，Pol（△x,△y）
25. Rec
键面命令，将极坐标转换为直角坐标，Rec(r,θ)
26. CALC
键面命令，对一个表达式的变量代入不同的值
27. And，Or，Not
<条件1>And<条件2>，<条件1>与<条件2>同时为真时为真。
<条件1>Or<条件2>，<条件1>与<条件2>有一个为真时为真。
Not<条件>，<条件>为假时为真。

28. If~Then~Else~IfEnd

句法1：If <条件> Then <语句块>IfEnd
条件为真时执行Then 后的语句块，否则从IfEnd 后开始执行
句法2：If <条件> Then <语句块1>Else<语句块2>IfEnd
条件为真时执行语句块1，否则执行语句块2，然后执行IfEnd 后的语句
29. For~To~Step~Next
句法1：For <始值> <控制变量>To<终值> <语句块> Next控制变量的取值从始值开始，步长为1，重复执行语句块，直至终值为止。一般始值小于终值，如果始值大于终值，则不执行语句块而是直接执行Next 后的语句。
句法2：For <始值> <控制变量>To<终值>Step<步长> <语句块> Next
它与 For~To~Next 句法的功能相同，唯一区别是增加了步长语句Step

30. While~WhileEnd 循环语句
句法：While <条件> <语句块>WhileEnd
先测试条件，当条件为真时执行语句块，然后再测试条件，条件为真时重复执行语句块，直到,条件为假时执行WhileEnd 后的语句结束循环

31. Prog~Return 调子程序语句

句法：Prog "subfilename"
按键 输入Prog。
fx-5800P 的子程序是独立于主程序的程序，它也保存在计算器内存中，主程序与子程序的变量都是全局的，子程序执行完成后通过Return 语句返回主程序，继续执行主程序中Prog 语句后的语句.

32. Return 返主程序语句

在子程序中应至少有一条Return 语句，当执行到该语句时，控制执行返回调用该子程序的主程序。主程序中一般不应有Return 语句，若在主程序中使用了Return 语句，程序执行到该语句时会停止执行。

33.Stop 终止程序语句

程序被Stop 语句终止后就不再执行任何语句，通常用于调试程序

设置临时中断点，程序调试通过后，将其删除。

34. 清除语句
① Cls：清除屏幕显示的文字、表达式及计算结果。
② ClrStat：清除统计串列List X，List Y，List Freq。
③ ClrMemory：清除字母变量A~Z 与数值答案寄存器。
④ ClrMat：清除矩阵Mat A~Mat F 与矩阵答案寄存器Mat Ans
的内容与维数。
⑤ ClrVar：清除内置公式变量及用户自定义公式变量的值。
其中后四个语句为按 (CLR)键调出清除语句菜单选择。
额外变量 Z[n]的数值没有专门的语句命令清除，只能执行语句0 DimZ 清除。

35. 数值显示格式设置语句
Fix ：n 为0~9 间的整数，设置以n 位固定小数格式显示计算结果，按键输
入Fix。执行该语句后，状态行显示FIX。
Sci ：n 为0~9 间的整数，设置以n 位固定小数科学格式显示计算结果，按键
输入Sci。执行该语句后，状态行显示SCI。
Norm ：n 为1 或2，设置以正常格式显示计算结果，按键输入Norm。
ENG：其下有EngOn 与EngOff 两个语句，EngOn 为打开工程格式显示；按
键输入EngOn，执行该语句后，状态行显示ENG；EngOff 为关闭工程格式显示，按
键输入 EngOff，执行该语句后，状态行的ENG 消失。

36. END

结束程序运行





卡西欧4800公路测量程序

第一章：基本符号
1、X0——始点横坐标
2、Y0——始点纵坐标
3、X1——终点横坐标
4、Y1——终点纵坐标
5、D——始点到终点的水平距离
6、F——始点到终点的方位角
7、X(P1)——P1点的横坐标
8、Y(P1)——P1点的纵坐标
9、X(P2)——P2点的横坐标
10、Y(P2)——P2点的纵坐标
11、D(OP1)——置仪点到P1的水平距离
12、D(OP2)——置仪点到P2的水平距离
13、F(OP2)——置仪点到P2的方位角
14、X(00)——置仪点的横坐标
15、Y(00)——置仪点的纵坐标
16、JD，JD(AB)——选择输入1或者2
（1）JD——实交
（2）JD(AB)——虚交
17、IR、IL——选择输入1或者2
（1）IR——路线右转
（2）IL——路线左转
19、(1) E-R; (2) T-R——选择输入(1)或(2)
（1）E-R——继续E长控制半径R
（2）T-R——T长控制半径R
19、(1) E-R; (2) END——选择输入(1)或(2)
（1）E-R——继续E长控制半径R测曲中
（2）END——结束
20、(1)S1，(2)S2，(3)R2——选择输入(1)或(2)或(3)(反复曲线S型)
（1）S1——进入第一条曲线测量
（2）S2——进入第二条曲线测量
（3）R2——这是由第二条曲线测设后，进入第一条曲线测，在进入第二条曲线直接测量曲中
21、(1)R1，(2)R2，(3)END——选择输入(1)或(2)或(3)(反复曲线S型)
（1）R1——如对曲线一、二的测设皆不满意，可输入1，进入第一条曲线的测设，结束后输入3，

进入第二条曲线的测设
（2）R2——(2)R2:如对曲线二的邪恶设不满意，可输入2，再测曲中
（3）END——结束
22、X(QZ)——曲中的横坐标
23、Y(QZ)——曲中的纵坐标
24、D(QZ)——置仪点到曲中的水平距离
25、F(QZ)——置仪点到曲中的方位角
26、K——输入桩号
27、W(L)——左侧边桩距离中桩的水平距离
28、W(R)——右侧边桩距离中桩的水平距离
29、X(L)——左侧边的桩横坐标
30、Y(L)——左侧边的桩纵坐标
31、H(L)——左侧边的高程
32、D(L)——置仪点到左侧边桩的水平距离
33、F(L)——置仪点到左侧边桩的方位角
34、X(Z)——中桩的横坐标
35、Y(Z)——中桩的纵坐标
36、H(Z)——中桩的高程
37、D(Z)——置仪点到中桩的水平距离
38、F(Z)——置仪点到中桩的方位角
39、X(R)——右侧边桩的横坐标
40、Y(R)——右侧边桩的纵坐标
41、H(R)——右侧边桩的高程
42、D(R)——置仪点到右侧边桩的水平距离
43、F(R)——置仪点到右侧边桩的方位角
44、F1——第一条线路的方位角
45、F2——第二条线路的方位角
46、JA——虚交JDA转角
47、JB——虚交JDB转角
48、ａ——路线转角
49、R——平、竖曲线半径
50、R1——第一天曲线半径
51、R2——第二条曲线半径
52、LS——缓和曲线长度
53、LS1——第一缓和曲线长度
54、LS2——第二缓和曲线长度
55、T——平、竖曲线切线长度
56、T1——第一平曲线切线长度
57、T2——第二平曲线切线长度
62、L——平、竖曲线长度
63、L1——第一平曲线长度
64、L2——第二平曲线长度
65、E——平、竖曲线外距
66、E1——第一平曲线外距
67、E2——第二平曲线外距
68、LY——圆曲线长度
69、LY1——第一圆曲线长度
70、LY2——第二圆曲线长度
72、K(JD) ——交点桩号
73、AB——虚交JDA—JDB的水平距离
74、ZH——直缓点桩号
75、HY——缓圆点桩号
76、QZ——曲中点桩号
77、YH——圆缓点桩号
78、HZ——缓直点桩号
79、GQ——公切点桩号
80、N°——右角顺时针


第二章：路线测量与道路施工放样计算程序


第一节：已知两点坐标求距离和方位角计算程序

【例题1】 如图1-1，已知A点坐标A(100,100)， X
B点坐标B(-100,-100)。求ＡＢ距离和方位角？
A(100,100)

Y
程序文件名：ＤＦ
输入：X0=100；Y0=100；X1=-100；
Y1=-100 B(-100,-100)
得出:D=282.843；F=225°00’00’’ 例图1-1


程 序 清

单

程序（CASIO fx-4800P）:
Lbl 1
{MNXY}:M″X0″:N″Y0″:X″X1″:Y″Y1″:I=0:J=1
Pol((X-M),(Y-N))
I″D=″◢
J<0=>J=J+360◣
J″F=″◢
Goto 1


第一节：已知一坐标、距离、方位角
求另一坐标计算程序

【例题2】如图1-2，已知A点坐标
A（100，100），AB点距离为D=282.843
,F(AB)=225°00’00’’。求B点点坐标？ X
A(100,100)

程序文件名：ＤＦ Y
输入：X0=100；Y0=100；D=282.843；
F=225°00’00’’
得出:X1=-100；Y1=-100 B
例图1-2
程 序 清 单

程序（CASIO fx-4800P）:
Lbl 1
{MN}:M″X0″:N″Y0″:I=0:J=1
{DF}
Rec(D,F)
X=M+I:Y=N+J
X″X1=″◢
Y″Y1=″◢
Goto 1

第二节：
（本程序仅适用于P1在P2的左侧）
【例题3】如图1-3，已知：P1(-100,0);P2(0,-200);置仪点O到P1的距离为D(OP1)=100；置仪点O到P2的距离为D(OP2)=200。求O点到P2的方位角F(OP2)和置仪点O的坐标？
P2(0,-200)
P1(-100,0)


O
例图1-3
程序文件名：P1P2-FP2
输入：X(P1)=-100;Y(P1)=0;X(P2)=0;Y(P20)=-200;D(OP1)=100;D(OP2)=200
出：F(OP2)=270°00′00″；置仪点O点的坐标X(00)=0;Y(00)=0

程 序 清 单
程序（CASIO fx-4800P）：
Lbl 1
｛COXYAB｝:C″X(P1) ″:O″Y(P1) ″:Y″Y(P2) ″:Y″Y(P2) ″A″D(OP1) ″:B″D
(OP2) ″:
I=0:J=1
Pol((X-C),(Y-O))
J<0=>J=J=360◣
K=cos-1((I2+B2-A2)÷(2IB))
W=J-K
W<0=>W=W+360◣
W″F（OP2）=″◢
M″X（00）″=X-BcosW◢
N″Y(00) ″=Y-BsinW◢
Goto 1


第三节：直线段坐标计算程序


【例题4】如图1-4，已知：道路起点K0+000坐标（1000，1000），道路方位角F=100°00′00″，导线点P1(1000,1000);导线点P2(939.086,1026.424);全站仪按置在导线点P2上；后视P1点，使用文件名为DF的程序计算出P2—P1的方位角F=282°24′36″锁定。
W(L)=30 W(L)=42.426


K0+000 K0+100 K0+255.55 F
N°(R)=90 N°(R)=135


W(R)=30 W(R)=42.46
例图1-4

程序文件名：ZXD—HY
输入：K(D0)=000;X(D0)=1000;Y(D0)=1000;F=100°00′00″
置

仪点坐标：X(00)881.333;Y(00)=1288.882
K?输入待测点桩号。W(L)输入（左侧宽）；W(R)输入（右侧宽）；N°(R)顺时针夹角（右角） （注:正交为90° ，斜交按右夹角度数输入）
如：K=100 W(L)=30 W(R)=30 N°(R)=90°00′00″
X(L)=1012.179 ; Y(L)=1103.690; D(L)=226.753; F(L)=305°14′35″
X(Z)=982.635 ; Y(Z)=1098.481; D(Z)=215.673; F(Z)=298°00′54″
X(R)=953.091 ; Y(R)=1093.271; D(R)=208.357; F(R)=290°08′42″


K=255.550 W(L)=42.426 W(R)=42.426 N°(R)=135°00′00″
X(L)=979.959 ; Y(L)=1286.421 ; D(L)=98.656 ; F(L)=358°34′14″
X(Z)=955.624 ; Y(Z)=1251.668 ; D(Z)=83.091 ; F(Z)=333°23′33″
X(R)=931.290 ; Y(R)=1261.914 ; D(R)=87.607; F(R)=304°46′00″


程 序 清 单
程序（CASIO fx-4800P）：
一、主程序
Lbl 1
D″K(D0) ″:U″X(D0) ″:V″Y(D0) ″:F:M″X(00) ″:N″Y(00) ″:I=0:J=1:G=1
｛KABC｝:K:A″W(L) ″:B″W(R) ″:C″N°(R)
L=K-D
X=U+LcosF
Y=V+LsinF
L=F+C
Prog″DFLR″
Goto 0
二、子程序（程序内容张公共部分子程序中查找）
程序文件名——DFLR


第四节：单曲线基本型、简单型
放样程序

【例题4】 本例题为（单曲线基本型）
已知起点桩号为K0+000,设计起点中桩坐标为X=1000, Y=1000,方位角F1=60°00′00″。JD1坐标为X(JD1)=1228.172, Y(JD1)=1395.205; JD2单坐标为X(JD2)=1023.068, Y(JD2)=1890.261; 使用文件名为X1Y1的程序计算出JD1到路起点中桩单方位角F=240°00′00″，全站仪安置在JD1交点上,后视起点中桩，设置方位角为240°00′00″后锁定。

JD1
ａ




K0+000 JD2



例题举例：路基宽为28m，需放样出左、右各14m单边桩。

程序文件名：DQX—HY
（1） JD，（2）JD(AB)?
实交，输1
（1） IR, (2)IL?
路线右转，输1
置仪点坐标同JD1坐标，输X(00)=1228.172; Y(00)1395.205
输入：K(D0)=000；X(D0)=1000, Y(D0)=1000, X(JD1)=1228.172, Y(JD1)=1395.205;
X(JD2)=1023.068, (JD2)=1890.261
输入第一缓和曲线LS1=60, 第二缓和曲线LS2=60（圆曲线LS1和LS2都输0）
外失距E=20.54
出: R=170.046, 则输入整数R=170
出: E=20.535, T1=114.247, T2=114.247; LY=95.784
X(QZ)=1207.681; Y(QZ)=1396.547; D(DZ)=20.535; F(QZ)=176°15′08″
(1)E—R, (2)END
经多次测曲中试配后符合要求，结束，输入2
出：F1=60°00′00″
α=52°30′16″
R=170
E=20.535
T1=114.247
T2=114.247
LS1=60
LS2=60
LY=95.784
L=215.784
A1=100.995
A2=100.9

95
K(JD)=456.344
ZH=342.097
HY=402.097
QZ=449.989
YH=497.880
HZ=557.880
K? 输入桩号。W(L)=14(左侧款)；W(R)=14(右侧款)；N°(R)=90°00′00″（正交）

如：K=0 W(L)=14 W(R)=14 N°(R)=90°00′00″
X(L)=1012.124; Y(L)=993.000; D(L)=456.558; F(L)=241°45′26″
X(Z)=1000 ; Y(Z)=1000 ; D(Z)=456.344; F(Z)=240°00′00″
X(R)=987.876; Y(R)=1007.000; D(R)=456.558; F(R)=238°14′34″


K=400 W(L)=14 W(R)=14 N°(R)=90°00′00″
X(L)=1210.286; Y(L)=1342.936; D(L)=55.245; F(L)=251°06′36″
X(Z)=1197.180; Y(Z)=1347.858; D(Z)=56.588; F(Z)=236°47′33″
X(R)=1184.074; Y(R)=1352.780; D(R)=61.193; F(R)=223°53′32″


K=600 W(L)=14 W(R)=14 N°(R)=90°00′00″
X(L)=1181.256; Y(L)=1547.023; D(L)=156.992; F(L)=107°23′18″
X(Z)=1168.322; Y(Z)=1539.664; D(Z)=156.367; F(Z)=112°30′16″
X(R)=1155.388; Y(R)=1534.366; D(R)=156.992; F(R)=117°37′14″


程 序 清 单
程序（CASIO fx-4800P）：
一、主程序
Prog″DCL2″
二、子程序（程序内容张公共部分子程序中查找）
01、程序文件名——ZA
02、程序文件名——HA
03、程序文件名——YA
04、程序文件名——HB
05、程序文件名——ZB
06、程序文件名——ZALR
07、程序文件名——HALR
08、程序文件名——YALR
09、程序文件名——HBLR
10、程序文件名——ZBLR
11、程序文件名——DA
12、程序文件名——DB
13、程序文件名——DFQZ
14、程序文件名——DFXY
15、程序文件名——DFLR
16、程序文件名——DT
17、程序文件名——DCL
18、程序文件名——DCL1
19、程序文件名——DCL2



第三章：公共部分子程序

01、程序文件名ZA——第一直线段中桩坐标计算程序
L=D-K:X=U-LcosF:Y=V-LsinF
02、程序文件名HA——第一缓和曲线中桩坐标计算程序
L=K-D
I=L-L∧5÷40(RS)2+L∧9÷3456(RS)∧4
J= L∧3÷6RS- L∧7÷336(RS)∧3+ L∧11÷42240(RS)∧5
X=U+IcosF-GJsinF
Y=V+IsinF+GJcosF
03、程序文件名YA——第一圆曲线中桩坐标计算程序
L=K-D
I=Rsin((180L-90S)+S÷2-S∧3÷240R2
J=R(1-cos((180L-90S)÷πR))+S2÷24R
X=U+IcosF-GJsinF
Y=V+IsinF+GJcosF
04、程序文件名HB——第二缓和曲线中桩坐标计算程序
L=D+W-K
I=L-L∧5÷40(PH)2+L∧9÷3456(PH)∧4
J=L∧3÷6PH-L∧7÷336(PH) ∧3+L∧11÷42240(PH)∧5
X=T-IcosE-GJsinE
Y=Z-IsinE+GJcosE
05、程序文件名ZB——第二直线段中桩坐标计算程序
L=K-D-W:X=T+LcosE:Y=Z+LsinE
08、程序文件名ZALR——第一直线段中、边桩坐标计算程序
Prog″ZA″:L=F+C
09、程序文件名HALR——第一缓和曲线中、边桩坐标计算程序
Prog″HA″:L=F+9

0GL2÷πRS+C
10、程序文件名YALR——第一圆曲线中、边桩坐标计算程序
Prog″YA″:L=F+G(180L-90S)÷πR+C
11、程序文件名HBLR——第二缓和曲线中、边桩坐标计算程序
Prog″HB″:L=E-90GL2÷πPH+C
12、程序文件名ZBLR——第二直线段中、边桩坐标计算程序
Prog″ZB″:L=E+C
13、程序文件名DA——单、凸、回头、S型曲线中桩坐标计算程序
K≤D=> Prog″ZA″:≠>K≤D+S=> Prog″HA″:≠>K≤D+S+Q=> Prog″YA″:≠>K≤D+W=> Prog″HB″:≠>K≤D+W=> Prog″ZB″◣◣◣◣◣
Prog″DFXY″
14、程序文件名DB——单、凸、回头、S型曲线中、边桩坐标计算程序
K≤D=> Prog″ZALR″:≠>K≤D+S=> Prog″HALR″:≠>K≤D+S+Q=> Prog″YALR″:≠>K≤D+W=> Prog″HBLR″:≠>K>D+W=> Prog″ZBLR″◣◣◣◣◣
Prog″DFXY″
15、程序文件名DFQZ——测量曲中定半径R程序
X″X(QZ)= ″◢
Y″Y(QZ)= ″◢
Pol((X-M),(Y-N))
I″D(QZ)= ″◢
J<0=>J=J+360◣
J″F(QZ)= ″◢
16、程序文件名DFXY——中桩坐标计算程序
X″X(Z)= ″◢
Y″Y(Z)= ″◢
Pol((X-M),(Y-N))
I″D(Z)= ″◢
J<0=>J=J+360◣
J″F(Z)= ″◢

17、程序文件名DFLR——中、边桩坐标计算程序
I″X(L) ″=X-AcosL◢
J″Y(L) ″=Y-AsinL◢
Pol(((X-AcosL)-M),((Y-AsinL)-N))
I″D(L)= ″◢
J<0=>J=J+360◣
J″F(L)= ″◢
X″X(Z)= ″◢
Y″Y(Z)= ″◢
Pol((X-M),(Y-N))
I″D(Z)= ″◢
J<0=>J=J+360◣
J″F(Z)= ″◢
I″X(R)″=X+BcosL◢
J″Y(r)″=Y+BsinL◢
Pol(((X+BcosL)-M),((Y+BsinL)-N))
I″D(R)=″◢
J<0=>J=J+360◣
J″F(R)= ″◢
18、程序文件名DT——单、凸曲线测量程序
Lbl 1
A″(1)JD,(2)JD(B) ″:G″(1)IR,(2)IL″:M″X(00) ″:N″Y(00) ″:K″(D0) ″:I″X(D0) ″:J″Y(D0) ″
G=3=>G=-1◣
A=2=>Goto 3◣
Lbl 2
B″X(JD1) ″:C″Y(JD1) ″:O″X(JD2) ″:P″Y(JD2) ″
Goto 4
Lbl 3
S″X(JDA) ″:T″Y(JDA) ″:U″X(JDB) ″:V″Y(JDB) ″:O″X(JD2) ″:P″Y(JD2) ″
X=(J-T)÷(I-S)
Y=J-IX
Z=(V-P)÷(U-O)
G: ″X(JD1)= ″:B=(V-UZ-Y)÷(X-Z)◢
G: ″Y(JD1)= ″:C=BX+Y◢
Lbl 4
Pol((B-I),(C-J))
D=I+K
J<0=>J=J+360◣
F=J
Lbl 5
Pol((O-B),(P-C))
J<0=>J=J+360◣
A=G(J-F)
A<0=>A=A+360◣
19、程序文件名DCL——单曲线测量程序
Lbl 1
{SHE}:S″LS1″:LS2″:E
R=(E+根号（E2-4((1÷cos(A÷2))-1)（（（S2+H2）÷2）÷24cos(A÷2))))÷2((1÷cos(A÷2))-1) ◢
{R}:R
E=(R+(S2+H2）÷48R)÷cos(A÷2)-R◢
T″T1″=(R+H2÷24R-(R+S2÷24R)cosA)÷sinA+S÷2-S∧3÷240R2◢
Z″T2″=(R+S2÷24R-(R+H2÷24R)cosA)÷sinA+H÷2-H∧3÷240R2◢
Q″LY″=R(π A÷180-S÷2R-H÷2R) ◢
K=D+S+Q÷2
U=B-TcosF
V=C-TsinF
Prog″YA″
Prog″DFQZ″
{I}:I″(1)E-R,(2)END″
I=1=>Goto 1◣
Lbl 2
F″F1=″◢
A″a=″◢
R″R=″◢
E″E=″◢
T″T1=″◢
Z″T2=″◢
S″LS1=″◢
H″LS2=″◢
Q″LY=″◢
W″L″=S+H+Q◢
E″A1″=根号（RS）◢
E″A2″=根号（RS）◢
D″K(JD)= ″◢
D″ZH″=D-T◢

E″HY″=D+S◢
E″QZ″=D+S+Q÷2◢
E″YH″=D+S+Q◢
E″HZ″=D+W◢
E=F+GA
T=B+ZcosE
Z=C+ZsinE
P=R
Lbl 3
20、程序文件名DCL1——单曲线中桩坐标计算程序
Prog″DT″
Prog″DCL″
Lbl 0
{K}
Prog″DA″
Goto 0
21、程序文件名DCL2——单曲线中、边桩坐标计算程序
Prog″DT″
Prog″DCL″
Lbl 0
{KABC}:K:A″W(L) ″:B″(R) ″:C″N°(R) ″
Prog″DB″
Goto 0