1、FX5800P 全线任意里程中边桩坐标正反算（加了数据库）本程序非本人原创，结合上传者长处，进行改编，愿收获和大家共享，不足之处多多指教。希望过路神仙把竖曲线加进去带算隧道超欠挖，谢谢曲線任意里程中邊樁坐標正反算 5800p本程序由内蒙文哥和师父阿玖哥共同改编完成主程序 ZBJSLbl 6：“1.SZ XY“：“2.XY SZ“：？S：？N：Prog“SUB0”1PC：(P-R)(2HPR) D：180E:N=1 =Goto 1: Goto 2Lbl 1:?Z: Abs(S-O)W: Prog“SUB1“:“XS=“:X“YS=“:Y“FS=“:F-90 DMS“XC” ?C： “YC” ?
2、E：0I：0J：Pol（X-C，Y-E）:“I=”：IIf J0: Then “J=”: J+360DMSIfEndIf J 0：Then “J=” ：JDMSIfEnd：Goto 6Lbl 2?X:?Y:XI:YJ:Prog“SUB2“:O+WS:Cls:“S=“:S “Z=“:ZGoto 6正算子程序 SUB10.1739274226A： 0.3260725774B： 0.0694318442K： 0.3300094782L： 1-LF： 1-KM：U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEM
3、W(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)+90F： X+Zcos（F）X： Y+Zsin（F）Y反算子程序 SUB2 G-90T(Y-V)cosT-(X-U)sin(T) WAbs(W)W:0ZLbl6：Prog “SUB1“T+QEW(C+WD) L ： (J-Y)cos（L）-(I-X)sin （L）ZIF Abs（Z） XY2. XY = SZ S ? 选择里程 ,N?，Z? 左或右偏距。选择计算方式，1.表示进行由里程、
4、边距计算坐标 ；输入 2 表示由坐标反算里程和边距。显示部分：XS= 正算时，计算得出的所求点的 X 坐标YS= 正算时，计算得出的所求点的 Y 坐标FS= 正算时，所求点对应的中线点的切线方位角XC= 测站点 X 值YC= 测站点 Y 值 I=XXX 测站到放样点距离J=XXX 测站到放样点方位角S= 反算时，计算得出的所求点的里程Z= 反算时，计算得出的所求点的边距三 算例请到 http:/ Z=-1 :Then “A0，DD”:JZIIfEnd If Z=0:Then RX:UY:Prog “D”:Goto 1:IfEnd 在后增加一句，解决了程序再次运行时，交角的初值被置为测站点的坐标
5、的 BUG.O-ZS:”J0”?S:Z+SO:”0-XX，YYX，Y”:”1-X，YXX ，YY”?T:If T0: Then Goto 3:IfEnd Lbl 2:”XX”?P:”YY”?Q:If PQ=0:Then Goto 1:IfEnd ”X，Y”:R+Pcos(Z)+Qcos(O)XU+Psin(Z)+Qsin(O)YProg “D”:Goto 2 Lbl 3:”XF”?X:”YF”?Y:If XY=0: Then Goto 1:IfEnd ”XX，YY”:(X-R)sin(O)-(Y-U)cos(O)sin(S)P(Y-U)cos(Z)-(X-R)sin(Z)sin(S)Q Got
6、o 3 十二、Y 程序：线元法计算匝道坐标 L-KC:If LF:Then F-KC:IfEnd If W=0 or CF:Then R+Rec(L-F，Z) R:U+JU:0Z9:IfEnd 十三、Z 程序：交点法计算中桩坐标 If Z2=0:Then Prog “Y”:Return:IfEnd B2A24P:0.1B(5-PA) Q:Q+(A+P)tan(0.5Abs(W) T:K-TC:C+BD:D+AAbs(W) 180F:F-BE WAbs(W)S:0Z9:If LC:Then L-KO:VZ:Goto 2:IfEnd If LF:Then L-F+TO:V+WZ:Goto 2:If
7、End If LE:Then F-LO:Prog ”X”:V+WO:O-SRZ:G+(T-I)cos(O)-SJsin(O)R:H+(T-I)sin(O)+Sjcos(O) U:Goto 3:IfEnd If LD:Then (L-D+0.5B)A)rO:Q+Asin(O)I:P+A(1-cos(O) J:AZ9:V+SOZ:Goto 4:IfEnd L-CO:Prog “X”:V+SRZ Lbl 4:G+(I-T)cos(V)-Sjsin(V)R:H+(I-T)sin(V)+Sjcos(V)U:Goto 3 Lbl 2:G+Ocos(Z)R:H+Osin(Z)U Lbl 3 十四、AU 程序
8、: 注：L0-输测段桩号近似值，”AU”子程序根据桩号近似值自动调用曲线要素（包括线元法和交点法要素），Z2=0 则调用线元法数据，否则为交点法数据 （L0=0-默认为原曲线要素 L0=-1-手工输入曲线要素） Cls:” L0= 0-Conti.”:” L0=-1-Input”:If Z2=0:Then Locate 13，2，”(XY)”:Else Locate 13，2，”(JD)”:IfEnd Z2S:”0 XY E.JD”?S:SZ2:”L0”?L:If L=0:Then ReTurn:IfEnd If L=-1:Then Prog “I”:ReTurn:IfEnd If Z2=0:
9、Then Prog “ZA”:Else Prog “JD”:IfEnd Mat F1，1K: Mat F1， 2G: Mat F1，3H: Mat F1，4V: Mat F1，5W: MatF1，6A: Mat F1，7B: If Z2=0:Then Mat F1，8F:Else Mat F1，8Z11: Mat F1，9Z12:IfEnd 十五、JD 程序：交点法矩阵每一行数据依次为交点桩号，交点 X 坐标，交点 Y 坐标，起始边方位角，偏角，圆曲线半径，缓和曲线长度，计算单元起点，计算单元终点 If L 24900: Then “LminX”:LStop:IfEnd If L 30801.
10、27: Then “LmaxX”:LStop:IfEnd IF L26227.359:Then 25676.236， 142225.377，504270.949，62459.6，-705010.6，770，300.007，24900，26227.359Mat F:Return:IfEnd IF L27318.276:Then 27026.458， 142873.016，502918.028，2953449.，-153118.5，1500，180.003，26227.359，27318.276Mat F: Return:IfEnd IF L28522.182:Then 28148.818， 14
11、3069.516，501810.234，2800330.5，414502.1，780，206.532，27318.276，28522.182Mat F: Return:IfEnd IF L29246.112:Then 28895.742， 143666，501341，3214832.6，-223308.8，1250，215.74，28538.355，29246.112Mat F: Return:IfEnd IF L30801.27:Then 30431.525， 144420，499995，2991523.8，492952.7 ，720，160.598，29246.112，30801.27Ma
12、t F: Return:IfEnd 十六、ZA 程序 注 2：线元法矩阵每一行数据依次为起点桩号，起点 X 坐标，起点 Y 坐标，起点方位角，左右转标志，起点曲率半径，终点曲率半径，终点桩号 If L 0: Then “LminX”:LStop:IfEnd If L 1479.85: Then “LmaxX”:LStop:IfEnd If L 1000: Then Goto 2:IfEnd If L 553.49: Then “LmaxX”:LStop:IfEnd IF L82.699:Then 0 ，142872.513 ，502902.111，2900300，-1，1509.5，1509.
13、5，82.699Mat F:Return:IfEnd IF L111.519:Then 82.699，142898.724，502823.687，2865440，-1，1509.5，1T，111.519Mat F:Return:IfEnd IF L155.022:Then 111.519，142906.932，502796.061，2862151，-1，1T，1000，155.022Mat F:Return:IfEnd IF L269.54:Then 155.022，142918.885，502754.233，2850704，-1，1000，1000，269.54Mat F:Return:If
14、End IF L359.475:Then 269.54，142942.363，502642.211，2783323，-1，1000，1T，359.475Mat F:Return:IfEnd IF L434.421:Then 359.475，142953.072，502552.924，2755848，1，1T，1200，434.421Mat F:Return:IfEnd IF L463.597:Then 434.421，142961.655，502478.474，2774609，1，1200，1200，463.597Mat F:Return:IfEnd IF L501.14:Then 463.5
15、97，142965.95，502449.617，2790944，1，1200，1T，501.14Mat F:Return:IfEnd IF L553.488:Then 501.14，142972.314，502412.618，2800331，0，1T，1T，553.488Mat F:Return:IfEnd Lbl 2:IF L1169.959:Then 1000，142957.323，502388.342，1025507 ，0，1T，1T，1169.959Mat F:Return:IfEnd IF L1215.026:Then 1169.959，142919.325，502554，10255
16、07，-1，1T，1500，1215.026Mat F:Return:IfEnd IF L1261.836:Then 1215.026，142909.471，502597.975，1020328，-1，1500，1500，1261.836Mat F:Return:IfEnd IF L1283.436:Then 1261.836，142900.408，502643.898，1001611，-1，1500，1T，1283.436Mat F:Return:IfEnd IF L1307.44:Then 1283.436，142896.66，502665.17，995126，-1，1T，700，1307
17、.44Mat F:Return:IfEnd IF L1346.219:Then 1307.44，142892.686，502688.842，985230，-1，700，700，1346.219Mat F:Return:IfEnd IF L1363.61:Then 1346.219，142887.767，502727.303，954203，-1，700，1T，1363.61Mat F:Return:IfEnd (21)IF L1387.958:Then 1363.61，142886.183，502744.622，945920 ，1，1T，500，1387.958Mat F:Return:IfEn
18、d (22)IF L1451.374:Then 1387.958，142883.869，502768.858，962302 ，1，500，500，1451.374Mat F:Return:IfEnd (23)IF L1477.462:Then 1451.374，142872.845，502831.266，1033903 ，1，500，1490.5，1477.462Mat F:Return:IfEnd (24)IF L1479.848:Then 1477.462，142866.175，502856.486，1053850 ，1，1490.5，1490.5，1479.848Mat F:Return
19、:IfEnd我今天看了一则，但该则回复窗被关了，所以只能在这儿说说了，很多人可能还认为CASIO fx-4500(包括 fx-4500)后的计算器不能加锁，其实 CASIO fx-4800、4850 计算器是可以加锁的，我不但这样认为而且还这样做了。这个加密的办法虽然不是很高明，但是却很有效，因为很多人根本就没有意识到CASIO 会有这么一手的，一旦不能运行或者运行出错就认为是程序没有输正确。 CASIO 加密的方法其实很简单，就是在程序内容中通过变量赋值的方法进行加密的，而且可以在多个不同的地方进行不同的加密，下面看我的一个道路放线程序就加了密的（CASIO fx-4850）：Lb1 9：B
20、0=V=1 ：=V=-1 Z30=100=I=U I=I+VZ ：“X=”：X=X+AbsBcosI“Y=”：Y=Y+AbssinI以上程序是计算边桩坐标的（B 为边距,左负右正,当 B=0 时为中桩坐标） ，U 为该桩号对应中桩的切线方位角，VZ 是边桩方向与该中桩切线方向的夹角，该程序可放任意夹角的边桩，Z 一般为 90 度。解密，在计算器的普通计算模式下令 Z30=100 就解密了，如果对程序和公式没有全面的研究恐怕是解不了的哦。各位网友，不知道你们的程序加了密没有，我的重要程序可都是加了密的哟！信息来源：测绘者交流平台 http:/www.CehuiHR.com 原文链接：http:/
21、 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2) 当所求点位于中线时，Z=0，坐标显示 X Y；当位于中线左侧时，Z 取负值,坐标显示XL YL,；当位于中线右侧时，Z 取正值,坐标显示 XR YR。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10 的 45 次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的 45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线
22、相接时，曲率半径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。本程序可以根据曲线段直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距，对该曲线段范围内任意里程中边桩坐标进行正算。本程序是运用复化辛普生公式以及对扩充变量的应用，实现了真正意义上的的全线贯通。程序分为两部分：1
23、 为计算 2 为设置。首先对内存变量进行扩充，为防止误操作在输入正确口令 123456 时方可进行设置。可以根据内存容量输入无限多段线元要素，扩充变量个数根据输入线元段数进行调整。在执行程序中将各个线元要素按规律输入到扩充内存变量中，在坐标计算时程序首先自动判断其在哪一线元内，并把其线元要素调出进行计算。在进行计算时直接输入桩号、宽度就可以进行全线坐标计算。本程序可在 4800 4850 上运行，只需将输出部分进行修改。四、 示例郑石高速路面 9 标主线线元要素及相关数据如下：X0 Y0 F0 R0 RN D0 LS Q744450.244 510454.431 220o41 o31.8 o
24、7000 7000 116075.889 3386.293 1742505.351 507722.676 248o24 o33.6 o 1045 1045 119462.182 1980.825 0741776.461 505880.832 248o24 o33.6 o 8500 8500 121443.007 1517.999 1741346.546 504427.086 258o38 o30.1 o 1045 1045 122961.007 1985.977 0桩号 宽度 X Y 117000 0 743791.308 509807.481118000 -20 743164.306 509
25、027.467119000 20 742707.551 508137.935119462.182 0 742505.351 507722.677120000 -15.253 742293.265 507228.206121000 15.260 741953.664 506287.142121443.007 0 741776.460 505880.833122000 -10.20 741578.903 505359.702122961.007 50.355 741395.915 504417.169123650 0 741210.853 503751.587 信息来源：测绘者交流平台 http:
26、/www.CehuiHR.com 原文链接：http:/ 0 S ,(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2) 当所求点位于中线时，Z=0 ，坐标显示 XY；当位于中线左侧时，Z 取负值,坐标显示 XLYL,；当位于中线右侧时， Z 取正值,坐标显示 XRYR。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10 的 45 次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以
27、10 的 45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。本程序可以根据曲线段直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距，对该曲线段范围内任意里程中边桩坐标进行正算。本程序是运用复化辛普生
28、公式以及对扩充变量的应用，实现了真正意义上的的全线贯通。程序分为两部分：1 为计算 2 为设置。首先对内存变量进行扩充，为防止误操作在输入正确口令 123456 时方可进行设置。可以根据内存容量输入无限多段线元要素，扩充变量个数根据输入线元段数进行调整。在执行程序中将各个线元要素按规律输入到扩充内存变量中，在坐标计算时程序首先自动判断其在哪一线元内，并把其线元要素调出进行计算。在进行计算时直接输入桩号、宽度就可以进行全线坐标计算。本程序可在 48004850 上运行，只需将输出部分进行修改。四、示例郑石高速路面 9 标主线线元要素及相关数据如下：X0Y0F0R0RND0LSQ744450.244510454.431220o41 o31.8 o70007000116075.8893386.2931742505.351507722.676248o24 o33.6 o10451045 119462.1821980.8250741776.461505880.832248o24 o33.6 o85008500121443.0071517.9991741346.546504427.086
