fx5800计算器公路测量程序设计24版会员收费版

FX5800 计算器测量程序集 2.4 版一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括 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）运行后按 19 数子约半秒，则选择 1 至 9 的程序，返回时，在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。程序名：0（数子 0）ClrMat:ClrVar:12DimZ：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：GetkeyZ3:While Z3=35:Prog1XY:WhileEnd:While Z3=36:Prog2ZD：WhileEnd: While Z3=37:Prog3GC：WhileEnd: While Z3=21:Prog4GD：WhileEnd: While Z3=22:Prog5BP：WhileEnd: While Z3=23:Prog6FM：WhileEnd: While Z3=31:Prog7ZP：WhileEnd: While Z3=32:Prog8JS：WhileEnd: While Z3=33:Prog9SD：WhileEnd:LpWhile Z325:”XIE XIE SHI YONG”:计算内程序排例：0、01（测量资料专用）、1SC（水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6（测量表格检表 6）、B7（检表 7）、B8（检表 8）、B9（检表 9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH（五点通线元法计算坐标）、ZD程序内容无电子版。全在计算中，本人出售单机卡西欧计算器 5800，或者带 2.4 程序计算器(凡购买带程序计算器者即为会员，享有以后所有版本的使用)详情凳陆淘宝网店：（或加 QQ 详谈，加 QQ 注明:淘宝。23数据子程序(以下子程序除 T 程序外，其余子程序根据自己标段设计数据修改)带有不完整缓和曲线的线元转交点数据程序（T）。只为转交交点的辅助程序，不参入任何主程序中运行。程序名：TNorm 2: QKM？Z：XQ？U：YQ？V：LS1？M：LS2？O：A1？A：A2？B：FWJ？G：ZJ？P：？R：PAbs(PQ:A 2RH:HMH:H-MS:B 2RN:N-OC:ON=ON:H=0=10-9H:HX:90S 2(RHK:G-QKG:N=0=10 -9N: 90C 2(RND:P+QK+QDP:ProgAB:Abs(PE:(R+C)tan(E2)-(C-A)sin(E)+DT:(R+A)tan(E2)-(C-A)sin(E)+BF:XH:Z-S+TO:ProgHX:U-(A-T)cos(G)+QBsin(GU:V-(A-T)sin(G)-QBcos(GV:Fix 3: JDKM=:Locate 6,4,O: JDX=:Locate 6,4,U: JDY=:Locate 6,4,VFWJ=:GDMSZJ=：PDMSLS1=: Locate 6,4,H: LS2=: Locate 6,4,N: T1=: Locate 6,4,T: T2=: Locate 6,4,FR=:R说明：运行后“QKM”？输入起点桩号；“XQ”？ “YQ”？输入起点 X、Y 坐标；“LS1”？ “LS2”？输入前段缓和曲线长度，后段缓和曲线长度；“A1”？ “A2”？输入前段缓和曲线参数，后段缓和曲线参数；“FWJ“？输入起点切线方位角；”ZJ“？输入转角（终点方位角减起点方位角之差，左转为负，右转为正）；计算结果要素同 QX 子程序中要素字母。以下全为数据子程序，根据自己标段设计数据修改黑色部分数据。-1 程序名：X1（线路 1 和线路 2 坐标计算要素程序，）Z4=0=Return:Z4=1=Goto 1:Z4=2=Goto 2:LbI 1:If Z241.086:Then -336.478+60iR:2600441.639+514392.519iU:280 。 2028.78”+203。 0828.32”iG:106.667+81.667iH:-270.668-283.056iT: ProgF:Return:IfEndLbI 2:If Z273.006:Then 171.674+180iR:2600784.547+514635.863iU:58 。 4917.2”+68。 0926.91iG:93.889+125iH:171.674+184.771iT:ProgF: Return:IfEndIf Z466.227:Then 341.96+445iR:2600664.76+514799.865iU:123。 4325.9”+15。 5849.5”iG:138.211iH:68.954+125.273iT:Prog”F”:Return:IfEndZ4=0=Return:Z4=1=Goto 1:Z4=2=Goto 2:LbI 1:If Z40.858:Then 0O:2600509.148U:5144063.566V:299。 4339”G:40.857H:97.25P: 60R:1Q:Return:IfEndIf Z159.42:Then 40.857O:2600537.297U:514034.668V:331 。1615.1”G:118.562H:60P: 60R:1Q:Return:IfEndIf Z241.087:Then 159.419O:2600625.86U:514081.521V:84 。2922.4”G:81.667H:60P: 110 45R:1Q:Return:IfEndLbI 2: If Z93.89:Then 0O:2600695.67U:514488.986V:58 。 4917.2”G:93.889H: 110 45P:180R:1Q:Return:IfEndIf Z198.568:Then 93.889O:2600736.998U:514572.974V:73 。4551.6”G:104.678H: 180P:180R:1Q:Return:IfEndIf Z273.007:Then 198.567O:2600736.233U:514676.181V:107。 54.3”G:74.439H: 180P:445R:1Q:Return:IfEnd程序字母说明：O-线元起点桩号；U-起点 X 坐标；V-起点 Y 坐标；G-线元起点桩号切线方位角; 线元长度，线元起点曲率半径，线元终点曲率半径,Q线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0)。说明：1、If Z计算交点段终点桩号(或者直线段任意桩号)：Then 交点桩号+圆半径 iR:交点 X 坐标+交点 Y 坐标 iU:起点至交点方位角+交点转角 iG:交点前段缓和曲线长度+交点后段缓和曲线长度 iH:交点前段切线长度+交点后段切线长度 iT: Prog”F”: Return: IfEnd（转角则为交点段终点方位角减起点方位角，分正负，左偏为负，右偏为正）如整条线无曲线，全为直线段，则交点为终点桩号，XY 为终点坐标，方位角为起点方位角，转角和圆半径为 1，其它全为 0。-1 程序名：S1(线路 1 和线路 2 高程竖曲线要素子程序)Z4=1=Goto 1:Z4=2=Goto 2: LbI 1:If Z241.09:Then 2000R：95.356+40.742iC:-3.155+.812iI: Return:IfEnd:LbI 2:If Z133.601:Then 1525R:106+45.12iC:-.64+2.98iI:Return:IfEnd:If Z466.23:Then 1945R:298+50.841iC:2.98-1.968iI:Return:IfEnd:程序字母说明：R-竖曲线半径:C-竖曲线交点桩号+交点桩号高程 i（未竖曲线调整的）；I竖曲线前纵坡+竖曲线后纵坡 i-1 程序名：I1（线路 1 和线路 2 高程超高参数子程序）0K:1W: Z4=1=Goto 1:Z4=2=Goto 2:LbI 1:If Z159.419:Then 0S:6-6iM: Return:IfEnd:If Z187.987:Then 28.568+28.568iS:159.419C:6-6iM:2-2iN: Return:IfEnd:If Z241.086:Then 0S:2-2iM: Return:IfEnd:LbI 2:If Z77.872:Then 0S:2-2iM:Return:IfEnd:If Z93.889:Then 16.017+16.017iS:77.872C:2-2iM:5-5iN:Return:IfEnd:If Z198.567:Then 0S: 5-5iM:Return:IfEnd: If Z273.006:Then 74.439S:198.567C:5-5iM:2-2iN:Return:IfEnd:If Z335:Then 0S:2-2iM:Return:IfEnd: If Z346.235:Then 11.235+11.235iS:335C:2-2iM:1.5-1.5iN:Return:IfEnd子程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为 0）；W超高方式参数（W=1 为一般直线方式超高，W=2 为三次抛物线方式超高）;S超高渐变段左距离+右距离 i（不是渐变段则输入 0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点左横坡+右横坡 i，N-超高渐变段终点左横坡+右横坡 i（不是渐变段，无需输入）。-1 程序名：G1(线路 1 和线路 2 路基标准半幅宽度参数子程序)Z4=1=Goto 1:Z4=2=Goto 2：LbI 1:If Z40.857:Then 40.857iS:0C:3.5+5iA:5.25iB: Return:IfEnd:If Z159.419:Then 0S:3.5+5.25iA:Return:IfEnd: If Z187.987:Then 28.568iS:159.419C:3.5+5.25iA:5.5iB: Return:IfEnd:If Z241.086:Then 0S:3.5+5.5iA:Return:IfEnd:LbI 2: If Z321.611:Then 0S:3.5+5iA:Return:IfEnd:If Z346.235:Then 24.624iS:321.611C:3.5+5iA:5.75iB: Return:IfEnd:If Z466.227:Then 0S:3.5+5.75iA:Return:IfEnd子程序中字母表示说明：C宽度渐变段起点桩号（不是渐变段不输）；A宽度渐变段起点左侧宽度+右侧宽度 i; B宽度渐变段终点左侧宽度+右侧宽度 i（不是渐变段，无需输入）；S-宽度渐变段左侧距离+右侧距离 i（不是渐变段输 0）。-1 程序名：SD1(隧道 1 和隧道 2 参数子程序)If Z4=1:Then 5I:1.4V:12+19 。 16iZ16:1.4+51 。 4218”iZ17:5.1+218 。 3iZ18: 1.4+51 。 4218”iZ19:12+19 。 16iZ20:Return:IfEnd:If Z4=2:Then 5+2.2iI:3.825V:4.355Z16:4.355-251 。 1846”iZ17: 6.07+217 。 2228”iZ18:4.355-108 。 4114”Z19:4.355-180iZ20:Return:IfEnd:子程序中字母表示说明：I隧道开挖面里圆心个数和直线段共个数+隧道中线距设计路中线距离（右正左负）i；V路中线标高至设计隧道中线底高差+底部圆心水平偏移距离（向左偏为负，向右偏为正）；Z16Z16+I-隧道中线型数据，直线段为：长度-起点方位角；圆曲线段为：圆半径+偏角（即圆心夹角）.-1 程序名：W1(线路 1 和线路 2 路基填挖边坡参数子程序)10E:10F:2.6M:2N:2U:1.5I:1.75J:8W:2V:Z4=1=Goto 1:Z4=2=Goto 2：LbI 1: If D0:Then Goto L:Else Goto R:IfEnd:LbI L:1A:1.25B:1.25C:Return:LbI R:If Z110:Then 1.25A:1.25B:1.5C: Return:Else Goto L: IfEndLbI 2:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:0.75A:0.75B:0.75C:Return:LbI R:If Z445:Then Goto L:Else If Z506.9:Then 0.25(Z-445)21.2Q:.75+QA:AB:AC:Return:IfEnd子程序中字母表示说明：A挖方第一阶边坡边率；B挖方第二阶边坡边率；C挖方第三阶边坡边率；E挖方第一阶高度；F挖方第二阶高度；M挖方路基碎落台及水沟宽度；N挖方第二台阶平台宽度；U挖方第三台阶平台宽度；I填方第一阶边坡边率；J填方第二阶边坡边率; W填方第一阶高度；V-填方第二台阶平台宽度。（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序 5BP 程序相应增加。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）三、使用说明1、规定(1) 坐标计算以交点方式计算，一般情况下一个交点计算一段线是：直线+缓和曲线+圆曲线+缓和曲线+直线。在匝道中先根据实际线来调整，可以单独计算一段不完整的缓和曲线+圆曲线。也可以单独计算一段缓和曲线或一段圆曲线，需先运行 T 程序整理成交点数据。无缓和曲线时，缓和长度输 0。(2) 程序中：10 -9 为 10 的负 9 次方即 0.000000001; 1045 为 10 的 45 次方； 为圆周率即 3.1415926; 为根号； =：X 前有空格二个，为了显示效果, -336.478+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、隧道超欠挖计算程序XZ？YZ？ 为置仪点坐标，第一次运行输一次，以下运行不需再输入，下次再运行此程序调上次输值，如需改，则输入，不需改，则按确认键。(后附有导线点坐标存储子程序,有兴趣的可加上)“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”? 隧道超欠挖程序中衬砌厚度, 默认值为 0.65m.QX 子程序中和 T 程序结果中：“JDKM”？输入交点桩号；“JDX”？ “JDY”？输入交点 X、Y 坐标；“FWJ“？输入起点至交点方位角”ZJ“？输入转角（终点方位角-起点方位角之差，左转为负，右转为正）;“LS1”？ “LS2”？输入交点前段缓和曲线长度，交点后段缓和曲线长度；“T1”？ “T2”？ 输入交点前段切线长度，交点后段切线长度；”R”?圆半径输出部分X=* 正算时，计算得出的所求点的 X 坐标Y=* 正算时，计算得出的所求点的 Y 坐标FWJ=* 正算时，计算得出的所求点的至置仪点方位角S=* 正算时，计算得出的所求点的至置仪点距离=* 反算时，计算得出的所求点的里程=* 反算时，计算得出的所求点的边距H=* 所求点位置设计计算面顶标高I=* 所求点位置设计路面横坡（D 输 0 时为，本段路基纵坡）LGD=* 所求点位置设计路面顶左半幅标准宽度LGD=* 所求点位置设计路面顶右半幅标准宽度LX=* 边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移。(隧道程序中为超欠挖值，正为超挖，负为欠挖)TW=* 边桩放样程序中，实测放样边坡点至止桩号设计顶填挖高度值(负为挖方值,正为填方值)H0=* 隧道放样程序中测量点至设计面高度四、结束语1、本套程序实例线路给二条，如标段像匝道有多条线时，同理增加。2、为了更好的开发计算器程序，本人特建一 QQ 群，欢迎各位测友加入，QQ 群号是：17507020。3、因本人 QQ 加人已满，以后有问题请在群内或论坛中回复。附后为坐标计算参数子程序 X1、X2 和高程计算子程序 S1、S2 数据来源（X1、S1 为 C 线，X2、S2 为 I 线）交点数据均需先运行 T 程序，计算出交点数据例如 X1 要素：先运行 T 程序，输入表中 C 线参数：QKM 输 0；XQ输 2600509.148；YQ 输 514063.566；LS1 输 40.857;LS2 输 81.667;A1输 80，A2 输 70；FWJ 输 299。 4339“；ZP 输 183。 4518.1“;R 输60。计算后各要素结果记录在本上，再对应做 X1 子程序就可以了。工 程 名 称 ： 广 州 至 河 源 高 速 公 路 (惠 州 段 )SJ-2合 同 段 (第 11标 公 庄 立 交 C匝 道 ) 第 1 页 共 1 页 S11-6-5(3)缓 和 曲 缓 和 曲 切 线 曲 线 第 一 缓 和 曲 线 第 一 缓 和 曲 线 终 第 二 缓 和 曲 线 起 第 二 缓 和 曲 线 直 线 段 交 点 间线 长 度 线 参 数 长 度 长 度 起 点 点 或 圆 曲 线 起 点 点 或 圆 曲 线 终 点 终 点 长 (m) 距 (m)1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21直 线 、 曲 线 及 转 角 表交点号交 点 坐 标N (X) E (Y) 交 点 桩 号 转 角 值曲 线 要 素 值 (m)备 注曲 线 主 点 桩 号曲 线 中 点直 线 长 度 及 方 向计 算 方 位 角半 径 外 距 校 正 值BPJD12600509.148 514063.56618345 18.1(Y)CK0+0002599561.392 515723.308 C-K1+911.279 -1911.279-1878.62340.85781.66760 80.00070.0000.000 9999 29943 3929943 3965.720130.097 2752 48.80.000 106.831CK0+241.086CK0+159.419CK0+100.138CK0+040.857CK0+0004030.988-1980241.086JD1-1 514006.4952600541.737JD1-22600656.73365.720106.831514067.332EP 2600597.796 514156.435 CK0+241.08612328 57.18809 09.7(Y)9536 08.4(Y)工 程 名 称 ： 广 州 至 河 源 高 速 公 路 (惠 州 段 )SJ-2合 同 段 (第 11标 公 庄 立 交 I匝 道 ) 第 1 页 共 1 页 S11-6-5(9)缓 和 曲 缓 和 曲 切 线 曲 线 第 一 缓 和 曲 线 第 一 缓 和 曲 线 终 第 二 缓 和 曲 线 起 第 二 缓 和 曲 线 直 线 段 交 点 间线 长 度 线 参 数 长 度 长 度 起 点 点 或 圆 曲 线 起 点 点 或 圆 曲 线 终 点 终 点 长 (m) 距 (m)1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21交点号交 点 坐 标N (X) E (Y) 交 点 桩 号 转 角 值曲 线 要 素 值 (m)备 注曲 线 主 点 桩 号曲 线 中 点直 线 长 度 及 方 向计 算 方 位 角半 径 外 距 校 正 值BPJD12600695.670 514488.9866454 08.7(Y)IK0+0002600779.643 514627.760 IK0+162.203 162.203137.97293.88974.438180 130.000150.000 0.000 162.203 5849 17.212343 25.9206.9260.0000.000 125.27313942 15.5IK0+273.006IK0+198.567IK0+146.228IK0+093.889EP 2600569.212IK0+00027.16935.513273.006JD2 514799.8652600664.760 IK0+341.960 68.954125.2730248.000445 0138.211 193.221 5.3107 1.006 IK0+273.006 IK0+300.510 IK0+328.015 IK0+466.227514880.883 IK0+466.2271558 49.5(Y)N (X) E (Y)CK0+000 2600509.148 514063.566CK0+020 2600520.937 514047.468CK0+040 2600536.548 514035.086CK0+040.857 2600537.297 514034.668CK0+060 2600555.256 514028.277CK0+080 2600575.161 514027.965CK0+100 2600594.072 514034.182CK0+120 2600609.909 514046.245CK0+140 2600620.926 514062.826CK0+159.419 2600625.860 514081.521CK0+160 2600625.913 514082.099CK0+180 2600624.611 514101.986CK0+200 2600618.432 514120.970CK0+220 2600609.161 514138.676CK0+240 2600598.395 514155.529CK0+241.086 2600597.796 514156.435桩 号坐 标N (X) E (Y) N (X) E (Y)IK0+000 2600695.670 514488.986 IK0+420 2600604.295 514850.784IK0+020 2600705.956 514506.138 IK0+440 2600589.184 514863.884IK0+040 2600715.833 514523.528 IK0+460 2600573.960 514876.856IK0+060 2600724.876 514541.363 IK0+466.227 2600569.212 514880.883IK0+080 2600732.629 514559.793IK0+093.889 2600736.998 514572.974IK0+100 2600738.606 514578.869IK0+120 2600742.457 514598.485IK0+140 2600744.110 514618.406IK0+160 2600743.543 514638.388IK0+180 2600740.764 514658.183IK0+198.567 2600736.233 514676.181IK0+200 2600735.807 514677.549IK0+220 2600728.801 514696.272IK0+240 2600720.102 514714.275IK0+260 2600710.090 514731.585IK0+273.006 2600703.042 514742.514IK0+280 2600699.114 514748.301IK0+300 2600687.384 514764.498IK0+320 2600674.938 514780.152IK0+328.015 2600669.755 514786.266IK0+340 2600661.805 514795.233IK0+360 26