资源描述：
《5800坐标正反算通用程序(张老师)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、坐标正反算通用程序（终极篇）1.坐标正算主程序（命名为KP-XY）第1行:Lbl0“DK=”？K:“PJ二”?P:“（i二”?W第2行：Prog“GP”（GP为线路名称）第3行:“X二”：X+Pcos（F+W）fX/第4行：“Y=”：Y+Psin（F+W）fY,第5行：“F町二”:F»DMS,第6行：Goto0K——计算点的里程PJ——计算点到中桩的距离（左负右正）Q——取线路前进方向右夹角为正X、Y—为计算坐标、F为方位角GP—为线路平曲线名称2.坐标反算桩号和偏距主程序（命名为XY-KP）第1行：“DK二”?K:“X:二”?
2、U:“Y:二”?V第2行：Lbl0Prog“GP”第3行:第4行:第5行:第6行：Pol(U-X,V-Y):Icos(F-J)-Z[l]:K+Z[l]->KAbs(Z[l])>0.0001二〉Goto0“DK二”:KJ“PJ二”：Isin(J-F)fP/X:=一取样点的X坐标Y:二一取样点的Y坐标DK二输入时为计算起始点（在线路内即可），输岀时为反算点的桩号P—偏距（左负右正）3.计算坐标子程序（命名为XYF）为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序1彳丁:K-G—S：(D_C)-FL-^I2行:X
3、+j(cos(F+X(2C+XI)X90一n),0,S)->X3行:Y+j(sin(F+X(2C+XI)X904-n),0,S)-Y4行：F+S(2C+SI)X90一n-F5行:F〈0二〉F+360-F:F>360二〉F-360—F3.数据库（命名为A）第1行：0->G:3925525.975—X:502796.176^Y:3°47f30.2〃F:1/996->C:l/180->D:41.078->L:KWG+L二〉GoTo1（第一缓和曲线）第2行：245.607->G:3925566.736->X:502801.006->Y:
4、11°30z39.4〃->F:l/180->C:l/180->D:91.027->L:KWG+L二〉Goto1曲线）第3行：318.522->G:3925647.682->X:502804.484->X:40°29f08・7〃->F:1/180—C:1/295.54->D:70.37—L:KWG+L二〉Goto1（第二缓和曲线）第4行：Lbll:Prog“XYF”G——曲线段起点的里程X曲线段起点的x坐标Y曲线段起点的y坐标F曲线段起点的坐标方位角C——曲线段起点的曲率（半径倒数，直线为0,左负右正）D——曲线段终点的曲率（半径
5、倒数，直线为0,左负右正）L——曲线段长度（尽量使用长度，为计算断链方便）说明：（1）适用于任意线形：直线（0->C、0-D）、半径倒数一D）、缓和曲线（0或半径倒数一C、半径倒数或0-D)、卵形曲线(接起点圆的半径倒数fC、接终点圆的半径倒数一D),曲线左转多加一负号。(2)本程序精度较高，不受曲线半径大小影响，即使极小半径的螺旋曲线等误差仅为万分之一(0.1mm),可以忽略。(3)若是从大里程向小里程的反方向计算，则曲率取正方向时的负值，方位角减去(或加上)180度。(4)有多个匝道的项目，可随时更改正反算主程序中的红色字体
6、部分来调用其它线路的数据(5)反算桩号偏差为1mm(6)本程序可以计算任意线型(直线、圆曲线、缓和曲线.卵形曲线)的坐标6—shift.增加变量数量。4850程序1.坐标正算主程序（命名为ZBZS）Lbl0{ZPW}:Z”DK二”P”PJ二”W”XJ二”Prog“A”X二U+Pcos（F+W）Y=V+Psin（F+W）”XS二”：X,”YS二”：Y,“QX-F町二”：F-DMS,Goto0DK——计算点的里程PJ——计算点到中桩的距离（左负右正）XJ——取前右夹角为正2.坐标反算桩号和偏距主程序（命名为ZBFS）第1行:F1MX
7、{ZCD}:Z”DK二”：C”X:二”:D”Y:二”笫2行：T=O:J=O第3行：Lbl0:Prog“A”I=0:J=0：Pol（C-U,D-V）:Z[3]=Icos（F-J）:Z=Z+Z[3]第5行:Abs（Z[3]）>0.0001二〉Goto0A笫6行：”DK二”:Z“PJ=”：P二Tsin（J-F）AX:——取样点的X坐标Y:取样点的Y处标DK——输入时为计算起始点（在线路内即可），输出时为反算点的桩号PJ——偏距（左负右正）3.计算坐标子程序（命名为XYF）为了简洁，本程序rti数据库直接调川，上述中的正反算主程序不直接
8、调丿IJ此程序第1彳丁：S=Z_G：1=(Q_0)4~L第2行：IMJ+J(cos(F+X(20+XI)X904-n),0,S)第3行：V=V+f(sin(F+X(20+XI)X904-兀)，0,S)笫4行：F二F+S(20+SI)X90Fn:F〈0二〉F二F+
