计算器曲线计算程序

《计算器曲线计算程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、线路测设坐标计算程序（）在铁路、公路工程勘测和施工测量中，相对复杂的线路测设工作占了很大比重，且传统线路测设公式已不能满足现代化曲线的需要。为此，笔者根据工程测量的特点，严格定义了坐标系，推导了线路测设的通用计算公式。该公式不但可以计算单交点平曲线坐标，同时还可以计算复曲线坐标，如不对称缓和曲线、不完整缓和曲线等。根据该公式，笔者编写了计算器上的单交点平曲线中桩、边桩坐标计算程序。该程序可以判断已知数据输入的正确性，可限制输入的测设点里程。在程序编制过程中，已考虑了零溢出问题。一．使用说明1.起动名为“ZXZB”的计算程序。2.输入已知数据：X(Q

2、D)—起点的纵坐标(EXE)Y(QD)—起点的横坐标(EXE)X(JD)—起点的纵坐标(EXE)Y(JD)—起点的横坐标(EXE)S(JD)—交点里程(EXE)X(ZD)—终点横坐标(EXE)Y(ZD)—终点纵坐标(EXE)RY—圆曲线半径(EXE)L1—前缓和曲线长度(EXE)RS—前缓和曲线起始半径（0表示无穷大）(EXE)L2—后缓和曲线长度(EXE)RE—后半缓和曲线结束半径（0表示无穷大）(EXE)S(HZ1)—起点缓直点里程(EXE)S(ZH1)—交点直缓点里程(EXE)S(HZ2)—交点缓直点里程(EXE)S(ZH2)—终点直缓点里程

3、(EXE)S?—测设点里程(EXE)X=***—显示测设点纵坐标(EXE)Y=***—显示测设点横坐标(EXE)I?—边桩距（左负右正）(EXE)XB=***—边桩纵坐标(EXE)YB=***—边桩横坐标(EXE)I?—输入0结束边桩计算转入下一测设点计算二．计算举例1．已知数据：X(QD)=2175.199Y(QD)=1015.467X(JD)=2000Y(JD)=2000S(JD)=6000X(ZD)=2621.088Y(ZD)=2783.741RY=600L1=220RS=5800L2=180RE=3300S(HZ1)=5200S(ZH1)=

4、5631.047S(HZ2)=6311.047S(ZH2)=67002.求：各测设点坐标及右边桩20M、左边桩10M坐标3.计算结果里程K5+400K5+800K6+000K6+200K6+600测设点纵坐标2105.1192042.8812064.4472149.0932394.655测设点横坐标1409.2801804.1822002.1082182.3522498.012左10M边桩纵坐标2114.9652052.8692074.0722157.4042402.493左10M边桩横坐标1411.0321803.6831999.3982176.

5、7902491.801右20M边桩纵坐标2085.4292022.9062045.1952132.4722378.980右20M边桩横坐标1405.7761083.1822007.5282193.4752510.433三．源程序清单ZXZB1.Defm15：Rad：Norm↙2.A＂X(QD)＂:B＂Y(QD)＂:C＂X(JD)＂:D＂Y(JD)＂:Z＂S(JD)＂:E＂X(ZD)＂:F＂Y(ZD)＂:N＂RY＂↙3.Q＂L1＂:R＂RS＂:V＂L2＂:W＂RE＂:G＂S(HZ1)＂:H＂S(ZH1)＂:K＂S(HZ2)＂:L＂S(ZH2)＂:Fi

6、xm↙4.O＝H＋Q:P＝K－V:M＝Pol(C－A,D－B):T＝J:Z[3]＝J:Z[1]＝C＋Rec(Z－H,J＋π):Z[2]＝D＋J↙5.M＝Pol(E－C,F－D):Z[12]＝J:T＝J－T:AbsT＞π＝＞T＞π＝＞T＝T－2π:≠＞T＝T＋2π△△↙6.T＞0＝＞Z[13]＝1:≠＞Z[13]＝－1△↙7.R＝0＝＞Z[14]＝0:≠＞Z[14]＝QN÷(R－N)△↙8.W＝0＝＞Z[15]＝0:≠＞Z[15]＝VN÷(W－N)△↙9.Q＝0＝＞I＝0:≠＞I＝(2QZ[14]＋Q²)÷2÷N÷(Z[14]＋Q)△↙10.V＝0＝

7、＞J＝0:≠＞J＝(2V(Z[15]＋V)－V²)÷2÷N÷(Z[15]＋V)△↙11.Z[6]＝Z[3]＋IZ[13]:Z[9]＝Z[12]－JZ[13]↙12.T＝AbsT－I－J:J＝TN:Abs(P－O－J)＞0.05＝＞＂ERROR＂▲Goto1△↙13.M＝Q:Prog＂ZHD＂:Z[4]＝X:Z[5]＝Y:M＝J:Porg＂HYD＂:Z[7]＝X:Z[8]＝Y:M＝V:Prog＂YHD＂:Z[10]=X:Z[11]＝Y↙14.Prog＂ZXZS＂↙15.Lbl1:0:＂＂:Pause0ZXZS1.Rad:Norm:Fixm2.Lbl2

8、:{S}:S＜G＝＞＂RANGEOUT＂▲Goto5△↙3.S＞L＝＞＂RANGEOUT＂▲Goto5△↙4.S＜H＝＞M