CASIO 5800程序编辑说明.doc

CASIO-5800P计算器程序编辑说明一程序名称：直线坐标计算Z-X-Z 程序内容：1. “X=“？A : “Y=“？B : “Q=”？Q 2. LbI 0 3. “N=”？N : “S=”？S : ”E=”？E 4. A + N cos(Q) D : B + N sin(Q) F 5. D + S cos(Q + E) 6. F + S sin(Q + E) 7. Goto 0内容说明：A 、 B以知点即起算点的x,y坐标值； Q直线段方位角； N直线段距离； S边桩距离； E转向角；（左转为“E”，右转为“E”）二程序名称：圆曲线任意坐标计算 ZY-YZ 程序内容：1. “Q=”？Q : “ X= ”？W : “ Y= “？K : “R= ”？R: “F=”？F : “N=”？N : “U=”？U 2. R tan(N2) T 3. QT A 4. W+T cos(F+180) M : K+T sin(F+180) G 5. LbI 0 6. “H=” ？H : ” S=” ？S : “E=” ？E 7. Abs(H - A) D 8. 180 D(R) 9. R sin() C 10. R (1-cos() D 11. M+C cos(F) I : G+C sin(F) J 12. I+D cos(F+90U) X : J+D sin(F+90U) Y 13. X+S cos(F+U+E) 14. Y+S sin(F+U+E) 15. Goto 0内容说明： Q交点里程桩号； W 、K交点X、Y坐标； R圆曲线半径； F前切线正方位角； N偏角；（即转向角） U控制偏角条件；（左偏角输入“1”，右偏角输入“+1”） H圆曲线上任意一点里程桩号； S中桩至边桩距离； E夹角；（左边桩输入“E”，右边桩输入“E”）三程序名称：极坐标放样元素计算J-Z-B-F-J程序内容: 1. “X=”？A : “Y=”？B : “X0=”？C :“Y0=”？D 2. PoI ( C - A,D - B ) : CIs 3. If J0 : Then J+360E : EIse JE:IfEnd:EDMS 4. I5. LbI 06. “XN=”？U7. WhiIe U0 （输入“0”即结束程序）8. “YN=”？V9. PoI(U-A,V-B):CIs10. If J0:Then J+360F:EIse JF:IfEnd:FDMS11. I12. F E H13. If H0:Then H+360H:IfEnd : HDMS14. Goto 0内容说明: A、B测站点坐标 C、D0方向点坐标 E计算出的测站点至0方向点的方位角 I计算出的测站点至0方向点的距离U，VN方向点坐标F计算出的测站点至N方向点的方位角I计算出的测站点至N方向点的距离H计算出的0方向与N方向的水平夹角表格：点 号X坐标Y坐标距 离方位角起止点号夹 角测站点0点001点012点02四程序名称：有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y程序内容：1“Q=”？Q ：“J=”？J ：“K=”？K ：“R=”？R ：“F=”？F ：“N=”？N ：“I =”？I ：“U=”？U 26 Dim Z 390 I(R) G （切线角，即缓和曲线角计算） 4I 2 (24R) - I 4(2688R3) P （内移距） 5I2 - I3(240R2) M （切线增值） 6(R+P) tan (N2)+M T （切线长） 7RN 180 + I L （曲线长） 8Q T A : A + I B : A + L D : D I C 9J + T cos(F+180) Z1 : K + T sin (F+180) Z2 10LbI 0 11“H=”？H ：“S=”？S ：“E=”？E 12H A I Z 13180 Z(R) + G 14R sin() + M X15R (1 cos（）) + P Z16Z1+ Xcos( F ) Z3 : Z2 + X sin( F ) Z417Z3+ Z cos (F + 90U ) Z5 : Z4 + Z sin(F + 90U ) Z618Z5+ S cos ( F +U + E ) 19. Z6 + S sin( F+U + E ) 20Goto 0内容说明: Q交点里程桩号； J 、K交点X、Y坐标； R圆曲线半径； F前切线正方位角； N偏角；（即转向角） I缓和曲线长； U控制偏角条件；（左偏角输入“1”，右偏角输入“+1”） H有缓和圆曲的线圆曲线上任一点里程桩号； S中桩至边桩距离； E夹角；（左边桩输入“E”，右边桩输入“E”） 第9项ZH点坐标；五程序名称：缓和曲线段上点位坐标计算 F-H-X-Y程序内容：1 “Q=”？Q ：“J=”？J ：“K=”？K ：“R=”？R ：“F=”？F ：“N=”？N ：“I =”？I ：“U=”？U 212 Dim Z 3I2 - I3(240R2) M （切线增值） 4I 2 (24R) - I 4(2688R3) P （内移距） 5RN 180 + I L （曲线长） 6M+ (R+P) tan (N2) T （切线长） 7Q T A : A + I B : （ZH : HY） A + L D : D I C (HZ:YH) 8J + T cos(F+180) Z1 : K + T sin (F+180) Z2 9. J + T cos(F+NU) Z3 : K + T sin (F+NU) Z4 10LbI 0 11“H=”？H ：“S=”？S ：“E=”？E 12. HB Goto 113. HD Goto 2 14LbI 1 15Abs(H - A) Z 1690 Z2(R I ) 17Z - Z5(40 R2I2) + Z9(3456 R4I4) X18Z3(6 RI) Z7(336 R3I3) + Z11(42240 R5I5) Z19Z1+ Xcos( F ) Z5 : Z2 + X sin( F ) Z620Z5+ Z cos (F + 90U ) Z7 : Z6 + Z sin(F + 90U ) Z821Z7+ S cos ( F +U + E ) 22. Z8 + S sin( F+U + E ) 23Goto 024. LbI 225. D - H Z2690 Z2(R I ) 27Z - Z5(40 R2I2) + Z9(3456 R4I4) X28Z3(6 RI) Z7(336 R3I3) + Z11(42240 R5I5) Z29Z3+ X cos( F + NU+180 ) Z9 : Z4 + X sin( F + NU+180) Z1030Z9+ Z cos (F + NU+180 - 90U ) Z11 : Z10 + Z sin(F + NU+180 - 90U ) Z1231Z11+ S cos ( F +NU+180 - U -（180 E）) 32. Z12 + S sin( F+ NU+180 - U -（180 - E）) 33. Goto 0内容说明: