程序：

lbI 1:P"P=1,2,3"=3=>{AB}:A"X"B"Y"⊿P=IntAbsP:P>3=>"ERROR":{P}:Goto1⊿↙

lbI 2: R=Z[13]:S=Z[14]:Z[16]=1=>E=1:≠=>E=-1⊿↙

K"DK"<Z[1]=>X=Z[3]+(K-Z[1])cosZ[2]:Y=Z[4]+(K-Z[1])sinZ[2]:Goto5⊿↙

K<Z[1]+S=>L=K-Z[1]:F=Z[2]:M=Z[3]:N=Z[4]:Goto3⊿↙

K<Z[9]-S=>L=K-Z[5]:F=Z[6]:M=Z[7]:N=Z[8]:O=Rsin(180L÷π÷R):Q=R-Rcos(180L÷π÷R):Goto4⊿↙

K<Z[9]=>L=Z[9]-K:F=Z[10]-180:M=Z[11]:N=Z[12]:E=-1*E:Goto3⊿↙

X=Z[11]+(K-Z[9])cosZ[10]:Y=Z[12]+(K-Z[9])sinZ[10]:Goto5↙

lbI 3: O=L-L^5÷40÷R2÷S2:Q=L^3÷6÷R÷S-L^7÷336÷R^3÷S^3↙

lbI 4: X=OcosF-EQsinF+M:Y=EQcosF+OsinF+N↙

lbI 5: P=1=>P=6⊿↙

P≤3=>K=K+0.0001:C=X:D=Y:P=P+5:Goto2⊿↙

P=8=>Pol(X-C,Y-D):Fixm:J<0=>J=J+360⊿V=J:K=K-0.0001↙

P=7=>Pol(X-C,Y-D):Fixm:J<0=>J=J+360⊿{TS}:X=C+Tcos(J+S):Y=D+Tsin(J+S):P=2⊿↙

P≤7=>X=X◢ Y=Y◢ P=P-5:P=2=>K=K-0.0001⊿{KP}:Goto1⊿Goto6↙

lbI 6: P=3:Pol(A-C,B-D):J<0=>J=J+360⊿J=Icos(J-V):K=K+J:Abs J≤0.008=>K=K◢ I"T"=I◢

{KP}:Goto1⊿Goto2↙


说明：1、程序中⊿是判断语句结束标志符，◢是显示语句标志符，程序中回车键一定要按照以上位置输入，不然可能造成程序无法运行（因为判断语句中不得有回车键）。
      2、本程序适合于单一曲线计算，计算中不用考虑是在缓和曲线还是园曲线或者直线段，只需要输入里程即可，可以自行编写一个输入程序以便很方便的计算不同的曲线。
      3、本程序ZH点以外的小里程方向和HZ点外的大里程方向自动默认成直线（无限长），程序不能计算缓和曲线长度不相等的曲线和复曲线。如果没有缓和曲线时，千万不要把缓和曲线长设成0，你一定要设成0.0001或者更小，否则无法计算。
      4、程序运行：    ① P=1表示计算中线坐标（输入中桩里程即可计算出中桩坐标）。
       ② P=2表示计算边桩坐标（首先输入中桩里程，再输入边桩到中桩距离T,最后输入边桩和中桩切线的夹角S，如果在左侧法线上则S=-90°，如果在右侧法线上输入S=-90°，如果不在法线上就输入实际的角度和距离。例如：某斜交涵洞的轴线和线路夹角20°，其中心里程K7+250，要计算其涵洞右侧轴线上20M点的坐标，则输入 DK=200  T=20 J=20°)
      ③ P=3表示反算线路里程，X表示反算点X坐标，Y表示反算点Y坐标，DK表示反算点的估计里程，然后大约经过1～5多秒的计算就可得到其对应的里程K，和到中桩的距离T。估计里程时可随便输入，估计里程和真实里程的差距大小与计算速度无关。但是计算速度和计算点到中线的距离有关，距离越大所需要的时间越长，如果距离相差500米的话，大概需要30秒钟的计算时间。如果距离相差100米的话大约需要耗时11秒。
      5、程序计算所需要的线路资料是存储在计算机的扩展变量中（即存储在Z[1]、Z[2]… 中），因此在你输入程序前需要把你的4800计算机的存储变量扩展至16个以上。当你在这些变量中存储了数据以后，你不得在在这些变量中储存其他数据。同时你应注意到计算机上的其他程序可能也会使用这些变量或更改变量数据，从而造成本程序无法进行计算。
        如果产生这种情况情用QQ和我联系。曲线资料输入如下：
        Z[1]=ZH点里程，Z[2]=ZH点方位角，Z[3]=ZH点X坐标，，Z[4]=ZH点Y坐标
        Z[5]=HY点里程，Z[6]=HY点方位角，Z[7]=HY点X坐标，，Z[8]=HY点Y坐标
        Z[9]=HZ点里程，Z[10]=HZ点方位角，Z[11]=HZ点X坐标，，Z[12]=HZ点Y坐标
        Z[13]=半径，Z[14]=缓和曲线长，Z[16]=曲线偏向（左偏-1，右偏1）
        Z[15]可以不输入，你可以编写一个输入程序用此变量来控制、调用不同的曲线资料，
         例如：如果在你的管段内有3段曲线，当Z[15]＝1的时候，程序自动调用第一段曲线资料，当Z[15]＝2时调用第二段曲线资料，Z[15]＝3时调用第三段曲线资料。
                                                                      黄   俊
联系方式：电子信箱shangyi86@163.com   QQ:70321800   电话023-46511001