FX5800计算器公路测量常用程序集

CASIOfx-5800P线路计算1.0版程序设计作者：汤海波QQ:13119703PAGE13FX5800计算器公路测量常用程序集

一、程序功能

本程序组由2个主程序、5个次子程序及3个参数子程序。主要用于公路测量中坐标正反算，极坐标放样、设计任意点高程及横坡计算、路基填方坡脚线及挖方开口线放样。程序坐标计算适应于任何线型.

二、源程序

1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XY

Lb10:Norm2F=1：(正反算判别，F=1正算，F=2反算)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto1:F=2=>Goto2Lb11:Ｆix3:＂Ｘ=＂：Locate6,4,Ｘ◢＂Ｙ＝＂：Locate6,4,Ｙ◢Ｐrog＂3JJS”:Gotoo0:Lb12:FFix3::＂ＫＭ＝＝＂：Locatte6,44,Ｚ◢＂Ｄ＝＂：：Locatte6,44,Ｄ◢Ｇoto0２．主程序２：：高程序横坡坡程序(设计任意点点高程及横坡)程序名：2GCCLbI0:NNorm22“KM”?Z::?D:Prog”H”:Fix3:”H=”:Locaate6,,4,H◢“I=”:Loccate66,4,I◢◢Goto03.主程序3：：极坐放样计计算程序(计算放样点点至置仪点方方位角及距离离)程序名：3JSSX：Y：1268．1223→K(置仪点X坐标)2243．5445→L（置仪点Y坐标，都是是手工输入,,也可以建导导线点数据库库子程序,个人认为太太麻烦）Y-L→E：XX-K→F：Pol(FF,E):IIFJ<00:ThennJ+3660→J:Intt(J)+0.001Int((60Fraac(J))+0..006Frrac(600Frac((J))→J:(不习惯小数数点后四位为为角度显示的的，也可以用用命令J◢DMS◢来直接显示)Fix4:”FWJ=”:Locatte6,44,J◢(不习惯小数数点后四位为为角度显示的的，也可以用用命令J◢DMS◢来直接显示)Fix3:”S=”:Locaate6,,4,I◢4．主程序4：：涵洞放样程程序（由涵中中心桩号计算算出各涵角坐坐标、在主程程序3中输入置仪仪点坐标后计计算放样点至至置仪点方位位角及距离)程序名：4JHH-XYLbI0:NNorm2290→Z[1]](涵洞中心心桩与右边夹夹角，手工输输入，也可以以修改成前面面加？后变为为变量)1→F:Proog”THB”:?L:Z[2]-Z[[1]→E:X+LLcos(EE)→X:Y+LLsin(EE)→Y:Fixx3:＂Ｘ=＂：Locatte6,44,Ｘ◢＂Ｙ＝＂＂：Locatte6,44,Ｙ◢Ｐrog＂3JJS”:Gotoo0:5．主程序5::路基开挖边边线及填方坡坡脚线放样程程序（输入大大概桩号及测测量坐标、地地面标高计算算出偏移距离离、桩号、距距中距离、填填挖高度）程序名：5FBBXLbI0:NNorm22:18→DimZ:22→F:90→Z[1]::Prog“THB”:Z:D:”M0”?M:M→Z[4]::D→Z[3]::Prog”6GD”:L→Z[6]:IfD<0:TThen00.75-LL→D:GottoH:EElseLL-0.755→D:GottoH:IIfEndLbIH:PProg”H”:H-0..03-Z[[4]→Z[5]::Z[6]→L:IfZ[5]<<0:Theen–z[5]→G:GottoW:EElseZZ[5]→G:GottoT:LbIW:PProg“W0”:Z[10]]+Z[111]→A:IfG>A:ThennGotoo1:ElseIfG>>Z[10]:TheenGotto2:ElseGoto3:IfEnnd:LbI1:LL+Z[122]+Z[13]+Z[144]+(G-A)×Z[9]+Z[111]×Z[8]++Z[10]]×Z[7]::GotoZ:LbI2:LL+Z[122]+Z[113]+(GG-Z[100])×Z[8]++Z[10]]×Z[7]::GotoZ:LbI3:LL+Z[122]+G×Z[7]::Gotoz:LbIT:LL+0.5→→N:IfG>Z[117]:Thhen(N+Z[118]+(GG-Z[177])×Z[16]]+Z[177]×Z[15]])→S:GottoZ:EElse((N+G×Z[15]])→S:Gottoz:LbIZ:ZZ[3]→D:Fixx2:Abbs(D)--S→T:”L0=”:LLocatte6,44,T◢＂ＫＭ＝＂：：Locatte6,44,Ｚ◢＂Ｄ＝＂：：Locatte6,44,Ｄ◢“TWW=”:Locatte6,44,Z[5]]◢Goto06．主程序6：：路基标准半半幅宽度计算算程序(对于设计有有加宽渐变的的有用，如路路基宽度无变变化，则把此此程序直接输输入半幅宽度度值至L)程序名：6GDDProg“GG0”Z-C→E:(B--A)×E/S+AA→L:L:7．坐标计算次次程序（ＴＨＨＢ）程序名：THBB18→DimZZ：＂ＫＭ＂?Z：Prog＂Ｘ０＂1÷P→Ｃ：(P-R))÷(2HPPR)→Ｓ：180÷π→Ｅ：Ｆ=1=>GGoto11：Ｆ=2=>Gooto2←┘

