4800计算器程序计算例表

4800计算器程序计算例表

ID:40518964

大小:293.00 KB

页数:8页

时间:2019-08-04

4800计算器程序计算例表_第1页
4800计算器程序计算例表_第2页
4800计算器程序计算例表_第3页
4800计算器程序计算例表_第4页
4800计算器程序计算例表_第5页
资源描述:

《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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。