单交点单圆曲线中边桩坐标计算程序（pm4-3）

《单交点单圆曲线中边桩坐标计算程序（pm4-3）》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、fx-5800P程序单交点单圆曲线中边桩坐标计算程序(PM4-3)(2)主程序——PM4-3，占用内存1070字节。"SINGLECIRCLECURVE"显示程序标题1"METHODOFCOORDINATEPM4-3"显示坐标法标题2Deg:ClrStat:FreqOn:Fix3基本设置14DimZ定义额外变量"JDMILEAGEPEG(m)="?Z输入以m为单位的交点桩号"JDX(m)="?U输入交点x坐标"JDY(m)="?V输入交点y坐标"ZDX(m)="?M输入转点x坐标"ZDY(m)="?N输入转点y坐标Pol(U-M,V-N):Cls计算ZDJD的边长与方位角I

2、fJ<0:ThenJ+360A:ElseJA:IfEnd判断ZDJD的方位角A"TURNINGANGLE-L,+R(Deg)="?Q输入交点路线转角,左偏为负,右偏为正IfQ<0:Then-1Z[10]:Else1Z[10]:IfEnd确定转角数值QZ[4]:Abs(Q)D保存转角及符号"R(m)="?R输入圆曲线半径Rtan(0.5D)T计算切线长RDπ÷180L计算曲线长-1R(cos(0.5D)-1)E计算外距2T-LJ计算切曲差"T(m)=":T显示切线长"L(m)=":L显示曲线长"E(m)=":E显示外距"J(m)=":J显示切曲差Z-TZ[1]:Z[1]+0.

3、5LZ[2]:Z[2]+0.5LZ[3]计算ZY，QZ，YZ点桩号Z[1]ListX[1]存储ZY点的桩号到统计串列U-Tcos(A)ListY[1]:V-Tsin(A)ListFreq[1]计算并存储ZY点的测量坐标到统计串列"ZYPEG(m)=":ListX[1]显示ZY点桩号及坐标"ZY-X(m)=":ListY[1]"ZY-Y(m)=":ListFreq[1]"WL(m),0NO="?B输入路面左半幅宽度IfB>0:ThenListY[1]+Bcos(A-90)Z[11]计算并显示ZY点的左边桩坐标ListFreq[1]+Bsin(A-90)Z[12]"XL(m)=

4、":Z[11]"YL(m)=":Z[12]IfEnd"WR(m),0NO="?C输入路面右半幅宽度IfC>0:ThenListY[1]+Ccos(A+90)Z[13]计算并显示ZY点的右边桩坐标ListFreq[1]+Csin(A+90)Z[14]"XR(m)=":Z[13]"YR(m)=":Z[14]IfEndZ[2]ListX[2]:2K存储ZY点的桩号到统计串列Prog"SUB4-31"调子程序计算并显示QZ点坐标Z[3]ListX[3]:3K存储YZ点桩号Prog"SUB4-31"调子程序计算并显示YZ点坐标IfR<30:Then5I:ElseIfR<60:Then

5、10I:Else20I:IfEnd:IfEnd确定整桩间距fx-5800P程序"INTDIST(m)="?O输入整桩间距IfO>0:ThenOI:IfEnd输入的整桩间距大于零时，使用输入值"ONLYCALC+PEG(1)"?G输入1为只计算加桩点的坐标IfG=1:ThenGoto1:IfEndK+1K计数变量计数Int(Z[1]÷I)I+IListX[K]计算并存储从ZY点开始的第一个整桩号Prog"SUB4-31"调子程序计算并显示坐标Do计算ZY点至YZ点K+1K计数变量计数ListX[K-1]+IListX[K]计算并存储整桩号Prog"SUB4-31"调子程序计算

6、并显示坐标LpWhileListX[K]+I0没有计算到YZ点时继续循环"PM4-3END"(3)子程序——SUB4-31，占用内存498字节。根据存储在ListX[K]中的逐桩点桩号，计算中、左

7、、右桩点坐标。ListX[K]-Z[1]Z[5]计算ZY点至逐桩点的弧长90Z[5]÷(Rπ)Z[6]计算ZY点至逐桩点的弦切角2Rsin(Z[6])Z[7]计算ZY点至逐桩点的弦长A+Z[10]Z[6]Z[8]计算ZY点至逐桩点的方位角A+2Z[10]Z[6]Z[9]计算j点切线方位角ListY[1]+Z[7]cos(Z[8])ListY[K]存储X坐标到统计串列ListFreq[1]+Z[7]sin(Z[8])ListFreq[K]存储Y坐标到统计串列IfListX[K]=Z[2]:Then"QZPEG(m)=