4800计算器程序（自编全线计算，特点可带数据库无需扩展存储器）.docVIP

本坐标计算程序可解决以下问题： 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 程序名:ZBJS F“1=Yp -1=Zp 0=JG 1=DIR”D: N“XC”≠0=Q“YC”◣F=0=B:Goto 9◣ Abs F=1=BE“KO” U“XO” M“YO” O“FWJ”R S P:Goto 0◣B=90:↙ Lb1 9:Prog“ZBDIR”↙ Lb1 0:C=E:V=F:R=0=S=0◣↙ Lb1 1:Deg:Fixm:{KG}:KC+P=Goto 9◣KC=Goto 9◣L=Abs(K-E:Z=O: A=Z+B:I=L:L=0=Goto 5◣R=0=V=1:Goto 5◣ S=0=Goto 2◣SL =Goto 3◣LP-S =L=S+D:Goto 8◣↙ Lb1 2:A=90(2L-S)/πR:X=RsinA+S/2-S3/240R2:Y=R(1-cosA)+S2/24R-S4/2688R3:Goto 4↙ Lb1 3:LS-D=L=S-D:Goto 7◣W=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:B≠90=G=AbsG◣W=1:V=-1=W=-W◣H=U+Rec(I,Z:Z=M+J:Rec(G,A: B=90=X=H+WI◢Y=Z+WJ◢Goto A◣X=H◢Y=Z◢G≠0=A“X1”=X-WI◢ Z“Y1”=Y-WJ◢H“X2”=X+WI◢W“Y2”=Y+WJ◢◣↙ Lb1A:N=0=Goto 6◣Pol(X-N,Y-Q:J0=J=J+360◣J“FWJ=”◢I“JL=”◢B=90=Goto 6◣ G=0=Goto 6◣Pol(A-N,Z-Q:J0=J=J+360◣J“FWJ1=”◢I“JL1=”◢ Pol(H-N,W-Q:J0=J=J+360◣J“FWJ2=”◢I“JL2=”◢↙ Lb1 6:D=0=Goto 1◣LP-D=L=P-D◣↙ Lb1 7:K≥E=K=E+L+D