5800-9860计算器坐标正反算通用程序
卡西欧5800程序坐标正反算[1]
![卡西欧5800程序坐标正反算[1]](https://img.taocdn.com/s3/m/5459ba14a216147917112868.png)
卡西欧5800程序坐标正反算修改 ZX-WN （其他的程序不用改,所有程序输完后退出进行扩展变量：5→Dimz 按EXE出现Done就OK了）WN(子程序不运行）＂ ZS=1,FS=2 ＂？N: 1÷P →C:(P-R)÷(2HPR)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd← ┚LbI 1:1 →I:0 →Z ： Abs(K- Ｏ) →W: Prog ＂ ZS ＂← ┚F-90→F← ┚＂ JJ ＂ ?K: ＂ PJ ＂ ?L: ＂ ZX= ＂：X+Lcos(F+K) →Z[3] ◢＂ ZY= ＂: Y+Lsin(F+K) →Z[4] ◢＂ QXFWJ= ＂:F DMS ◢Abs(Z) →Z:Goto 8← ┚LbI 2: ＂ X ＂ ?I: ＂ Y ＂ ?J: Prog ＂ FS ＂ : ＂ FSZH= ＂ : Ｏ+W→K ◢＂ FSJL= ＂:Z ◢Lbl 8正算子程序（ ZS ）（不运行）1÷P→C:(P-R)÷(2HPR) →D: 180÷π→E← ┚0.1739274226→A ：0.3260725774→B ：0.0694318442→K ：0.3300094782→L ： 1-L→F ： 1-K→M ： U+W （ Acos （ G+QEKW （ C+KWD ））+Bcos （ G+QELW （ C+LWD ）） +Bcos （ G+QEFW （ C+FWD ）） +Acos （ G+QEMW （ C+MWD ）））→X ： V+W （ Asin （ G+QEKW （ C+KWD ）） +Bsin （ G+QELW （ C+LWD ）） +Bsin （ G+QEFW （ C+FWD ）） +Asin （ G+QEMW （ C+MWD ）））→Y ： G+QEW （ C+WD ）+90→F ：X+ZcosF→X ：Y+ZsinF→Y3 反算子程序（ FS ）（不运行）G-90→T ： Abs （（ Y-V ）） cos （ T ） - （ X-U ） sin （ T ）→W ：0→Z← ┚Lbl 0← ┚prog ＂ ZS ＂： T+QEW （ C+WD ）→L ：（ J-Y ） cosL- （ I-X ）sinL→Z ：If Abs(Z) ＜ 0.001: Then Goto1 ：Else W+Z→W ：IfEnd :Goto 0← ┚ Lbl 1 ：0→Z ： Prog ＂ ZS ＂：（ J-Y ）÷sinF→ZZX-WN主程序（运行主程序是一个数据库），该程序适用于匝道，对全段完整非对称曲线计算太过麻烦）＂ CZX ＂ ?S( 仪站 X 坐标 ): ＂ CZY ＂ ?W （仪站 Y 坐标）LbI 0: ＂ K ＂?K: If K≤126.9 （第 1 条单一曲线的终点下面同上） : Then Goto A ：Else If K≤176.9 And K ＞126.9: Then Goto B:Else If K≤259.562 And K ＞176.9: Then Goto C:Else If K≤309.562 And K ＞ 259.562: Then Goto D ：IfEnd:IfEnd:IfEnd:IfEnd← ┚LbI A:92094.336 （起点 X 坐标）→U:8287.962 （起点 Y 坐标）→V:0 起点桩号→O:145°11 ＇ 54 ＂（方位角）→G:126.9 （曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1 （路线左右偏，左负右正，直线输 0 ）→Q:Prog ＂ WN ＂ :Goto WLbI B:91990.134→U:8360.388→V:126.9→O:145°11 ＇ 54 ＂→G:50→H:10^(45) →P:150 →R:+1→Q:Prog ＂ WN ＂ :Goto WLbI C:91947.609→U:8386.570→V:176.9→O:154°44 ＇ 51 ＂→G:82.662→H:150 →P:150 →R:+1→Q:Prog ＂ WN ＂ :Goto WLbI D:91867.101→U:8399.992→V:259.562→O:186°19 ＇ 19 ＂→G:50→H:150 →P: 10^(45) →R:+1→Q:Prog ＂ WN ＂ :Goto WLbI W: ＂ PJ1 ＂?T← ┚ （该项是只左右边桩再左右偏距，输 0 为不再左右偏，可以直接出方位角、距离，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前 - ，后 + ）If T=0 ：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd← ┚LbI V: ＂ JJ1 ＂? O← ┚ （左右边桩再偏夹角，用180° 减去路线夹角）＂ X1= ＂ : Z[3]+Tcos （ F+N+ O ）→U ◢＂ Y1= ＂ :Z[4]+Tsin （ F+N+ O ）→V ◢U→Z: V→M: GotoP← ┚LbI P:Pol(Z-S,M-W): If J≤0 ：Then J+360°→J: IfEnd← ┚＂ JL= ＂:I ◢ （仪站至测点的距离）＂ FWJ= ＂:J DMS ◢ （仪站至测点的方位角）Goto01．规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1 ；当元线往右偏时， Q=1 ：当元线为直线时，Q=0 °2．当所求点位于中线时， Z=0 ；当位于中线左侧时， Z 取负值：当位于中线右侧时， Z 取正值°当线元为直线时，其起点、止点的曲率半径为无穷大，以 10 的 45 次方代替°3．当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径°4．当线元为完整的缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的 45 次方代替°与圆曲线相接时，曲率半径等于圆曲线的半径，止点跟直线相接时，曲率半径为无穷大，以 10 的 45 次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径°5．当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径°止点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径°二、输入与显示说明1. 输入部分：2. . 输入3. ZS=1 ， FS=2 ，选择计算方式，输入 1 正算；输入 2 反算4. 数据库的输入5. U ？线元起点的 X 坐标6. V ？线元起点的 Y 坐标7. O ？线元起点的里程8. G ？线元的起点切点方位角9. H ？线元的长度10. P ？线元起点的曲率的半径11. R ？线元止点的曲率的半径 .12. ZY ？线元左右偏标志（左偏 Q=-1 ，右偏 Q=1 ，直线段 Q=0 ）13. 计算时：14. K ？正算时所求的里程15. JJ ？夹角，（正交90 °，斜交直接输角度）16. PJ ？偏距（左负右正）17. . 结果18. ZX= 正算时，计算得出的测点的 X 坐标19. ZY= 正算时，计算得出的测点的 Y 坐标20. QXFWJ= 正算时，测点对应中线点的切线方位角21. PJ1? ：左右桩号再偏距离，不需要时输 022. JJ1? : 左右边桩再偏角度23. JL= 仪站与测点的距离24. FWJ= 仪站与测点的方位角25. 反算时输入：26. X ？反算时所求点的 X 坐标27. Y ？反算时所求点的 Y 坐标28. 结果29. FSZH= 反算时，计算得出的所求点的里程30. FSJL= 反算时，计算得出的所求点的边距（负为左偏，正为右偏）出售 5800 计算器带主线正反算（正交 / 斜交），匝道全段正反算，全段高程（超高、加宽）中边桩出售 5800 计算器带程序1 、全路段主线坐标正反算（正交 / 斜交）2 、匝道全段坐标正反算（正交 / 斜交 )3 、全路段中边桩高程（带超高）有电子版的范例，初学者包教会，使用简单，快捷 . 让你短时间成为一个熟练的测量者。
卡西欧5800多功能实用坐标正反算小程序(附后方交会程序)
Goto0:
Lbl3:Cls：”X1=”?A:”Y1=”?B:?F: ”X2=”?X:”Y2=”?Y:
(X-A)cos(F)+(Y-B)sin(F)→I:
(Y-B)cos(F)-(X-A)sin(F)→Z:
Cls:“L=”: “Z=”:Locate4,1,I:Locate 4,2,Z◢
Goto0
注：程序中的“=>”是一个双箭号， 按FUNCTION选3下翻两页选3 即可输入。方Biblioteka 角L距离Z
偏距
R
斜交偏距的转角（顺时针为正数，正交输入0）
2程序名：HFJH（距离后方交会）
LBI 1 :〝XA〞?A :〝YA〞?B :〝XB〞?C :〝YB〞?D :〝D1〞?E :〝D2〞?F :?Q : 0→J : POL（C－A , D－B）→G : J+Q Cos－1（（GG+EE－FF）÷（2GE））→H :〝XP=〞: A+E Cos（H）→X▲〝YP=〞: B+E Sin（H）→Y▲Goto1
显示及操作说明：
显示
功能
1.XY→LF
2.LF→XY
3.XYF→LZ
1.输入两点坐标计算距离与方位角
2.输入起点坐标及方位角、距离、偏距、偏距的转角
3.输入起点坐标及方位角，输入实测坐标，计算实测点与起点的垂直距离和垂直偏距
显示
输入及显示说明
X1、Y1
第一点（起点）坐标
X2、Y2
5800计算器全线坐标计算放样正反算程序
5800计算器全线坐标计算放样正反算程序此处无法提供完整的程序，但是可以提供一些关于全线坐标计算放样正反算的基本知识。
全线坐标计算放样是指将一条曲线按照一定比例进行分割，然后计算每个分段的坐标值，最终得到完整曲线上每个点的坐标。
这个过程可以分为正算和反算两部分。
正算是根据曲线的起点、终点以及每个分段的长度，通过数学公式计算出每个分段末点的坐标，最终得到完整曲线上每个点的坐标。
反算则是根据给定的曲线上某个点的坐标，以及曲线起点到该点的距离，计算出该点在曲线上的位置。
在实际工作中，使用计算器进行全线坐标计算放样非常常见。
通常使用的计算器有5800和2000等型号，这些计算器都有相应的程序可以使用。
以下是大致的步骤：
正算步骤：
1. 选择“坐标计算放样”功能；
2. 输入曲线的起点坐标和终点坐标；
3. 输入曲线分段长度以及分段数量；
4. 计算每个分段的末点坐标；
5. 输出所有点的坐标。
反算步骤：
1. 选择“坐标计算放样”功能；
2. 输入曲线的起点坐标和终点坐标；
3. 输入参考点的坐标；
4. 输入参考点到曲线起点的距离；
5. 计算参考点在曲线上的位置；
6. 输出参考点在曲线上的坐标。
全线坐标计算放样是一项非常重要的工程测量工作，也是计算器的常见应用之一。
需要结合具体需求和计算器机型进行操作。
5800公路坐标正反算程序(线元法数据输入)
坐标正反算程序程序变量说明：D：选线。
E、F:置仪点坐X、Y。
K：待算点桩号。
B：待算点距离。
Q：待算点与线路交角（以顺时针方向）。
L：线元起点至待算点长度。
O：待算点方位角。
S：线元长度。
U：线元起点半径。
V：线元终点半径。
程序运行内容说明：开机运行程序后，1、进入主程序，选择正算或反算，1为正算，2为反算。
2、选择线路，1为第线。
2为第线。
3为第线等等。
3、如果上一次计算过的话提示是不更新数线路参数，十秒钟不操作更新，按EXE不更新。
如果上一次不是计算现在要计算的线路的话直接更新数据库（数据库更新会倒计时提示）。
3、正算。
提示入入置仪点坐标。
提示输入待算点桩号。
提示输入离中桩距离。
提示输入与线路方向夹角。
结果：坐标X、Y。
距置仪点距离和方位角。
再次提示输入待算点桩号。
反算。
提示输入实测点坐标X、Y。
结果：待算点桩号程距中桩距离。
再次提示输入实测点坐标X、Y。
程序特点：1、输入参数少，只要输入线路起点的桩号、半径、方位角、XY坐标以及各线元的桩号和半径(左+右-直线×1045)即可。
2、调用变量少，本程还有A、G、H、M、N、P、R、W字母变量未使用，可以用于其它程序而不会和本程序产生冲突。
3、数据库独立，更换工程时数据更换方便。
4、界面友好，尽量做到人人都容易上手，操作一学就会。
5、程序尽量运用5800计算器各种指令，使程序速度提高。
并能够起到帮助大家学习5800各指令工作原理，以便更好掌握编程。
卡西欧5800计算器程序全线正反算
FX5800计算器交点法正反算程序1、主程序程序名：1XY-KMLbI 0：7→DimZ：Norm 2:1→A：＂A:X,Y=1，KM,D=2＂?A:A=1=>Goto 1:A=2=>Goto 2:LbI 1:LbI A:Prog＂QX＂:90→B:＂PJ＂?B:B→Z[1]：LbI B:＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A: Prog＂X1＂:?D: Prog "Z":I+D×COS(Z[2]+Z[1]→X: J+D×Sin(Z[2]+Z[1]→Y: Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ：＂Ｙ＝＂：Loca te 6,4,Ｙ：◢Goto B:LbI 2：Prog＂QX＂:＂KM＂?Z：LbI C: Prog＂X1＂: ＂XO＂?X:X=-1=>Goto 0:X=-2=>Goto 2: ＂Y0＂?Y:Prog ＂ZX＂: Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ：＂Ｄ＝＂：Loca te 6,4,Ｄ◢Goto C2. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R÷S in(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: (R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+ N÷2-N∧(3)÷240÷R2+E→Z[6]: O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Z[7]:If Z≤O-T:T hen Z-O→S:G→Z[2]:Goto 1: IfEnd: If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z [2]:A-T→A:G→E:Goto 2:IfEnd:If Z≤Z[7]: 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]: A-T→A:G→E :G oto 2: IfEnd:If Z≤Z[7]+N:Then Z[7]+N-Z→S:Z[6]→T :N→H:Prog “HX”:G+P→E:E-WK→Z[2]:T-A→A:C→H:Goto 2:IfEnd:Z-Z[7]-N+Z[6]→S:G+P→Z[2]: LbI 1:U+Scos(Z[2])→I:V+Ssin(Z[2]→J: Return:LbI 2:U+Acos(E)-WBsin(E→I:V+ASin(E)+WBcos(E→J3. 交点法缓和段子程序(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 →M4. 交点法反算子程序(ZX)程序名：ZX0→D:Do:Z+D→Z:Prog“Z”:Pol(X-I,Y-J+.000000001:J-Z[2]→J:Isin(J→S:Icos(J→D: If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D)>0.001:Z+D→Z:S→D 5．线路选择子程序(线路选择输0时。
非常好的5800坐标正反算程序
5800坐标正反算程序“1.If SZThen XY”：“2. If XYThen SZ”：“N=”？→N：起点X→U：起点Y →V：起点里程→O：起点方位角→G：曲线长度→H：起点曲率半径→P：终点曲率半径→R：（左偏－1；直线0；右偏1）→Q：1÷P→C：（P－R）÷(2HPR)→D：180÷π→E：If 1→N：Then Goto 1：Else Goto 2：IfEnd←Lbl 1：“S＝”？→S：“Z＝”？→Z：Abs(S－O)→W：Prog “SUB1”：X→X▲Y→Y▲Lbl 2：“X＝”？→X：“Y＝”？→Y：X→I：Y→J：Prog “SUB2”：O+W→S▲Z→Z▲Goto 2正算子程序SUB10.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1－L→F：1－K→M：U+W（Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+ Bcos(G+QEFW(C+FWD))+A cos(G+QEMW (C+MWD)))→X：V+W（Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD)) +Asin(G+QEMW+(C+MWD)))→Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y←反算子程序SUB2G－90→T：Abs((Y－V)cosT－(X－U)sinT)→W：0→Z：Lbl 0：Prog “SUB1”：T+QEW(C+WD) →L：（J－Y）cosL－(I－X)sinL→Z：If AbsZ＜0.000001：Then Goto1：Else W+Z→W：Goto0：IfEnd←Lbl 1：0→Z：Prog“SUB1”：（J－Y）÷sinF→Z5800坐标反算程序Lbl 0：“X=”?→X：“Y＝”？→Y：焦点X→N：焦点Y→E：转向角→A：半径→R：缓和曲线长→C：切线长→T：直缓点里程→G：缓直点里程→M：方位角→F：If G＜M：Then 1→P：F→U：Else －1→P：F+A→U：IfEnd←If A＞0：Then 1→Z：Else －1→Z：IfEnd←Pol(X－N，Y－E) ←G+PT+Rec(I,J－U)→S：J→D←If G＞M：Then Goto3：IfEnd←If S≤G ：Then S→K▲ZD→Q▲Goto 0←Else Goto4：IfEnd←Lbl 3←If S≥G：Then S→K▲ZD→Q▲Goto 0←Lbl 4←C2÷24÷R－C4÷2688÷R3→W：C÷2－C3÷240÷R2→V：90C÷R÷π→B：←Pol(P(S－G) －V，ZD－R－W) ←If J≥B－90：Then Goto 5：IfEnd←P(S－G)+P(S－G)5÷40÷R2÷C2→Z←Z3÷(6RC) →H←If A＞0：Then D－H→W：Else －D－H→ W：IfEnd←If RC≤2WC：Then RC÷W→Z：Else(RC－√（R2C2－2RCWZ）) ÷W→Z：IfEnd←G+PZ→K▲K－PZ5÷(40R2C2) →V：Z3÷(6RC) →H←If A＜0：Then －1→Z：Else 1→Z：IfEnd←√((S－V)2+(ZD－H)2) →W←If ZD≥H：Then W→Q▲Else －W→Q▲IfEnd←Goto 0←Lbl 5←(90+J)π÷180－C÷2R→J←If RJ≥P(M－G) －2C：Then Goto 6：IfEnd←G+P(C+JR) →K▲R－I→Q▲Goto 0←Lbl 6←Pol(P(S－G) －T，ZD) ←M－P(T－Rec(I，J－AbsA)) →O←If G＞M：Then Goto 7：IfEnd←If O＞M：Then O→K▲J→O▲Goto 0←Else Goto 8：IfEnd←Lbl 7←If O≤M：Then O→K▲J→Q▲IfEnd←Goto 0←Lbl 8←P(M－O)+P(M－O)5÷(40R2C2) →Z←Z3÷(6RC)) →H←J－H→W←If RC≤2WZ：Then RC÷W→Z：Else(RC－√(R2C2－2RCWZ)) ÷W→Z：IfEnd ←M－PZ→K▲K+PZ5÷(40R2C2) →V：Z3÷(6RC) →H：√（（O－V）2+(J－H)2）→W←If J≥H：Then W→Q▲Else －W→QIfEnd←Goto 0←。
5800计算器左右洞中边桩正反算程序
5800计算器程序输入格式YOUXIAN―K=‖ ? L: If L <= 108451.609 : Then Prog ―GT –BQU‖ : IfEnd 回车换行ZUOXIAN―K=‖ ? L: If L <= 391200 : Then Prog ―GT –AQU‖ : IfEnd 回车换行一、主程序（ALLINE）―K=‖ ? L: If L <= 240987.601 : Then Prog ―GT – AQU‖ : IfEnd 回车换行If L <= 243536.746 : Then Prog ―GT – BQU‖ : IfEnd二、1--1级子程序(GT – AQU)001（此为编号，不用输入，下同）If L<= 228634.196 : Then 227400 → A : 228634.196 → B : 0→R : 0→V :2978464.863 →C :487166.400 →D :129-01-13.17 →E（方位角采用度分秒的格式输入）:Prog‖H-SIMP‖ : Return :IfEnd回车换行002 If L<=228964.196 : Then 228634.196 → A : 228964.196 → B : 0 →R: -1 /5000 →V :2977687.820 →C :488125.276 →D : 129—01—13.17 →E（方位角采用度分秒的格式输入）:PROG‖H-SIMP‖ : Return :Ifend 换行符003 If L <= 233231.971 : THEN 228964.196 → A : 233231.971 → B : -1/5000 →R : -1 /5000 →V :2977482.896 →C :488383.918→D :127—07—46.59 →E（方位角采用度分秒的格式输入）:PROG‖H-SIMP‖ : Return :Ifend 换行符004If L<= 233561.971 : THEN 233231.971 →A : 233561.971 →B : -1/5000→R:0→V:2976574.472 →C :492422.451 →D :78-13-28.23 →E （方位角采用度分秒的格式输入）:Prog‖H-SIMP‖ : Return :IfEnd 换行符005IF L<= 239146.929 : THEN 233561.971 → A : 239146.929→ B : 0 →R:0 →V :2976648.916 →C :492743.884 →D :76-20-01.33 →E（方位角采用度分秒的格式输入）:PROG‖H-SIMP‖ : Return :Ifend 换行符006IF L<= 239316.929 : THEN 239146.929 → A : 239316.929 → B : 0 →R:-1/8000 →V :2977822.207→C :497569.249 →D :76-20-01.33→E （方位角采用度分秒的格式输入）:PROG‖H-SIMP‖: Return :Ifend 换行符007IF L<= 239700.272 : THEN 239316.929 → A : 239700.272 →B:-1/8000→R:-1/8000→V:2977862.957→C:497734.292→D :72-43-29.7 7→E（方位角采用度分秒的格式输入）:PROG‖H-SIMP‖: Return :Ifend 换行符008IF L<= 239870.272 : THEN 239700.272 →A : 239870.272 →B:-1/8000→R:0→V:2977966.344→C:498103.392→D :72-58-46→E（方位角采用度分秒的格式输入）:PROG‖H-SIMP‖ : Return :Ifend 换行符009 IF L<= 240987.601 : THEN 239870.272 →A : 240987.601 →B:0→R:0→V:2978017.255→C:498265.587→D :72-22-14.44→E（方位角采用度分秒的格式输入）:PROG‖H-SIMP‖ : Return :Ifend 换行符注：L 代表桩号，A 代表这一段的起点桩号，B代表终点桩号，R代表起点曲率，V代表终点曲率（左偏为—，右偏为+），C代表起点坐标x，D代表起点坐标y，E 代表起点方位角。
卡西欧5800公路坐标正反算程序
目录一、坐标正算基本公式………………………………………………………０２二、坐标反算原理 (04)三、高程数据库录入变换 (05)四、计算器程序………………………………………………………０7 ０1、ZBZS(坐标正算)………………………………………………………０702、ZBFS(坐标反算)………………………………………………………０803、ＧＣJF(高程积分） (09)04、PＪFＹ(坡脚放样)………………………………………………………1０05、ＪFCＸ（积分程序) (11)0６、ZＢFY(坐标放样)………………………………………………………１１０７、ＤT(递推） (12)08、H P(横坡） (13)０9、LK(路宽)………………………………………………………１410、SJK1(平面数据库) (14)11、SＪK２(纵面数据库)………………………………………………1４12、SJK3(左路宽度数据库） (15)１3、SＪＫ4(右路宽度数据库) (15)1４、SJＫ5(横坡数据库)......................................................1６１5、SＪK６(下边坡数据库) (16)16、SJK7(左上边坡数据库)………………………………………………1７17、ＳＪK８（右上边坡数据库）………………………………………………1８五、后记 (19)CASIO 58０0计算器公路工程测量程序一、正算所涉及得计算公式 X R i d XαβBd Y d l d βI图表 错误!不能识别的开关参数。
在图1中,A 点为回旋曲线起点,B 点为回旋曲线止点,I 点为所求坐标点。
设: Ａ点得X 坐标为X A ,Y 坐标为Y Ａ ,Ａ点得切线方位角为α,A 点得曲率为ρＡ,A 点得里程为ＬＡ，B 点得曲率为ρＢ,Ｂ点得里程为L Ｂ,I 点得曲率为ρI ,Ｉ点得里程为ＬI 。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
5800-9860计算器坐标正反算通用程序
1. 坐标正算主程序(命名为ZBZS)
第1行：Lbl 0:”K=”?K:”BIAN=”? Z:”α=”?B
第2行：Prog “A”
第3行：”X=”:N+Zcos(F+B)◢
第4行：”Y=”:E+Zsin(F+B)◢
第5行：”F=”:F◢
第6行：Goto 0
K——计算点的里程
BIAN——计算点到中桩的距离（左负右正）
α——取前右夹角为正
2. 坐标反算桩号和偏距主程序(命名为ZBFS)
第1行：”X1=”? C:”Y1=”?D: ”K1=”?K
第2行：Lbl 0:Prog “A”
第3行：Pol(C-N,D-E)
第4行：List Ans[1]→I
第5行：List Ans[2]→J
第6行：Icos(F-J)→S:K+S→K
第7行：Abs(S)>0.0001=>Goto 0
第8行：”K1=”:K◢
第9行：”BIAN=”:Isin(J-F)→Z◢
X1——取样点的X坐标
Y1——取样点的Y坐标
K1——输入时为计算起始点(在线路内即可)，输出时为反算点的桩号
Z——偏距（左负右正）
3. 计算坐标子程序(命名为XYF)
为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1行：K-A→S：(Q-P)÷L→I
第2行：N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N
第3行：E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E
第4行：F+S(2P+SI)×90÷π→F
4. 数据库（命名为A）
第1行：K≤175.191=>Stop
第2行：
175.191→A:428513.730→N:557954.037→E:92°26′40″→F:0→P:1/240→Q:70.417→L: K≤A+L =>GoTo 1（第一缓和曲线，圆半径为240）
第3行：245.607→A: 428507.298→N:558024.092→E: 100°50′59.4″→F:
1/240→P:1/240→Q:
72.915→L: K≤A+L =>Goto 1（第圆曲线，半径为240）
第4行：318.522→A: 428482.988→N:558092.538→E: 118°15′25.2″→F: 1/240→P: 0→Q: 55.104
→L: K≤A+L =>Goto 1（第二缓和曲线，圆半径为240）
第5行：373.627→A:428453.283→N:558138.912→E:124°50′4.5″→F:0→P:-
1/180→Q:67.222→L:
K≤A+L=>Goto 1:Stop（第一缓和曲线，圆半径为180）
第6行：Lbl 1:Prog “XYF”
A——曲线段起点的里程
N——曲线段起点的x坐标
E——曲线段起点的y坐标
F——曲线段起点的坐标方位角
P——曲线段起点的曲率(左负右正)
Q——曲线段终点的曲率(左负右正)
L——曲线段长度（尽量使用长度，为计算断链方便）
说明：
（1）在9860中，程序中所有公式和部分函数结果均存储在List Ans列表数组中，要想多次调用最好随公式取出结果，并赋给变量。
（2）正算主程序可以计算一般边桩的坐标，如要计算类似涵洞端墙的坐标需增加第二偏距和转角两个变量。
（3）程序规定，左偏曲线曲率（半径倒数）输入负值，右偏曲线曲率输入正值，直线上点曲率输入0，例如直线段，线元起点和终点均输入0，第一缓和曲线分别输入0和圆半径的倒数，圆曲线均输入半径倒数，第二缓和曲线分别输入圆半径倒数和0，卵形曲线分别输
入对应圆半径的倒数
（4）若是从大里程向小里程的反方向计算，则曲率取正方向时的负值，方位角减去(或加上)180度。
（5）有多个匝道的项目，可随时更改正反算主程序中的红色字体部分来调用其它线路的数据
（6）反算桩号偏差为1mm
（7）可以计算任意线型的任意点坐标
5. 坐标计算通用程序(命名为ZB)
本程序与上述中的几个程序无关，是在计算坐标时采用输入曲线元参数模式下的程序，为临时使用方便。
第1行：”K0=“? A:”X0=“?
N:”Y0=“?E:”F0=“?F:”1÷R1=“?P:”1÷R2=“?Q”:“L0=“?L
第2行：Lbl 0:”K=”?K:”BIAN=”? Z:”α=”?B
第3行：Abs(K-A)→S：(Q-P)÷L→I
第4行：N+∫(cos(F+X(2P+XI)×90÷π),0,S)→X
第5行：E+∫(sin(F+X(2P+XI)×90÷π),0,S)→Y
第6行：”F=”:F+S(2P+SI)×90÷π◢（可省掉）
第7行：”X=”:X+Zcos(Z+B)◢
第8行：”Y=”:Y+Zsin(Z+B)◢
第9行：Goto 0
本程序测试于卡西欧9860，适用于卡西欧计算器5800以上版本，去掉反算程序中第4、5行后可用在5800计算器上。