4800计算器程序计算例表

《4800计算器程序计算例表》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、4800计算器程序计算例表计算人：陈阳田编制日期：2005-4-27本坐标计算程序可解决以下问题：1：计算时只要先把要素点的相关信息装入数据库（ZBDIR）以后只需键入你想要查询的桩号就可以查找到相应的坐标与放样数据。2：可计算（回旋线相连的匝道除外）数据库内（外）任意点中桩和边桩坐标并能显示与放样。3：可按固定距离递增放样（减少频繁的按键）并能自动计算ZH(ZY)、HY、YH、HZ(YZ)点。4：计算时不用担心超出范围，程序编制时己考虑此问题。一、直线上中桩坐标计算Xp=Xo+LcosAYp=Yo+LsinA　Xp、Yp：待求点坐标Xo、Yo：起点

2、坐标L：起点至待求点距离A：起点所在的方位角二、圆曲线中桩坐标计算A=180L/(πR)X1=RsinAY1=R(1-CosA)X1、Y1:以曲线起点（ZY）为原点待求点坐标增量　　　　R：曲线半径　　　A：所求弧长所对圆心角　L：待求点与曲线起点弧长三、（1）曲线加设缓和曲线的坐标计算（缓和曲线部分）X1=L-L5/(40R2Ls2)+L9/(3456R4Ls4)Y1=L3/(6RLs)-L7/(336R3Ls3)+L11/(42240R5Ls5)X1、Y1、L、R含意同前：　Ls:缓和曲线长三、（2）曲线加设缓和曲线的坐标计算（圆曲线部分）M=L

3、s/2-Ls3/(240R2)P=Ls2/24R-(Ls4/(2688R3)ß=90(2L-Ls)/(πR)X=RsinA+MY=R(1-CosA)+PX、Y：以曲线起点（ZH）为原点待求点坐标增量　　　　　　　R、A、L、Ls:含意同前M：切线增值　　　　　　　　　P圆曲线内移值　　　　　　　ß：缓和曲线切线角四、坐标换算在计算出相对的坐标增量后，经坐标反算求出全线统一坐标。计算式为：Xp=Xo+DCos(A±ß)　Yp=Yo+DSin(A±ß)D=　A=tg(Yp/Xp)ß：切线角　　　　　　　　“-”为左偏角　　　　　　　“+”正号为右偏角五、

4、边桩坐标计算（直线段）X边＝Xp+GCos(A±90)　　　　　Y边＝Yp+GSin(A±90)　G:横段面距离　　　　　　　　　±90：左边桩为“-”、右边桩为“+”边桩坐标计算（圆曲线切线角）　　　　　　　　　　　ß=180L/(πR)边桩坐标计算（缓和曲线切线角）　　　　　　　　　　ß=90L2/(πRLs)边桩坐标计算（带缓和曲线的圆曲线切线角）　　　　　ß=90(2L-Ls)/(πR)程序名:ZBJSF“1=Yp-1=Zp0=JG>1=DIR”D:N“XC”≠0=>Q“YC”◣F=0=>B:Goto9◣AbsF=1=>BE“KO”U“XO”

5、M“YO”O“FWJ”RSP:Goto0◣B=90:↙Lb19:Prog“ZBDIR”↙Lb10:C=E:V=F:R=0=>S=0◣↙Lb11:Deg:Fixm:{KG}:K>C+P=>Goto9◣KGoto9◣L=Abs(K-E):Z=O:A=Z+B:I=L:L=0=>Goto5◣R=0=>V=1:Goto5◣S=0=>Goto2◣S>L=>Goto3◣L>P-S=>L=S+D:Goto8◣↙Lb12:A=90(2L-S)/πR:X=RsinA+S/2-S3/240R2:Y=R(1-cosA)+S2/24R-S4/2688R3:Goto4↙

6、Lb13:L>S-D=>L=S-D:Goto7◣W=RS:A=90L2/πW:X=L-L5/40W2+L9/3456W4:Y=L3/6W-L7/336W3+L11/42240W5:↙Lb14:Pol(X,Y):A=O+F(A+B):Z=Z+FJ:↙Lb15: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◢GotoA◣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

7、=>Goto6◣Pol(X-N,Y-Q):J<0=>J=J+360◣J“FWJ=”◢I“JL=”◢B=90=>Goto6◣4800计算器程序计算例表计算人：陈阳田编制日期：2005-4-27G=0=>Goto6◣Pol(A-N,Z-Q):J<0=>J=J+360◣J“FWJ1=”◢I“JL1=”◢Pol(H-N,W-Q):J<0=>J=J+360◣J“FWJ2=”◢I“JL2=”◢↙Lb16:D=0=>Goto1◣L>P-D=>L=P-D◣↙Lb17:K≥E=>K=E+L+D:Goto1◣L=L-D:L≤0=>L=0◣K=E-L:Goto1↙Lb18

8、:A=90(P-S)/πR:W=S/2-S3/240R2+tanA(R+S2/24R):Rec(W,O):O