casiofx-4850计算器测量坐标程序

《casiofx-4850计算器测量坐标程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、直线坐标程序(prog“ZXY”)W二W+lMX二J+(K-D)XcosG+AbsWXcos(G+WX904-AbsW)Y=O+(K-D)XsinG+AbsWXsin(G+WX90H-AbsW)A=GFix3XAYAFix4：“FWA=”：A—DMSA△说明：1、D、K分别为线元起点中桩桩号与所求点对应的中桩桩号。2、J、0、G分别为线元起点X坐标，Y坐标与切线方位角。3、W为偏距(左偏为右偏为“+”)一一计算点沿横断面方向到中线点的水平距离。4、V坐标正算与反算的识别符。曲线线元计算坐标程序(prog“YXY”)B=((K-D)4-AbsR)r：W二

2、W+luX二J+AbsR(sinBXcosG+(1-cosB)Xcos(G+RX904-AbsR))+AbsWXcos(G+RXB4-AbsR+WX904-AbsW)Y=O+AbsR(sinBXsinG+(l-cosB)Xsin(G+RX904-AbsR))+AbsWXsin(G+RXB—AbsR+WX90—AbsW)A=G+RXBFAbsRFix3V二1-“X尹XAYAFix4：“FWA=”：A-DMSA△说明：1、D、K分别为线元起点屮桩桩号与所求点对应的屮桩桩号。2、R为线元半径值,左偏为右偏为“+”。3、J、0、G分别为线元起点X坐标，Y坐标与

3、切线方位角。4、W为偏距(左偏为右偏为“+”)一一计算点沿横断面方向到中线点的水平距离。缓和曲线计算坐标程序(prog“HXY”)S=Int(B24-AbsRX1000+0.5)一1000：W=W+1MC=S-Abs(E-D)：F=C77vrG=G-R4-AbsRX(CT2一B「)Prog“HABQ=M：P二NOAbs(K-D)+F：Prog“HAB”X=J+(M-Q)XcosG+(N-P)Xcos(G+RX90一AbsR)+AbsWXcos(G+R一AbsRX(C24-24-B2)r+WX90FAbsW)Y=O+(M-Q)XsinG+(N-P)Xs

4、in(G+RX904-AbsR)+AbsWXsin(G+R4-AbsRX(C24-24-B2)r+WX90FAbsW)A二G+R一AbsRX(C?4-24-B2)rFix3说明：1、D、E、K分别为线元起点、终点桩号与所求点对应的中桩桩号。2、R为缓和曲线小元半径值，左偏为“•”右偏为“+”。3、J^0、G分别为线元起点X坐标，Y坐标与切线方位角。4、W为偏距(左偏为右偏为“+”)一一计算点沿横断面方向到中线点的水平距离。5、V坐标正算与反算的识别符。6、B为缓和曲线参数。第一类型缓和曲线坐标计算程序(prog“HXY1”)Prog“HXYSV二1-“

5、X尹XAYAFix4：“FWA=”：A-DMSA△说明：1、起点与终点是相对与路线的走向而言的。2、第一缓和曲线一一沿路线走向，半径由大变小的缓和曲线。W=-W：Prog“HXY"A=A・180：XAYAFix4：“FWA=”：A—DMSA△说明：1、第二缓和曲线一一沿路线走向相反，半径由大变小的缓和曲线。缓和曲线坐标程序的子程序(prog“HAB”)M=C・CA54-(40XBA4)+CA94-(3456XBA8)-CA,34-(599040XBA12)N=CA34-(6XBA2)-CA74-(336XBA6)+CA11(42240XBA10)-CA

6、15(9676800XBA14)坐标反算子程序(prog“KW”)1=0：J=0：Pol(H-X-lu,U-Y-lM)：JWO—J二J+36OAC=I：D=JCWlrn—K“POINT二K”▲W“POINT(L)W二”▲{H,U}△Rec(C,D-A)：K=K+1：W=W+J高程计算子程序(prog“Hl”)H=1-*H=B+(K-D)XI△H二2—H二B+(K-D)XI-(K-D)24-24-R△Fix3：V二H▲△说明：1、B、R分别为线元的起点高程与竖曲线半径，线元为直时，H值为I,线元为竖曲线时，H值为2。2、竖曲线为凹曲线时，R值为竖曲线为凸

7、曲线时，R值为“+”。坐标计算的主程序prog“001ZX”V“V=1V=0"{T,Z}：T“P(N)”：Z“P(E)”Lbl1{K,W}：K“K”：W“W(■乙Y+)”Lbl2KW34139.073—D=33185.5：J=586494.165：0=502097.982：G=263°01’32.9":Prog“ZXY”：V=0-Goto9AAProgHCZn:Goto1AKW34472.406-D二34139.073：E=34472.406J=686378.380:0=501151.466：G=263°OP32.9":R=3000：B=1000：Pi

8、og“HXYl”：V=0-*Goto9AAProgMCZn:Goto1AKW36006.859