卡西欧5800计算器坐标正反算程序.doc

卡西欧5800计算器坐标正反算程序讲你个讲3位粉丝1楼主程序坐标正反算程序名称:ZBZFSLb1A↙30→DimZ:"0=ZS,1=FS"?Z↙IfZ=0:ThenGotoB:IfEnd↙(Z=0进入里程点坐标正算)IfZ=1:ThenProg"FSLCZ"↙(Z=1进入反算里程边桩)Lb1B↙Prog”ZBZS”↙子程序反算里程桩名称:FSLCZLb11↙"XK="?X:"YK="?Y↙(输入任意测点的X、Y坐标)“K=”?K↙(试算里程,任意输入标段内里程点即可,也可以输入大致的估算里程加快速度)Lb12↙Prog"SJK":T-90→W:W<0=>360+W→W:Abs((Y-Z[19])*Cos(W)-(X-Z[18])*Sin(W))→S↙IfS<:ThenGoto4:ElseGoto3:Ifend↙Lb13↙K+S→K:Prog"SJK":T-90→W:W<0=>360+W→W:Abs((Y-Z[19])*CosW-(X-Z[18])*Sin(W)→Q↙IfQ<:ThenQ→S:Goto4:ElseifQ<S:ThenK+Q→K:Goto2:ElseifQ>S:ThenK-Q→K:Goto2:Ifend:Ifend:Ifend↙Lb14↙Pol(X-Z[18],Y-Z[19]:"DP(-Z+Y)=":I◢(偏距)"K=":K+S→K◢(里程)Goto1↙子程序坐标正算名称:ZBZSLb10↙“XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y):Pol(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":JDMS◢(后视方位角)Lb11↙“K=”?K:(输入所需计算里程)Prog"SJK"↙XI:Z[18]↙YI:Z[19]↙Pol(Z[18]-M,Z[19]-N):J<0=>J+360→J↙“PJ=”?P↙(输入桩与线路夹角)“PD=”?D↙(输入桩距中线的距离)Z[18]+D*Cos(T+P)→Z[20]↙Z[19]+D*Sin(T+P)→Z[21]↙“X=”:Z[20]◢(放样坐标X)“Y=”:Z[21]◢(放样坐标Y)Pol(Z[20]-M,Z[21]-N):"D=":I◢(放样距)J<0=>J+360→J:"F=":JDMS◢(放样方位角)Goto1↙子程序数据库名称:SJKifK<本段曲线终点里程AndK≥上段曲线终点里程:Then本段曲线终点里程→Z[1]:上段曲线终点里程(第一段曲线输起点的里程)→Z[2]:1→O(注:左偏曲线输入-1→O,右偏曲线输入1→O):半径→R:曲线偏角→A:第一缓和曲线→Z[6]:第二缓和曲线→Z[7]:交点X→B:交点Y→C:小里程向交点方位角→E:交点向大里程方位角→F:Prog”JSPB”:Return:Ifend↙if…………Prog”JSPB”:Return:Ifend(曲线段分段输入)↙补充直线段输入如下(只需输线路的最后一段直线数据)ifK<本段直线终点里程AndK≥本段直线起点里程:Then本段直线终点里程→Z[3]:终点X→Z[16]:终点Y→Z[17]:方位角→E:Z[16]+(K-Z[3])*Cos(E)→Z[18]:Z[17]+(K-Z[3])*Sin(