卡西欧5800圆曲线坐标计算程序.doc

《卡西欧5800圆曲线坐标计算程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、圆曲线段坐标计算YQXZBJS单一圆曲线段任意里程位各点的坐标计算。程序如下:圆曲线起点里程→Q:圆曲线起点X坐标→E:圆曲线起点Y坐标→F:圆曲线起点前进切线方位角→T:圆曲线半径→R:圆曲线转向方向(左转取-1,右转取+1)→P:Lbl0:6→DimZ:“KM=”?L:待求点里程“L-1,R+1”?K:待求点位于前进方向左侧为-1,右侧为+1“PJ=”?S:待求点到线路设计中心的平距Abs(L-Q)→Z[1]:180Z[1]÷R÷π→Z[2]:Pol(Rsin(Z[2]),R(1-cos(Z[2]))):J→Z[3]:Rec(I,T+Z[3]P):E+I→Z[4]:F+J→Z[5]

2、:T+(Z[3]+90Z[1]÷R÷π)P+90→Z[6]:IfK=1:ThenRec(S,Z[6]):ElseRec(S,Z[6]+180):IfEnd:Z[4]+I→X:Z[5]+J→Y:Cls:Fix3:“Xp=”:计算的X坐标“Yp=”:计算的Y坐标Locate7,1,X:X坐标显示在第一行Locate7,2,Y◢Y坐标显示在第二行Goto0注解:如果本程序不需要反复计算其它里程位的坐标值,可以将Lbl0和Goto0删除掉。