CASIO4850计算程序.doc

坐标正算（ZBZS） XX1:YY1 LbI 0:LP LL:OFWJ: X2:NX+LcosO Y2:EY+LsinO Goto 0 注：X1,Y1:已知点坐标L：待求点至已知点的距离PWJ：已知点至待求点的方位角（以度分秒的方式输入）X2,Y2:待求点的坐标 坐标反算（ZBFS） TX1:UY1 LbI 0:XY:XX2:YY2 NX-T:EY-U OTan-1E÷N “L”:L√（N2+E2） N0OO+180 E0OO+360 O≧360OO-360 “FWJ”:O Goto0 注：X1,Y1:已知点1的坐标 X2,Y2:已知点2的坐标L：两点间的距离PWJ：两点间的方位角（以度分秒的方式输入） 直线段中边桩坐标计算（ZX.ZB） C”QD”:A”XQ”:B”YQ”:O”FWJ” LbI 0:GDF LP-C “X”:XA+LcosO “Y”:YB+LsinO D”ZBK” D0Goto 2 LbI 1 “XZ”:EX+DcosH-90 “YZ”:NY+DsinH-90 LbI 2 F”YBK” F0Goto 0 “XY”:WX+FcosH+90 “YY”:VY+FsinH+90 Goto 0 注：QD：直线段起点桩号 XQ，YQ：起点坐标 FWJ：起点方位角，（输入是以度分妙的方式输入） P：待求点桩号 ZBK：左边桩距中桩的距离 YBK：右边桩距中桩的距离 X，Y：待求桩号的中桩坐标 XZ，YZ：待求桩号的左边桩坐标 XY，YY：待求桩号的右边桩坐标 圆曲线中边桩坐标计算（YQX.ZB） E”ZY”:A”XZY”:B”YZY”:R:I”L-,R+”:H”FWJ” LbI0:FLM JF”P”-E G90J÷π÷R “X”:XA+2RsinGcosH+IG “Y”:YB+2RsinG sin H+IG L“ZBK” L0Goto2 LbI1 “XZ”:VX+L cosH+2IG-90 “YZ”:WY+L sinH+2IG-90 LbI2 M“YBK” M0Goto0 LbI3 “XY”: VX+L cosH+2IG+90 “YY”:WY+LsinH+2IG+90 Goto0 注: ZY:直圆点桩号 XZY，YZY：直圆点的横坐标与纵坐标 R：圆曲线半径 I“L-，R+”：圆曲线左偏为“-1”，右偏为“+1” FWJ：起点切线方位角，以“度分秒”输入 P：待求点桩号 ZBK，YBK：道路边桩距中桩距离的左边宽、右边宽 X，Y：道路中线坐标 XZ，YZ：道路左边桩坐标 XY，YY：道路右边桩坐标 缓和曲线（HHQX.ZB） V“FWJI”:W“FWJ2”:A“ZH”:C“XZH”:D“YZH”:B“HZ:E“XHZ”:F“YHZ”:R:L“LS”:I“L-，R+” KA+L:MB-L LbI0:P PAGoto5 P≤K Goto2 PMGoto3 P≤B Goto4 PBGoto6 LbI2 GP-A HG-G^5÷40R^2L^2+G^9÷（3456R^4L^4）-G^13÷（599040 R^6L^6） JG^3÷6RL-G^7÷336R^3L^3+G^11÷42240R^5L^5I “X”:XC+HcosV-JsinV “Y”:YD+HsinV+JcosV Goto0 LbI3 GP-A HRsinL÷2÷R×180÷π+G-L÷R×180÷π+L÷2-L^3÷240R2 JR1-cosL÷2÷R×180÷π+G-L÷R×180÷π+L2÷24÷RI “X”:XC+HcosV-JsinV “Y”:YD+HsinV+JcosV Goto0 LbI4 GB-P HG-G^5÷40R^2L^2+G^9÷（3456R^4L^4）-G^13÷（599040 R^6L^6） J-G^3÷6RL-G^7÷336R^3L^3+G^11÷42240R^5L^5I “X”:XE-HcosW+JsinW “Y”:YF-HsinW-JcosW Goto0 LbI5 GA-P “X”:XC+GcosV+180 “Y”:YD+GsinV+180 Goto0 LbI6 GP-B “X”:XE+GcosW “Y”:YF+GsinW Goto0 注：FWJ1:起始方位角 FWJ2:终点方位角 ZH:直缓ZH点桩号HZ:缓直HZ点桩号 XZH,YZH: 直缓ZH点坐标 XHZ,YHZ: 缓直HZ点坐标 R:圆曲线半径 LS:缓和曲线长 I”L-,R+”:路线左偏-1，右偏+1 P：待求点桩号 钢绞线伸长量计算（SCL.JS） P”PN”:E”Eg”A”Amm”:K”k”:U”u”:G0 LbI0:LO BKL”Lm”+UO”θ” Ce-B F1000PL1-C÷B÷EA PPC