1、CASIO fx-5800P CYT 综合曲线坐标正反算程序 V2.0说明：本程序适用于卡西欧计算器 CASIO fx-5800P,能进行全线贯通坐标正反算。可计算：交点前直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、交点后直线段的线路中、边桩坐标及切线方位角,该程序主要针对不对称缓和曲线设计并能直接计算出极坐标放样数据,能通过坐标反推该点里程和距中线距离 ,是测量员的专用程序。主程序名：CYT第 1 步 50DimZ：Deg：Fix 6第 2 步 If JYS：1=XY：-1=DK：?J：J=0=Goto B：J0=Goto A：10(45)Z25： JProgCYTFS：IfEnd第
2、3 步 Lb1 A：JSDK?Z ：W ?P：?Q：ProgCYTSJ：Goto C： Lb1 B第 4 步JD(DK)?D：JD(X)?N：JD(Y)?E：?R ：LS1?S：LS2?T ：?A ：FWJ?F：Lbl U：0=00第 5 步1=XY ：-1=DK：?J：J=0=Goto V：If J0：ThenJSDK ?Z：W ?P：?Q：Lb1 C：PorgCYTYS：Else 10(45)Z25：Prog CYTFS：IfEnd第 6 步 Lbl C：ProgCYTYS要素子程序名：CYTYS第 1 步 S(2)24R-S(4)2688R(3)Z5：T(2)24R-T(4)2688R(
3、3)Z6第 2 步 S2-S(3)240R(2)Z7：T 2-T(3)240R(2)Z8第 3 步 90SRZ9：90T RZ10第 4 步(Abs(A)-Z9-Z10) R180Z2第 5 步(R+Z5)tan(Abs(A)2)+(Z6-Z5)sin(Abs(A)+Z7Z11第 6 步(R+Z6)tan(Abs(A)2)+(Z5-Z6)sin(Abs(A)+Z8Z22第 7 步(R+Z5)COS(Abs(A)2)-R Z1第 8 步 Z2+S+TL：D-Z11Z12：Z12+SZ13：Z13+Z2Z15：Z12+LZ16：If J360：Then Z17-360Z17：IfEnd：N-Z11
4、Cos(F)Z18 ：E-Z11Sin(F)Z19第 12 步 F+AZ20 ： If Z20360：Then Z20-360Z20：IfEnd：N+Z22Cos(Z20)Z21 ：E+Z22Sin(Z20)Z23 ：ProgCYTZS：IfEnd正算子程序名：CYTZS第 1 步 Goto 2：Lbl P第 2 步JSDK?Z：W?P：?Q：Lb1 2第 3 步 If ZZ12：Then Goto I：IfEnd ：If ZZ13：Then Goto E：IfEnd第 4 步 If ZZ15：Then Goto F：IfEnd ：If ZZ16：Then Goto G：IfEnd第 5 步
5、If ZZ16：Then Goto H：IfEnd：Lb1 I：Z12-ZG第 6 步 Z18+GCos(Z17)+PCos(F+Q)X ：Z19+GSin(Z17)+PSin(F+Q)Y：FZ27第 7 步 Goto 3：Lb1 E：Z-Z12W：If A0：Then -1H：Else 1H：IfEnd第 18 步 Z20+180Z42：If Z42360：Then Z42-360Z42：IfEnd第 19 步 M(2)2RT180Z38：Z20+Z38H Z39第 20 步 M-M(5)40R(2)T(2)Z40 ：M(3)6R TZ41第 21 步 Z21+Z40Cos(Z42)-HZ4
6、1Sin(Z42)+PCos(Z39+Q)X第 22 步 Z23+Z40Sin(Z42)+HZ41Cos(Z42)+PSin(Z39+Q)Y：Z39 Z27第 23 步 Goto 3：Lb1 H：If ZZ16：Then Z-Z16：IfEnd第 24 步 Z21+Cos(Z20)+PCos(Z20+Q) X ：Z23+ Sin(Z20)+PSin(Z20+Q)Y：Z20Z27第 25 步 Lbl 3：If J0.001：Then Z+Z25Z：Goto 2：Else Goto K：IfEnd：Lbl K： (Y-V)Sin(Z14)Z30：ProgCYTFS ： IfEnd第 26 步 Lb
7、l S：Cls：F=：Locate 3,1,Z27：X=：Locate 3,2,X：Y=：Locate 3,3,Y第 27 步 Z(X)?B：Z(Y)?C第 28 步 POL(X-B,Y-C)：If JYS：1=XY：-1=DK(横盘显示)J? 0(输入 0 表示手动输入数据,输入 1 表示调用数据库数据 ,输入-1 表示运行当前调用的数据库进行反算里程和偏距)JD(DK)=? 9557.84(本交点里程)JD(X)?= 3373351.385(本交点坐标 X)JD(Y)?= 458628.379(本交点坐标 Y)R=? 2040(曲线半径)LS1?= 260(第一缓和曲线长)LS2?= 28
8、0(第二缓和曲线长)?= -141810(转角)FWJ?=1520941.68(第一直线方位角)正反算选择0=001=XY：-1=DK( 竖盘显示 )J?1(输入 0 返回至 0=YS：1=XY ：-1=DK 横盘界面 ,输入 1 表示引用当前数据进行正算这里不单独调用数据库,-1 表示引用当前数据进行反算这里不单独调用数据库,如需调用数据库需返回至 0=YS：1=XY：-1=DK 横盘界面输入 1 即可) 。进行正算JSDK?= 9500(计算里程)W?= 10(偏距：左为负 ,右为正 )?= 90(偏角, 正交为 90)T1= 387.001950(第一切线长)T2= 395.239989
9、(第二切线长)E= 17.385580(外失距)L= 779.246351(曲线长)ZH= 9170.838050(直缓桩号 )HY= 9430.838050(缓圆桩号)YH= 9670.084401(圆缓桩号)HZ= 9950.084401(缓直桩号 )FWJ= 146344.38(切线方位角 )X= 3373402.498(计算结果坐标 X)Y= 458602.6783(计算结果坐标 Y)Z(X)?= 3373693.598(测站坐标 X)Z(Y)?= 458447.6569(测站坐标 Y)F= 1515747.09(测站至计算点方位角 )S= 329.804457(测站至计算点距离 )进
10、行反算J? -1K? 9200X? 3373466.361Y? 458573.906X= 3373466.361Y= 458573.906K= 9430.838188(反算结果：里程)S=-0.001496(反算结果：偏距,负为左,正为右)五大桩对照表ZH=09+170.838,X=3373693.598,Y=458447.6569,FWJ=152941.68HY=09+430.838,X=3373466.361,Y=458573.9060,FWJ=1483037.36 QZ=09+550.461,X=3373366.244,Y=458639.3431,FWJ=14592.25HY=09+67
11、0.084,X=3373270.134,Y=458710.5365,FWJ=1414727.15 HZ=09+950.084,X=3373058.317,Y=458893.5689,FWJ=1375131.68更新记录：2010-10-01：程序首次发布,共 125 步骤,释义详细。2010-12-01：V1.0 调整了首次步骤多的问题,精简到了 50 步, 修改了主程序显示内容及相关布置。2010-12-06：V2.0 增加了坐标反算功能。本程序由【陈超】编著：版权归作者所有更多程序请访问：感谢您试用 AnyBizSoft PDF to Word。试用版仅能转换 5 页文档。要转换全部文档，免费获取注册码请访问http:/