Lbl1：?Ｄ：Abss(Ｚ－O)→W：Prog"Ａ"：X：Ｙ：Ｇoto33LbI2:ＸＸ：Ｙ：Ｘ→I：Ｙ→J：Prog＂Ｂ＂：ＯＯ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto33LbI3:IIFＦ＝１ThenＸ：Ｙ：ElseＺ：Ｄ

8.正算子程程序(Ａ)程序名：A

0..118466344255→A：0.239931433352→B：0.284444444444→N0.04669100777→K：0.230076534449→L：0.5→M：U+W((Acos((G+QEKKW(C+KKWＳ))+Bccos(G++QELW((C+LWＳＳ))+Ncos(GG+QEMW(C+MWＳ))+Bcoos(G+QQE(1-LL)W(C++(1-L))WS))++Acos((G+QE((1-K)WW(C+(11-K)WSS)))→X：V+W(Asiin(G+QQEKW(CC+KWＳ))+Bssin(G++QELW((C+LWＳＳ))+Nsiin(G+QQEMW(CC+MWS)))+Bsiin(G+QQE(1-L)WW(C+(11-L)WSS))+Assin(G++QE(1--K)W(CC+(1-KK)WＳ)))→Y：G+QEW(CC+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［［２］）→Ｘ：Y+Ｄsin（Ｚ［［２］）→Ｙ

9.反算子程序(Ｂ)程序名：B

G--90→Ｔ：Abs(((Y-V))cos(T)-(X-UU)sin((T))→Ｗ：0→Ｄ：Lbl0：Prog"Ａ"：T+QEEW(C+WWＳ)→Ｌ：(J-YY)cos((L)-(I-XX)sin((L)→Ｄ：IFAbss(Ｄ)<0.01::ThenGoto1：ElseW+Ｄ→W:Gotto0←┘┘

Lbl11:0→D：Prog"Ａ"：(J-Y)÷÷sin(Ｚ［２］)→D:10．高程计算算子程序（H）程序名：HProg“SS0”:R:T::C:G:II:C-T→→F:Z-FF→L:C+TT→E:G-TTI→Q:IfT=O:TThenQQ+LI→H:Gotto0:EElseIIfZ<FF:ThennQ+LII→H:Gotto0:EElseIIfZ≤E:TheenQ+LLI+L2÷2÷R→H:Gotto0:LbI0:HH:IfDD=0:ThhenGootoI::ElseProg“I”:H+V→H:GottoI:LLbII::H:I:11.高程超高高计算程序（I）程序名：IProg”I00”:W=1=>GGoto00:W=2==>Gotoo1:LbI0:IIfL=00:ThennAbs((D)×M→V:Gotto2:EElseAAbs(D))×((N-M)×(Z-C)÷L+M)→V:Gotto2:IIfEnd::LbI1:IIfL=00:ThennAbs((D)×M→V:Gotto2:EElseAAbs(D))×(((3((Z--C)÷L)2-2((ZZ-C)÷L)∧(3))×(N-M)))+M)→V:Gotto2:IIfEnd::LbI2:AAbs(D))→E:V÷E→I:I(EE-K)→V:12．数据子程程序(附后示例)①程序名：X00（坐标计算算要素程序）IfZ≥255900AnndZ≤266155.555:Thenn259000→O:115587.4221→U:18447.9833→V:1011。09’23.1”→G:7155.555→→H:1×1045→P:1×1045→R:0→Q:Gotto0:IfEndd:IfZ≥266615.5555AnndZ≤269155.555::Then266155.555→→O:114448.977→U:25550.0166→V:1011。09’23.1”→G:3000→H:1×1045→P:1800→R:1→Q:Gotto0:IIfEnd::IfZ≥266915.5555AnndZ≤273166.952::Then269155.555→→O:113382.7992→U:28442.5311→V:1055。55’51.83”→G:4011.396→→H:18000→P:1800→R:1→Q:Gotto0:IIfEnd::……LbI0:OO:U:V::G:H:PP:R:Q::程序字母说明：：O-线元起点桩桩号；U-起点X坐标；V-起点Y坐标；G-线元起点点桩号切线方位角;Ｈ－线元长长度，Ｐ－线线元起点曲率率半径，Ｒ－－线元终点曲曲率半径,Q－线元判别别(以道路中线线的前进方向向（即里程增增大的方向）区区分左右；当当线元往左偏偏时，Q=-1；当线元往往右偏时，Q=1；当线元为为直线时，Q=0)。

②程序名：SOO(高程竖曲曲线要素子程程序)IfZ≥255900AnddZ≤26157..8:Theen-2000000→→R:157.88→T:260000→C:37.1→G:0.011222→I:Gotoo0:IffEnd:IfZ≥266157.88AndZ≤274211.915::Then3000000→R:1711.915→→T:272250→C:32..65→G:-0..003566→I:Gotto0:IIfEnd::IfZ≥277421.9915AnndZ≤278899.029::Then10000000→R:1344.029→→T:277755→C:36..64→G:0.00079→I:Gotto0:IIfEnd::……LbI0:RR:T:G::C:I:程序字母说明：：C-竖曲线交点点桩号；G-交点桩号高高程（未竖曲曲线调整的）；T-竖曲线切线长；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I－竖曲线前纵坡③程序名：I00（高程超高高参数子程序序）1.5→K:22→W:IfDD<0:ThhenGootoL::ElseGotoR:IfEEnd:LbIL:IIfZ≥259000AndZ≤266155.555::Then0→L:-0.022→M:Gotoo0:IffEnd:IfZ≥266615.5555AnndZ≤267355.555::Then120→L:266155.555→→C:-0..02→M:0.02→N:Gotoo0:IffEnd:IfZ≥266735.5555AnndZ≤267955.555::Then60→L:267355.555→→C:0.002→M:0.04→N:Gotoo0:IffEndIfZ≥266795.5555AnndZ≤274366.951::Then0→L:0.04→M:Gotto0:IIfEnd……LbIR:IfZ≥259000AndZ≤267355.555::Then0→L:-0.022→M:Gotto0:IIfEndIfZ≥266735.5555AnndZ≤267955.555::Then60→L:267355.555→→C:-0..02→M:-0.044→N:Gotoo0:IffEndIfZ≥266795.5555AnndZ≤274366.951::Then0→L:-0.044→M:Gotto0:IIfEnd……LbI0KK:W:L::C:M:NN:字程序中字母表表示说明：K－中央分隔带带半幅宽（中中桩标高至中中桩中线距离离，无分隔带带则为0）；W－超高方式参参数（W=1为一般直线线方式超高，W=2为三次抛物物线方式超高高）;L－超高渐变段段距离（不是是渐变段则输输入0）；C-超高渐变段段起点桩号（不不是渐变段，无无需输入）；；M－超高段起点点横坡，N-超高渐变段段终点横坡（不不是渐变段，无无需输入）。④程序名：GOO(路基标准准半幅宽度参参数子程序)IfD<0::ThenGotoL:ElsseGottoR:IIfEnd::LbIL:IIfZ≥259000AndZ≤281100.727::ThenZ→C:17.255→A:Gotoo0:IffEnd:IfZ≥288110.7727AnndZ≤282000.727::Then281100.727→→C:17..25→A:21.255→B:90→S:Gotoo0:IffEnd……LbIR:IfZ≥259000AndZ≤279277.478::ThenZ→C:17.255→A:Gotto0:IIfEndIfZ≥277927.4478AnndZ≤281722:Thenn279227.4788→C:17.255→A:27..031→B:244.5522→S:Gotoo0:IffEnd……LbI0CC:A:B::S:字程序中字母表表示说明：C－宽度渐变段段起点桩号（不不是渐变段C=Z）；A－宽度渐变段段起点宽度;B－宽度渐变段段终点宽度（不不是渐变段，无无需输入）；；S-宽度渐变段段距离（不是是渐变段，无无需输入）。⑤程序名：WOO(路基填挖边坡坡参数子程序)0.75→Z[[7]:1→→Z[8]::1.25→→Z[9]::10→Z[10]]:10→Z[11]]:2.6→→Z[12]]:2→Z[13]:2→Z[14]]:1.5→Z[115]:1..75→Z[16]:8→Z[17]::2→Z[18]]字程序中字母表表示说明：Z[7]－挖方方第一阶边坡坡边率；Z[8]－挖方第二阶阶边坡边率；；Z[9]－挖方第三阶阶边坡边率；；Z[10]]－挖方第一阶阶高度；Z[11]]－挖方第二阶阶高度；Z[12]]－挖方路基碎碎落台及水沟沟宽度；Z[13]]－挖方第二台台阶平台宽度度；Z[14]]－挖方第三台台阶平台宽度度；Z[15]－填填方第一阶边边坡边率；Z[16]]－填方第二阶阶边坡边率;Z[17]]－填方第一阶阶高度；Z[18]]-填方第二台台阶平台宽度度。（注：本本程序只做出出挖方三个台台阶，填方二二个台阶，如如需增加，先先需在程序THB和5FBZ程序中增加加变量。再如如一标段有坡坡率及坡高不不一样时，可可以照其它参参数程序一样样，用判别语语句。）

三、使用说明

11、规定

((1)Z“KM”为所求点桩桩号，反算时时为输入大概概桩号

(2)当所求点位位于中线时，Ｄ=0；当位于中线左铡时，Ｄ取负值；当位于中线中线右

侧时，Ｄ取正值。

(3)当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。

(4)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆

弧的半径。

(5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半

径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

(6)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设