5800计算器应用程序.docVIP

5800计算器应用程序 主程序TYQXJS LBI 4：“1。SZ＝＞XY”：“2.XY＝＞SZ”:? N: ? S:Prog “SUB0”↓ 1÷P→C:(P-R)÷(2HPR)→D :180÷∏→E: N=1＝＞Goto1:Goto2:↓ Lbi 1: ?Z: Abs(S-O)→W :Prog “SUB1”: “XS=”: X▲ “YS=”:Y▲ F-90→F: “FS=”:F◤DMS◢ Prog“SQX”:“H=”:H▲ Goto4↓ Lbi 2:?X: ? Y: X→ I:Y→J: Prog “SUB2”:O+W→S: “S=” S◢ “Z=”:Z◢ Prog“SQX”:“H=”:H▲ ?F:Abs(Z+7.625)→Z｛1｝:If F≧H+6.297:Then √((Z{1})2+(F-H+0.3)2)-8.97→A:Ifend↓ If F≦H+6.297 And F≧H:Then √((Z{1}-1.66)2+(F-H-1.502)2)-6.52→A: Ifend:“W=”:A▲ : Lbi0:Prog “SUB1”:T+QEW(C+WD)→L: (J-Y)cos(L)-(I-X)sin(L)→Z:If Abs(Z)0.01:ThenGoto1:EiseW+Z→W:Goto0 Lbi1:0→Z:Prog “SUB1”:(J-Y)???÷sin(F)→Z: SUB0数据库子程序 Goto1↓同时保存多个曲线时的指针 Lbi1:if S(线元终点里程)：Then线元起点方位角→G：线元起点里程→O：线元起点X→U：线元起点Y→V：线元起点曲率半径→P；线元终点曲率半径→R；线元起点至终点的长度→H：0或者1，-1→Q：Return:ifEnd↓ 为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个LBI，每增加一个工程增加一个文件。 使用说明 规定 （1）以道路中线的前进方向（既里程增大的方向）区分左右；当线元往左偏时，Q=-1，往右偏时，Q=1，为直线时Q=0。 2．当所求点位于中线时，Z=0，当位于中线左侧时，Z取负值，当位于中线右侧 时，Z取正值。 3当线元为直线时，其起点，止点的曲率半径为无穷大，用10的45次方代替。 4当线元为圆曲线时，其起点，止点无论与什么线连接，其曲率半径均等于圆曲线半径。 5当线元为完整的缓和曲线时，起点与直线相连接时，曲率半径为无穷大，与圆曲线相连接时，曲率半径等于圆曲线半径，止点与直线相连接时，曲率半径为无穷大。 6当线元为非完整缓和曲线时，起点与直线相连接时，曲线半径等于设计规定的值，与圆曲线相连接时，曲率半径等于圆曲线的半径。止点与直线相连接时，曲率半径等于设计规定的值，与圆曲线相连接时，曲率半径等于圆曲线半径。 输入与显示说明 输入部分： SZ＝＞XY XY＝＞SZ N？选择计算方式，输入1表示由里程，边矩计算坐标；输入2表示由坐标反算里程和边距。 S？正算时所求得的里程，反算时为所求得的近似里程，反算时输入的近似里程不能跨线元，若跨线元的话，需进行第二次反算，并以第一次的结果做为近似里程，否则反算的里程和偏距不对，Z？正算时所求点距中线的边距（左侧取负，右侧取正，在中线上取0） X？反算时所求点的X坐标，Y？反算时所求点的Y坐标 H？ 输入实测高程 显示部分： XS=— —正算时，计算出的所求点的X坐标 YS=——正算时，计算出的所求点的Y坐标 FS=——正算时，所求点对应的中线点的切线中线点的切线方位角 S=——反算时，计算出的所求点的里程 Z=——反算时，计算出的所求点的边距 5800计算器由坐标计算面积小程序 ClrMemory：1→N:Lbi0: E:F: “XO”?X: “YO”?Y:(XF-EY)/2→G:Q+G→Q:X→E:Y→F:Abs(Q)→S:Fix1: “S=”:Locate6,4,S◢Norm2: “N=”:Locate6,4,N◢N+1→N:Goto0: (说明，至少输入三点坐标，才能计算正确的面积，N为了计输了的点数) 高程程序 SQX If S≧22980 And S﹤ 24900:Then 888.9+(S-22980)×0.023→H:Ifend↓ If S ﹥22950 And S﹤ 22980 :Then 888.9-