CASIO4850 计算程序.doc

坐标正算（ZBZS）XX1:YY1LbI 0:LPLL:OFWJ:X2=:N=X+LcosOY2=:E=Y+LsinOGoto 0注：X1,Y1:已知点坐标 L：待求点至已知点的距离 PWJ：已知点至待求点的方位角（以度分秒的方式输入） X2,Y2:待求点的坐标坐标反算（ZBFS）TX1:UY1LbI 0:XY:XX2:YY2N=X-T:E=Y-UO=Tan-1(EN)“L=”:L=（N2+E2）NO=O+180 EO=O+360 O360=O=O-360 “FWJ”:OGoto0注：X1,Y1:已知点1的坐标X2,Y2:已知点2的坐标 L：两点间的距离 PWJ：两点间的方位角（以度分秒的方式输入） 直线段中边桩坐标计算（ZX.ZB）C”QD”:A”XQ”:B”YQ”:O”FWJ”LbI 0:GDFL=P-C“X=”:X=A+LcosO“Y=”:Y=B+LsinOD”ZBK”D=0=Goto 2LbI 1“XZ=”:E=X+Dcos(H-90) “YZ=”:N=Y+Dsin(H-90) LbI 2F”YBK”F=0=Goto 0“XY=”:W=X+Fcos(H+90) “YY=”:V=Y+Fsin(H+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:FLMJ=F”P”-EG=90JR“X=”:X=A+(2RsinG)cos(H+IG) “Y=”:Y=B+(2RsinG) sin (H+IG) L“ZBK”L=0=Goto2LbI1“XZ=”:V=X+L cos(H+2IG-90) “YZ=”:W=Y+L sin(H+2IG-90) LbI2M“YBK”M=0=Goto0LbI3“XY=”: V=X+L cos(H+2IG+90) “YY=”:W=Y+Lsin(H+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+”K=A+L:M=B-LLbI0:PPGoto5PK =Goto2PGoto3PB =Goto4PGoto6LbI2G=P-AH=G-G5(40R2L2)+G9（3456R4L4）-G13（599040 R6L6）J=(G3(6RL)-G7(336R3L3)+G11(42240R5L5)I“X=”:X=C+HcosV-JsinV“Y=”:Y=D+HsinV+JcosVGoto0LbI3G=P-AH=Rsin(L2R)180+(G-L)R180)+L2-L3(240R2)J=(R(1-cos(L2R)180+(G-L)R180)+L224R)I“X=”:X=C+HcosV-JsinV“Y=”:Y=D+HsinV+JcosVGoto0LbI4G=B-PH=G-G5(40R2L2)+G9（3456R4L4）-G13（599040 R6L6）J=-(G3(6RL)-G7(336R3L3)+G11(42240R5L5)I“X=”:X=E-HcosW+JsinW“Y=”:Y=F-HsinW-JcosWGoto0LbI5G=A-P“X=”:X=C+Gcos(V+180)“Y=”:Y=D+Gsin(V+180)Goto0LbI6G=P-B“X=”:X=E+GcosW“Y=”:Y=F+GsinWGoto0注：FWJ1:起始方位角FWJ2:终点方位角ZH:直缓(ZH)点桩号 HZ:缓直(HZ)点桩号XZH,YZH: 直缓(ZH)点坐标XHZ,YHZ: 缓直(HZ)点坐标R:圆曲线半径LS:缓和曲线长I”L-,R+”:路线左偏-1，右偏+1P：待求点桩号钢绞线伸长量计算（SCL.JS）P”P(N