Fx5800计算器公路测量程序设计

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

新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算
二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、
A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；
6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)；
7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)；
8、极坐标计算程序（8JS、JS、DS）；
9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、
S1、I1、SD1）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。

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

程序名：0（数子0）
ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY＂:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：WhileEnd: While Z[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”:
计算内程序排例：0、01（测量资料专用）、1SC（水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9S D、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B 9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH（五点通线元法计算坐标）、ZD
程序内容无电子版。

全在计算中，本人出售单机卡西欧计算器5800，或者带程序计算器(凡购买带程序计算器者即为会员，享有以后所有版
本的使用)详情凳陆淘宝网店：（或加QQ详谈，加QQ注明:淘宝。

23．数据子程序(以下子程序除T程序外，其余子程序根据自己标段设计数据修改)
带有不完整缓和曲线的线元转交点数据程序（T）。

只为转交交点的辅助程序，不参入任何主程序中运行。

程序名：T
Norm 2: ＂QKM＂Z：＂XQ＂U：＂YQ＂V：＂LS1＂M：＂LS2＂O：＂A1＂A：＂A2＂B：＂FWJ＂G：＂ZJ＂P：R：P÷Abs(P→Q:A2÷R→H:H<M=>M
→H:H-M→S:B2÷R→N:N-O→C:O>N=>O→N:H=0=>×10-9→H:H→X:90S2÷(RHΠ→K:G-QK→G:N=0=>×10-9→N: 90C2÷(RNΠ→D:P+QK+QD→P:Pr
og＂AB＂:Abs(P→E:(R+C)tan(E÷2)-(C-A)÷sin(E)+D→T:(R+A)tan
(E÷2)-(C-A)÷sin(E)+B→F:X→H:Z-S+T→O:Prog＂HX＂:U-(A-T)cos (G)+QBsin(G→U:V-(A-T)sin(G)-QBcos(G→V:Fix 3: ＂JDKM=＂:Loca
te 6,4,O: ＂JDX=＂:Locate 6,4,U: ＂JDY=＂:Locate 6,4,V◢＂FWJ =＂:G►DMS◢＂ZJ=＂：P►DMS◢＂LS1=＂: Locate 6,4,H: ＂LS2=＂: L
ocate 6,4,N: ＂T1=＂: Locate 6,4,T: ＂T2=＂: Locate 6,4,F◢＂R=＂:R◢
说明：运行后“QKM”输入起点桩号；“XQ”“YQ”输入起点X、Y坐标；“LS1”“LS2”输入前段缓和曲线长度，后段缓和曲线长度；“A 1”“A2”输入前段缓和曲线参数，后段缓和曲线参数；“FWJ“输入
起点切线方位角；”ZJ“输入转角（终点方位角减起点方位角之差，左转为负，右转为正）；计算结果要素同QX子程序中要素字母。

以下全为数据子程序，根据自己标段设计数据修改黑色部分数据。

①-1程序名：X1（线路1和线路2坐标计算要素程序，）
Z[4]=0=＞Return:Z[4]=1=＞Goto 1:Z[4]=2=＞Goto 2:
LbI 1:If Z≤:Then +60i→R:+→U:280。

20’28.78”+203。

08’28.32”i→G:+→H: Prog＂F＂:Return:IfEnd
LbI 2:If Z≤:Then +180i→R:+→U:58。

49’17.2”+68。

09’＂i→G:+ 125i→H:+→T:Prog＂F＂: Return:IfEnd
If Z≤:Then +445i→R:+→U:123。

43’25.9”+15。

58’49.5”i→G:→H:+→T:Prog”F”:Return:IfEnd
说明：1、If Z≤计算交点段终点桩号(或者直线段任意桩号)：Then 交点桩号+圆半径i→R:交点X坐标+交点Y坐标i→U:起点至交点方位角+交点转角i→G:交点前段缓和曲线长度+交点后段缓和曲线长度i→H:交点前段切线长度+交点后段切线长度i→T: Prog”F”: Return: IfEnd （转角则为交点段终点方位角减起点方位角，分正负，左偏为负，右偏为正）如整条线无曲线，全为直线段，则交点为终点桩号，XY为终点坐标，方位角为起点方位角，转角和圆半径为1，其它全为0。

②-1程序名：S1(线路1和线路2高程竖曲线要素子程序)
Z[4]=1=＞Goto 1:Z[4]=2=＞Goto 2:
LbI 1:If Z≤:Then 2000→R：+→C:+.812i→I: Return:IfEnd:
LbI 2:If Z≤:Then 1525→R:106+→C:+→I:Return:IfEnd:If Z≤:Th en 1945→R:298+→C:程序字母说明：R-竖曲线半径:C-竖曲线交点桩号+交点桩号高程i（未竖曲线调整的）；I－竖曲线前纵坡+竖曲线后纵坡i
③-1程序名：I1（线路1和线路2高程超高参数子程序）
0→K:1→W: Z[4]=1=＞Goto 1:Z[4]=2=＞Goto 2:
LbI 1:If Z≤:Then 0→S:6-6i→M: Return:IfEnd:
If Z≤:Then +→S:→C:6-6i→M:2-2i→N: Return:IfEnd:If Z≤:The n 0→S:2-2i→M: Return:IfEnd:
LbI 2:If Z≤:Then 0→S:2-2i→M:Return:IfEnd:
If Z≤:Then +→S:→C:2-2i→M:5-5i→N:Return:IfEnd:If Z≤:Then 0→S: 5-5i→M:Return:IfEnd: If Z≤:Then →S:→C:5-5i→M:2-2i →N:Return:IfEnd:If Z≤335:Then 0→S:2-2i→M:Return:IfEnd: If Z≤:Then +→S:335→C:2-2i→M:子程序中字母表示说明：
K－中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W－超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;S－超高渐变段左距离+右距离i（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M－超高段起点左横坡+右横坡i，N-超高渐变段终点左横坡+右横坡i（不是渐变段，无需输入）。

④-1程序名：G1(线路1和线路2路基标准半幅宽度参数子程序)
Z[4]=1=＞Goto 1:Z[4]=2=＞Goto 2：
LbI 1:If Z≤:Then →S:0→C:+5i→A:→B: Return:IfEnd:If Z≤:Th en 0→S:+→A:Return:IfEnd: If Z≤:Then →S:→C:+→A:→B: Retu rn:IfEnd:If Z≤:Then 0→S:+→A:Return:IfEnd:
LbI 2: If Z≤:Then 0→S:+5i→A:Return:IfEnd:If Z≤:Then →S:
→C:+5i→A:→B: Return:IfEnd:If Z≤:Then 0→S:+→A:Return:IfE nd
子程序中字母表示说明：
C－宽度渐变段起点桩号（不是渐变段不输）；A－宽度渐变段起点左侧宽度+右侧宽度i; B－宽度渐变段终点左侧宽度+右侧宽度i（不是渐变段，无需输入）；S-宽度渐变段左侧距离+右侧距离i（不是渐变段输0）。

⑤-1程序名：SD1(隧道1和隧道2参数子程序)
If Z[4]=1:Then 5→I:→Z[15]:12+19。

16’i→Z[16]:+51。

42’18”i→Z[17]:+218。

3’i→Z[18]: +51。

42’18”i→Z[19]:12+19。

16’i→Z[20]: Return:IfEnd:
If Z[4]=2:Then 5+→I:→Z[15]:→Z[16]:。

18’46”i→Z[17]: +217。

2 2’28”i→Z[18]:→Z[19]:→Z[20]:Return:IfEnd:
子程序中字母表示说明：
I－隧道开挖面里圆心个数和直线段共个数+隧道中线距设计路中线距
离（右正左负）i；Z[15]－路中线标高至设计隧道底高差（正值）；Z[1
6]－Z[16+I]-隧道中线型数据，直线段为：长度-起点方位角；圆曲线段为：圆半径+偏角（即圆心夹角）.
⑥-1程序名：W1(线路1和线路2路基填挖边坡参数子程序)
10→E:10→F:→M:2→N:2→U:→I:→J:8→W:2→V:Z[4]=1=＞Goto 1:Z
[4]=2=＞Goto 2：LbI 1: If D<0:Then Goto L:Else Goto R:IfEnd:Lb
I L:1→A:→B:→C:Return:
LbI R:If Z≤110:Then →A:→B:→C: Return:Else Goto L: IfEnd
LbI 2:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:→A:→B:→C: Return:LbI R:If Z≤445:Then Goto L:Else If Z≤:Then ×(Z-445)÷→Q:.75+Q→A:A→B:A→C:Return:IfEnd
子程序中字母表示说明：
A－挖方第一阶边坡边率；B－挖方第二阶边坡边率；C－挖方第三阶边坡边率；E－挖方第一阶高度；F－挖方第二阶高度；M－挖方路基碎落台及水沟宽度；N－挖方第二台阶平台宽度；S－挖方第三台阶平台宽度；I－填方第一阶边坡边率；J－填方第二阶边坡边率; W－填方第一阶高度；V-填方第二台阶平台宽度。

（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序5BP程序相应增加。

再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。

）
三、使用说明
1、规定
(1) 坐标计算以交点方式计算，一般情况下一个交点计算一段线是：直线+缓和曲线+圆曲线+缓和曲线+直线。

在匝道中先根据实际线来
调整，可以单独计算一段不完整的缓和曲线+圆曲线。

也可以单独计算一段缓和曲线或一段圆曲线，需先运行T程序整理成交点数据。

无缓和曲线时，缓和长度输0。

(2) 程序中：×10-9为10的负9次方即;×1045为10的45次方；Π为圆周率即; √为根号；＂Ｘ=＂：X前有空格二个，为了显示效果,+60i中i是复数中虚数符号,在计算器从上向下第三排键，第一个。

(3) 为了区别字母O及数子0，特把字母0加粗。

2、输入与显示说明
输入提示部分：
＂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、隧道超欠挖计算程序
XZYZ 为置仪点坐标，第一次运行输一次，以下运行不需再输入，下次再运行此程序调上次输值，如需改，则输入，不需改，则按确认键。

(后附有导线点坐标存储子程序,有兴趣的可加上)
“QX:X1=1,X2=2”选择经路，坐标计算中输入0值，变为输入线元段曲线要素。

输1为第一条线路。

输2为第二条线路，本程序暂设计实例为2条线路。

ＫＭ算输入大概桩号）输入-1，返回输入选择计算类型，输入-2,返回选择线路。

ＫＭ+Di正算时输入所求点桩号和所求点距中线的边距(左侧取负值,右侧取正值，在中线上后面不输)
X0+YOi反算时所求点的X+Y坐标（放样程序中实测X+Y坐标）以复数形式一次输入。

L0 涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.(即涵洞半幅宽度)
M0 放样程序中原地面标高输入
H-B计算面至路面高差（默认路面为0）
PJ1+PJ2 为路线中线与边线的右夹角+边线至路前进方向夹角,默认值均为90度.，不是涵洞桥梁计算不需输PJ2，后面也不会出行L0 TH-GH边坡放样中填方超放宽值，默认值为0.5m.
＂LD:Z-,Y+＂桥梁锥坡向左右方向边长，左为负数，右为正数。

(即为锥坡高程减地面高程后乘以填方坡比)
＂LR＂锥坡向路线前进或向后退方向边长。

＂Z0＂锥坡顶边桩号
＂L0:SZ+,DZ-＂锥坡放样中，椭圆上分段放样距离，小桩号锥坡输正数，大桩号锥坡输负数。

“CQHD”隧道超欠挖程序中衬砌厚度, 默认值为.
QX子程序中和T程序结果中：““JDKM”输入交点桩号；“JDX”“J DY”输入交点X、Y坐标；“FWJ“输入起点至交点方位角”ZJ“输入转角（终点方位角-起点方位角之差，左转为负，右转为正）;“LS1”“L S2”输入交点前段缓和曲线长度，交点后段缓和曲线长度；“T1”“T 2”输入交点前段切线长度，交点后段切线长度；”R”圆半径
输出部分
X=*** 正算时，计算得出的所求点的X坐标
Y=*** 正算时，计算得出的所求点的Y坐标FWJ=*** 正算时，计算得出的所求点的至置仪点方位角
S=*** 正算时，计算得出的所求点的至置仪点距离
ＫＭ=*** 反算时，计算得出的所求点的里程
Ｄ=*** 反算时，计算得出的所求点的边距H=*** 所求点位置设计计算面顶标高
I=*** 所求点位置设计路面横坡（D输0时为，本段路基纵坡）LGD=*** 所求点位置设计路面顶左半幅标准宽度
LGD=*** 所求点位置设计路面顶右半幅标准宽度
LX=*** 边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移。

(隧道程序中为超欠挖值，正为超挖，负为欠挖) TW=*** 边桩放样程序中，实测放样边坡点至止桩号设计顶填挖高度值(负为挖方值,正为填方值)
H0=*** 隧道放样程序中测量点至设计面高度
四、结束语
1、本套程序实例线路给二条，如标段像匝道有多条线时，同理增加。

2、为了更好的开发计算器程序，本人特建一QQ群，欢迎各位测友加入，QQ群号是：。

3、因本人QQ加人已满，以后有问题请在群内或论坛中回复。

附后为坐标计算参数子程序X1、X2和高程计算子程序S1、S2数据来源
（X1、S1为C线，X2、S2为I线）
交点数据均需先运行T程序，计算出交点数据
例如X1要素：先运行T程序，输入表中C线参数：QKM输0；XQ输；YQ 输；LS1输;LS2输;A1输80，A2输70；FWJ输299。

43‘39“；ZP输183。

45‘“;R输60。

计算后各要素结果记录在本上，再对应做X1子程序就可以了。

直线、曲线及转角表
S11-6-5(3)
S11-6-5(9)
上图为SD1程序中Z[4]=2时隧道断面参数数据的图。

1、附带坐标计算面积小程序程序名：XY-S
0→Q:Norm 2:1→I:N:＂X1＂X：〞Y1〞Y：X→A：Y→B:X→E:Y→F:Do:“XN〞X：〞YN〞Y：Q+(XF-YE)÷2→Q:X→E:Y→F:I+1→I:Lpwhile I≠N：Q+(AF-BE)÷2→S:〞MIAN JI= 〞：Abs(S)◢
(运行后N，输入点数，然后输入第一点坐标，再着输入2点一直输入N点后就出来面积)
计算器总体运行及结果说明：
做好数据库后，运行0程序
按相应数子键，对应相应主程序（按数子键时请按住约半秒）
按1键后：（桥梁涵洞坐标计算放样程序）
输入仪器测站点坐标：+ EXE
输入选择线路：1 EXE
输入偏角：（如不是涵洞计算可直接只输一个角，默认为90度）是正交直接按EXE
输入桩号及距离：200-20i(前面为桩号后面为距中距离，左正右负，中桩后面不需输)输后按EXE
计算结果显示：X、Y-坐标，FWJ-测站点至计算点方位角（十进制显示：即为42度42分35秒）S-测站点至计算点距离
按EXE输-2，返回再次输入测站坐标，选择线路
输入角度为：75+ EXE
偏角中涵洞放样中输入方法：如图：放样以下图中涵洞基础右侧角A点位置。

输入桩号和距离：135+ EXE
输入涵洞斜宽：÷2÷COS EXE
结果数据同前.EXE
再次输入桩号进入下点放样计算….
按EXE 输-1，按EXE，EXE
选择按2后：（坐标反算桩号距及设计高程）选择线路号：如输入1 EXE
输入大概桩号（第一运行输入）：50 EXE
输入测量坐标：+
结果显示：KM-桩号，D-距中距离（右正，左负），H-设计标高EXE
再次输入测量坐标进入下点反算……
输入选择线路号：输入2
EXE
输入设计路面至计算面的高度：输入
EXE
输入桩号和距离：输入100-25i(桩号100，左侧25m) EXE
结果显示：H-计算高程，I-横坡
再次输入桩号：输240（中桩后面不用输
结果显示：H计算面高程序，I-路基纵坡EXE
0程序中选择按4（设计半幅宽度计算）
输入桩号：输入240（只需输入桩号就可以）
EXE
结果显示：
LGD-左幅宽度；RGD-右幅宽度
EXE
0程序中选择按5（路基边坡放样程序）
选择线路后输入填方放宽值：输入(默认为就按EXE就行，如不加宽就输0)
EXE
输入大概桩号：输入50（第一次放样输入）
EXE
输入测量坐标：+
EXE
输入测量地面标高：输入 EXE
结果显示：LX值为平移值，负值为从中桩向边桩外移，正值为从边向中平移。

KM-测量点桩号，D值测量点距中桩距离。

TW-填挖值。

第一个值为地面标高至设计标高的高度，第二个值为已考虑了路面结构层厚度0.9m（一般所说的至96区顶高）,在5BP放样程序中最后，值负为挖方，正为填方。

0程序中选择按6（路基定值距离放样程序）
前面同理输入测站坐标-
EXE
选择线路1-
EXE
KM=》为输入渐变放样距离，如输入20（后面桩号都会自动加上20m）EXE
EXE
显示放样点坐标、测站点至放样点方位角值及距离
EXE
放样完后，测量地面标高，输入计算，输入
EXE
显示TW值，为填挖值，已扣路面结构层厚度（程序默认为）
同时后面桩号相对上桩号加上20m
0程序中选择按7（锥坡放样程序）
选择线路 EXE
ZKM+-Mdi为输入锥顶桩号及锥坡路基边侧地面标高（标高为输入正负，正为右侧锥坡，负为左侧锥坡）
如：输入桩号为120，左侧的锥坡地面标高：
MR
输入锥前地面标高，即靠桥台前标高（正值）,+放宽值（默认放宽）EXE
S0:SZH+,DZH-显示出放样边长最大值，及输入放样值，小桩号台锥坡输入正值，大桩号台锥坡输入负值，（小大桩号台，如一桥三跨，0#台就为小桩号台，3#台就为大桩号台）
输入8 EXE
显示结果值同前面1主程序6主程序值结果意思。

放样完，输入测量地面标高 EXE
线方向的长度）
0程序中选择按8（极坐标计算程序）此程序就不显例了
0程序中选择按9（隧道超欠计算程序）
开始选择隧道线路号（或左线、右线）此程序假定C线为左侧隧道，I线为右侧隧道）
CQHD输入衬砌厚度（程序做的内净空值）
如输入
输入大概桩号：（第一次放样输入，如输入50
EXE
输入隧道内测量的坐标值，EXE
输入隧道内测量的实测标高值。

如输入 EXE
结果显示：LX-为超欠挖值，正值为超挖，负值为欠挖。

KM-D-为测量点桩号距离，H0-为测量点至隧道路面顶高度
EXE
再次输入测量坐标进行下次超欠挖值计算。

以下为01程序
此为附的一套测量资料程序，做的为广东省施工检表6-9表。

现以计算表6示例：
选择按住数子1
输入计算允许最小和最大误差单位为mm,如输入：5-5i.则为正负5mm EXE
选择计算的的线路号
输入桩号及距中桩距离（如输入180则为桩号180的中桩）
X、Y为设计坐标、XO、YO则为在允许偏差范围内自动生成的坐标。

EXE
0X、0Y-值为XY差值，单位为mm,0XY为偏差标准差。

EXE
以下附表：
平面位置检查记录表
施检表（6）编号：第页共页
施工放线测量记录表
施检表（7）编号：第页共页
水准测量记录表
施检表（8）编号：第页共页
宽度检测记录表
施检表（9）编号：第页共页
以上为表7、表8、表9、程序就不再图例了，大家可以调出使用就知清楚的，原理是一样的。

另计算器也输入线元计算程序XYH。

为手工直接输入参数。