计算器程序自编全线计算特点可带数据库无需扩展存储器

本坐标计算程序可解决以下问题：1：计算时只要先把要素点的相关信息装入数据库（ZBDIR）以后只需键入你想要查询的桩号就可以查找到相应的坐标与放样数据。2：可计算（回旋线相连的匝道除外）数据库内（外）任意点中桩和边桩坐标并能显示与放样。3：可按固定距离递增放样（减少频繁的按键）并能自动计算ZH(ZY)、HY、YH、HZ(YZ)点。4：计算时不用担心超出范围，程序编制时己考虑此问题。一、直线上中桩坐标计算Xp=Xo+LcosA Yp=Yo+LsinA Xp、Yp：待求点坐标 Xo、Yo：起点坐标 L：起点至待求点距离 A：起点所在的方位角二、圆曲线中桩坐标计算A=180L/(R) X1=RsinA Y1=R(1-CosA) X1、Y1:以曲线起点（ZY）为原点待求点坐标增量R：曲线半径A：所求弧长所对圆心角 L：待求点与曲线起点弧长三、（1）曲线加设缓和曲线的坐标计算（缓和曲线部分）X1=L-L5/(40R2Ls2)+L9/(3456R4Ls4) Y1= L3/(6RLs)-L7/(336R3Ls3)+ L11/(42240 R5Ls5)X1、Y1 、L、R含意同前：Ls:缓和曲线长三、（2）曲线加设缓和曲线的坐标计算（圆曲线部分）M=Ls/2- Ls3/(240R2) P= Ls2/24R-(Ls4/(2688R3) ß=90(2L-Ls)/(R X=RsinA+M Y=R(1-CosA)+P X、Y：以曲线起点（ZH）为原点待求点坐标增量R、A、L、Ls:含意同前M：切线增值P圆曲线内移值ß：缓和曲线切线角四、坐标换算在计算出相对的坐标增量后，经坐标反算求出全线统一坐标。计算式为：Xp=Xo+DCos(A±ß) Yp=Yo+DSin(A±ß) D= A=tg(Yp/Xp) ß：切线角 “-”为左偏角“+”正号为右偏角五、边桩坐标计算（直线段）X边Xp+GCos(A±90)Y边Yp+GSin(A±90) G:横段面距离±90：左边桩为“-”、右边桩为“+”边桩坐标计算（圆曲线切线角）ß=180L/(R边桩坐标计算（缓和曲线切线角）ß=90L2/(RLs 边桩坐标计算（带缓和曲线的圆曲线切线角）ß=90(2L-Ls)/(R 程序名:ZBJSF“1=Yp -1=Zp 0=JG >1=DIR”D: N“XC”0=>Q“YC”F=0=>B:Goto 9Abs F=1=>BE“KO” U“XO” M“YO” O“FWJ”R S P:Goto 0B=90:Lb1 9:Prog“ZBDIR”Lb1 0:C=E:V=F:R=0=>S=0Lb1 1:Deg:Fixm:KG:K>C+P=>Goto 9K<C=>Goto 9L=Abs(K-E:Z=O: A=Z+B:I=L:L=0=>Goto 5R=0=>V=1:Goto 5S=0=>Goto 2S>L =>Goto 3L>P-S =>L=S+D:Goto 8Lb1 2:A=90(2L-S)/R:X=RsinA+S/2-S3/240R2:Y=R(1-cosA)+S2/24R-S4/2688R3:Goto 4Lb1 3:L>S-D=>L=S-D:Goto 7W=RS:A=90L2/W:X=L-L5/40W2+L9/3456W4:Y=L3/6W-L7/336W3+L11/42240W5:Lb1 4:Pol(X,Y:A=O+F(A+B:Z=Z+FJ:Lb1 5:B90=>G=AbsGW=1:V=-1=>W=-WH=U+Rec(I,Z:Z=M+J:Rec(G,A: B=90=>X=H+WIY=Z+WJGoto AX=HY=ZG0=>A“X1”=X-WIZ“Y1”=Y-WJH“X2”=X+WIW“Y2”=Y+WJLb1A:N=0=>Goto 6Pol(X-N,Y-Q:J<0=>J=J+360J“FWJ=”I“JL=”B=90=>Goto 6G=0=>Goto 6Pol(A-N,Z-Q:J<0=>J=J+360J“FWJ1=”I“JL1=”Pol(H-N,W-Q:J<0=>J=J+360J“FWJ2=”I“JL2=”Lb1 6:D=0=>Goto 1L>P-D=>L=P-DLb1 7:KE=>K=E+L+D:Goto 1L=L-D:L0=>L=0K=E-L:Goto 1Lb1 8:A=90(P-S)/R:W=S/2-S3/240R2+tanA(R+S2/24R:Rec(W,O:O=O+2AF:U=U+I+WcosO:M=M+J+WsinO:F=-F:E=E+P:O=O+180:K<C+S=>L=L-2D:E=CGoto 6程序名: ZBDIRLb1 0:K:E=E1:K<E1=>K=E1: Goto 0KE2=>U=U1:M=Y1:O=O1:R=R1:S=S1:P=P1:F=±1:Goto 1KE3=>E=E2:U=U2:M=Y2:O=O2:R=R2:S=S2:P=P2:F=±1:Goto 1 KEn+1=>E=En:U=Un:M=Yn:O=On:R=Rn:S=Sn:P=Pn:F=±1:Goto 1K=En+1 :Goto 0Lb1 1:注：F=1为右偏曲线 F=-1为左偏曲线 D:逐桩间距 N“XC”Q“YC”测站XY坐标 B：构造物与主线交角 O：线路方位角 R：半径 S：缓和曲线长 P：直（曲）线线路长度 G：横断面距离 E“KO”：起点里程 U“XO”M“YO”起点XY坐标 K：求算点里程 XY：求算点XY坐标 下标为1时为左侧、 下标为2时为右侧 FWJ：方位角 JL：距离 存储器T未使用以下程序代码可计算直线、曲线、螺旋线、匝道中边桩坐标程序名:ZDZBJSDeg:N“XC”0=>Q“YC”D:Z“0=SD 1=A 2=B 3=C 4=D 5=E ”:Z0=>Z=AbsZ:Goto 0E“KO” U“XO” M“YO” O“FWJ” R H“R2” P :Goto 1Lb1 0:Prog“ZDDIR”: Lb1 1:Fixm:KG:X=R:R0=X=2/RK<E=>Goto 0K>E+P=>Goto 0L=Abs(K-E:I=H:H0=I=1/HI=L(I-X/2)/P:J=O+90L(I+X)/:W=O+45L(I/2+X)/:Y=O+45L(I/8+X)/(4:S=O+135L(3I/8+X)/(4:C=O+225L(5I/8+X)/(4: V=O+315L(7I/8+X)/(4:A=O+45L(I/4+X)/(2:I=O+135L(3I/4+X)/(2:X=U+L(CosO+4(CosY+CosS+CosC+CosV)+2(CosA+CosW+CosI)+CosJ)/24:Y=M+L(SinO+4(SinY+SinS+SinC+SinV)+2(SinA+SinW+SinI)+SinJ)/24:G=0=XYGoto 2A=J-90:A<0=>A=360+AS=AbsG:Rec(S,A:X=X-IS/GY=Y-JS/GLb1 2:N=0=>Goto 3Pol(X-N,Y-Q:J<0=>J=J+360J“FWJ=”I“JL=”Lb1 3:D=0=>Goto 1L>P-D=>L=P-DKE=>K=E+L+D:Goto 1程序名: ZDDIRLb1 0:Z>5=Goto ZZ=1=Goto AZ=2=Goto BZ=3=Goto CZ=4=Goto DZ=5=Goto EGoto ALb1 Z:ZK : Z“1=A 2=B 3=C 4=D 5=E ”:Goto 0Lb1 A:KE2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1KE3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1Goto ZLb1 B:KE2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1KE3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1Goto ZLb1 C:KE2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1KE3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1Goto Z Lb1 D:KE2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1KE3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1Goto ZLb1 E:KE2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1KE3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1Goto ZLb1 N:KEn+1=> E=En:U=Un:M=Yn:O=On:R=±Rn:H=±Rn1:P=Pn:Goto 1KEn+3=>E=En2:U=Un2:M=Yn2:O=On2:R=±Rn1:H=±R n2:P=Pn2:Goto 1Goto ZLb1 1:D:逐桩间距 N“XC”Q“YC”测站XY坐标 O:线路方位角 R:起点半径 H“R2”:终点半径2 P:直（曲）线线路长度 G:横断面距离(左负右正) E“KO”:起点里程 U“XO”M“YO”起点XY坐标 K:求算点里程 XY:求算点XY坐标 FWJ:方位角 JL:距离R1?第一半径，直线输入0(如HZ、HZH)、匝道及螺旋线时输入上段曲线半径左偏为负右偏为正。R2?第二半径，输入所要计算曲线的半径左偏为负右偏为正, 直线输入0(如HZ、HZH)。ZDDIR中Lb1 A Lb1 B Lb1 C Lb1 D Lb1 E后为输入对应ABCDE匝道数据存储器B F T未使用程序名:ZBFS（坐标反算）F“-1=ZP 1=YP”:AbsF=1=>E“KO” U“XO” M“YO” O“FWJ”R S P:Goto ALb1 0:Prog“ZBDIR”Lb1 A:T=E:V=O:Lb1 1:Deg:Fixm:XY:R=0=>S=0P<0=>T=E+PPol(