工程测量计算器程序

CASIO-48X0程序本程序适用于CASIO-48X0,可计算一个交点的五个部分的中边桩（直－缓－圆－缓－直），缓和曲线可以是不等长的．P=C2/(24R)-C^4/(2384R^3):Q=C/2-C^3/(240R2):M=I2/(24R)-I^4/(2384R^3): N=I/2-I^3/(240R2):T=(R+M-(P+R)cosA)/sinA+Q:E=(R+P-(P+M)cosA)/sinA+N:L=∏RA/180-(C+I)/2LBL 0[J,S,F]:J:S:FZ=J-G+T:Z≤0=>Goto 1:≠>Z≤C=>Goto 2:≠>Z=J-G+T-C:Z≤L=>Goto 3:≠>Z=J-(G-T+L+I+C):Z≤C=>Goto 4:≠>Goto 5⊿⊿⊿⊿LBL 1W=Z:V=B:o=BGoto 8LBL 2D=Z-Z^5/(40R2C2):V=Z3/(6RC):o=90Z2/(∏RC)Goto 6LBL 3D=Rsin((180Z+90C)/(∏R))+Q:V=R(1-cos((180Z+90C)/(∏R)))+P:o=(180Z+90C)/(∏R)Goto 6LBL 4D=Z-Z^5/(40R2I2):V=Z3/(6RI):W=√(D2+V2):V=tan-1(V/D):A≤0=>V=B+A+V+180: o=B+A+90Z2/(∏RI):≠>V=B+A-V+180:o=B+A-90Z2/(∏RI)⊿Goto 7LBL 5W=Z:V=B+A:o=VGoto 7LBL 6W=√(D2+V2):V=tan-1(V/D):A≤0=>V=B-V:o=B-o:≠>V=B+V:o=B+o⊿Goto 8LBL 7H=X+Ecos(B+A)+WcosVK=Y+Esin(B+A)+WsinVGoto 9LBL 8H=X-TcosB+WcosVK=Y-TsinB+WsinVGoto 9LBL 9"X=":H=H+Fcos(o+S)◢"Y=":K=K+Fsin(o+S)◢Goto 0A─偏角（左负右正，国际惯例）B─方位角（该交点与前一交点之间的）C－第一缓和曲线长I－第二缓和曲线长R－半径G－交点桩号X－交点X坐标Y－交点Y坐标J－所求点桩号S－所求边桩与路线夹角（左负右正）F－所求边桩与路线间距离2、平曲线坐标、反算桩号计算程序平曲线坐标、反算桩号计算程序prog "PQX"{mn}:M"X0":N"Y0":Defm 1:Z[1]=0Lbl 1:{ABGHVWK}:K"JL":G"JX":H"JY":V"I0":W"J0":A"R":B"LS":FixmP=B^2/24/A:Q=B/2-B^3/240/A^2:T=(A+P)tan(Abs W/2)+Q:C=K-T:D=C+B:F=D+π*A*AbsW/180:E=F-Bw<0=>s=-1:≠=>s=1△Lbl 2:{L}:L:L=0=>GOTO 1△Lbl 6:L≤C=>O=K-L:R=G-OcosV:U=H-OsinV:Z=V:GOTO 3△L≥F=>O=L-F+T:Z=V+W:R=G+OcosZ:U=H+OsinZ:GOTO 3△L<D=>O=L-C:prog"XY":Z=V+SR:R=G+(I-T)cosV-SjsinV:U=H+(I-T)sinV+jscosV:GOTO 3△L>E=>O=F-L:prog"XY":O=V+W:Z=O-SR:R=G+(T-I)cosO-SjsinO:U=H+(T-I)sinO+SJcosO:GOTO 3△O=180(L-D+B/2)/π/A:I=AsinO+Q:J=P+A(1-cosO):Z=V+SO:R=G-(T-I)cosV-SjsinV:U=H-(T-I)sinV+SJcosVLbl 3:Z[1]=0.002=>GOTO 5:≠=>O=0△R"XL"◢U"YL"◢Z"ZL"◢Lbl 4:{O}:O"YC":O=0=>GOTO 2△O=-1=>GOTO 5△X=R-OsinZ:Y=U+OcosZ:pol(X-M,Y-N:J<0=>J=J+360△X"XZ"◢Y"YZ"◢J"A0"◢I"DD"◢GOTO 4Lbl 5:{XY}:X"XF":X=-1=>Z[1]=0:GOTO 4△Y"YF":pol(X-R,Y-U:O=Icos(J-Z):AbsO≤0.001=>O"DL"◢L+O◢O=Isin(J-Z):O"YC"◢GOTO 5:≠=>Z[1]=0.002:L=L+O:GOTO 6△prog "XY"U=AB:I=O-O^5/40/U^2:J=O^3/6/U-O^7/336/U^3:R=90O^2/π/U变量名称说明：M"X0":N"Y0"为测站点坐标K"JL":G"JX":H"JY":V"I0":W"J0":A"R":B"LS"分别为交点桩号、坐标、起始方位角、转角(左-右+)、半径、缓长L、R"XL"、U"YL"、Z"ZL" 分别为输入桩号、求出中桩坐标、即时方位角O"YC"：X"XZ"◢Y"YZ"◢J"A0"◢I"DD" 分别为输入边桩距离(左-右+)、求出边桩坐标、边桩点到测站点的方位角和平距O"YC"=0返回计算中桩坐标O"YC"=-1进入计算桩号过程(输入坐标X"XF" 、Y"YF"分别为求出桩号L+O,及至中桩边距O"YC"，O"DL"为桩号计算的误差距)O"YC"=约0.00001可求中桩点到测站点方位角和平距X"XF"=-1返回计算坐标过程计算桩号过程时，需多次确认输入的坐标X"XF"、Y"YF"直到出现O"DL"桩号误差距较小时即可得出准确的桩号3、坐标反算程序A：B A,B：测LbI 0{C：D} C,D：测点或后视点坐标E=C-AF=D-BK=√（E^2+F^2）◢K:测站到测点的跳离F=0=>F=e-20◢≠>F=F⊿J=180-90F/AbsF-Tan^-1(E/F) ◢J:坐标方位角Goto 0直线坐标计算程序A:B:Q:J A,B:测站坐标LbI 1 Q：测点法线方向的左右偏移值（左“-”右“+”）{L} L：测站到测点的距离U=A+LCosJ◢ U,V:计算点中线坐标V=B+LSinJ◢X=U+Qcos(J+90) ◢ X,Y:计算点边线坐标Y=V+Qsin(J+90) ◢Goto 1缓和曲线坐标计算程序A:B:R:S:J:Q:Z A,B:ZH(HZ)点坐标LbI 3 R：圆曲线半径{L} S：缓和曲线全长C=L-L^5/(40R^2S^2)+L9/(3456R^4S^4) J：ZH(HZ)点指向JD的方位角E=30L^2/(ЛRS) L：测点到ZH(HZ)点的曲线长（其值为正）F=C/CosE Q：测点法线方向的偏移值（内“+”，外“-”）Z=0=>U=A+Fcos(J-E) ◢ z：JD转角的方向（左0，右1）V=B+Fsin(J-E) ◢ U，V：缓和曲线测点中线坐标X=U+Qcos(J-3E-90) ◢ X，Y；边线点坐标Y=V+Qsin(J-3E-90) ◢≠>U=A+Fcos(J+E) ◢V=B+Fsin(J+E) ◢X=U+Qcos(J+3E+90) ◢Y=V+Qsin(J+3E+90) ◢圆曲线坐标计算程序A:B:C:D:R:S:Q:z A,B:HY点坐标E=C-A C,D:YH点坐标F=D-B R：圆曲线半径F=0=>F=e-10◢≠>F=F⊿J=180-90F/AbsF-Tan^-1(E/F) ◢LbI 2 S：圆曲线全长{L} Q：测点法线方向的偏移值（内“+”，外“-”）G=90(S-L)/ (ЛR) z：JD转角的方向（左0，右1）K=90L/(ЛR) L：测点到HY点的曲线长（其值为正）P=2RsinK U，V：缓和曲线测点中线坐标Z=0=>U=A+Pcos(H+G) ◢ X，Y；边线点坐标V=B+Psin(H+G) ◢X=U+Qcos(H+G-K-90) ◢Y=V+Qsin(H+G-K-90) ◢≠>U=A+Pcos(H-G) ◢V=B+Psin(H-G) ◢X=U+Qcos(H-G+K+90) ◢Y=V+Qsin(H-G+K+90) ◢线形反算程序（用于现场测量断面）坐标反算(ZBFS)X“N0”Y“E0”U“N1”V“E1”E=U-XF=V-YF=0=>F=e-15:≠>F=F⊿I=180-90(F/Abs(F))-Tan^-1(E/F) ◢S=√（E^2+F^2）◢直线反算程序（ZXFS）K“CH0” CH0：直线起点里程桩号J“I” I：直线指向JD的方位角Prog “ZBFS”I=I-JE=ScosID“OS”=SSinI◢ OS：前视点偏距“-”为前进方向的左，“+”右M“CH”=K+E CH：前视点里程缓和曲线反算程序（HQFS）X“N0” N0，E0：ZH(HZ)点坐标Y“E0” I： ZH(HZ)点指向JD的方位角T“L0” L0：缓和曲线长K“CH0” CH0：ZH(HZ)点的里程桩号R“R” R：曲线半径（左转“-”，右转“+”）C“CHR” CHR：测点里程桩号增大为1，减小为-1LbI 0{PQ} P，Q：测点（前视点）坐标P“N”Q“E”M=KZ=Abs(R)/RLbI 1L=Abs(M-K)O=30L^2/R/T/ЛS=(L-L^5/(40R^2S^2)+L9/(3456R^4S^4))/CosOJ=I+OU=X+ScosJV=Y+SsinJH=J+2OE=P-UF=Q-VF=0=>F=e-15≠>F=F⊿J=180-90(F/Abs(F))-Tan^-1(E/F)S=√（E^2+F^2）J=J-HW=Abs(SCosJ)M“CH”=M+CSCosJ◢ CH：前视点里程D“OS”=SSinJ◢ OS：前视点偏距W≤0.001=>Goto 0≠> Goto1◢⊿圆曲线反算程序（YQFS）K“CH0” CH0:圆曲线起点里程桩号R“R” R：曲线半径，左转“-”右转“+”X“N0” N0,E0:HY点坐标Y“E0” N1,E1:YH点坐标U“N1” A,B:前视点坐标V“E1” CH:前视点里程桩号E=U-X OS:前视点偏距F=V-YF=0=>F=e-15≠>F=F⊿I=180-90(F/Abs(F))-Tan^-1(E/F)S=√（E^2+F^2）J=Sin-1（S/R/2）Z=R/Abs(R)J=I+90Z-JP=X+ZRCosJQ=Y+ZRSinJLbI 0{AB}A“N”B“E”E=A-PF=B-QF=0=>F=e-15≠>F=F⊿I=180-90(F/Abs(F))-Tan^-1(E/F)S=√（E^2+F^2）H=Abs(I-J-180)H>180=>H=360-H≠>H=H⊿M“CH”=K+ЛHRZ/180◢D“OS”=S-ZR◢Goto 0/blog/static/13221493120091095836378/。