大众化线路计算程序支持多匝道多线形.doc

绵阳市二环路石马立交工程 立交匝道坐标放样正反算CASIO fx-5800P程序 （带数据库功能） 一、前言 立交匝道坐标放样正反算程序（带数据库功能），主要功能有： 1．使用立交匝道数据库子程序，可将一个互通立交的若干条匝道写入数据库子程序，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，选择匝道后，输入桩号即可进行匝道的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，选择匝道后，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）。 程序的特点： 1．使用线元积分法进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时再输入匝道参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。 二、立交匝道示例项目基本资料 图表资料如下： .三、立交匝道线元数据的整理 经整理，匝道A、B、C、D、E、F线元数据如下。 . . . . . . 四、程序代码 注：RAMP﹖[1-8]”﹖R←∣ 2、根据实际使用情况，在桩号反算时，若桩号比较大（匝道起始桩号一般为0），还是让用户输入一个估算的对应桩号为好，因此程序第29、30行分别改为（每行结尾处省略回车符）：29行：X?F: Y?G: K?P30行：F→I: G→J . . 行号 程 序 说 明 1 If R=Then Prog“RAMP-DATA1”:IfEnd←∣ DATA1(A匝道) 2 If R=Then Prog“RAMP-DATA2”:IfEnd←∣ DATA2(B匝道) 3 If R=Then Prog“RAMP-DATA3”:IfEnd←∣ DATA3(C匝道) 4 If R=Then Prog“RAMP-DATA4”:IfEnd←∣ DATA4(D匝道) 5 If R=Then Prog“RAMP-DATA5”:IfEnd←∣ DATA5(E匝道) 6 If R=Then Prog“RAMP-DATA6”:IfEnd←∣ DATA6(F匝道) 7 If R=Then Prog“RAMP-DATA7”:IfEnd←∣ DATA7(主线桥) 8 If R=Then Prog“RAMP-DATA8”:IfEnd←∣ DATA8(石马路) 立交匝道坐标放样正反算程序—A匝道线元数据库子程序：RAMP-DATA1 行号 线元 类型 程序 说明 1 直线 0→S：30.491→E：If P≤E:Then 25525.126→W：19391.995→ Y：92o49′53″→Q：0→A：0→B：Return：IfEnd ←∣ 线元“SM-1”数据 2 缓和 E→S：60.491→E：If P≤E:Then 25523.62→W：19422.448→ Y：92o49′53″→Q：0→A：1÷100→B：Return：IfEnd ←∣ 线元“SM-2”数据 3 圆 E→S：163.202→E：If P≤E:Then 25520.645→W：19452.27→ Y：101o25′33″→Q：1÷100→A：1÷100→B：Return：IfEnd ←∣ 线元“SM-3”数据 4 缓和 E→S：193.202→E：If P≤E:Then 25456.377→W：19526.593→ Y：160o16′30″→Q：1÷100→A：0→B：Return：IfEnd ←∣ 线元“SM-4”数据 5 直线 E→S：276.951→E：If P≤E:Then 25427.297→W：19533.84→ Y：168o52′10″→Q：0→A：0→B：Return：IfEnd ←∣ 线元“SM-5”数据 6 缓和 E→S：306.951→E：If P≤E:Then 25345.123→W：19550.008→ Y：168o52′10″→Q：0→A：1÷280→B：Return：IfEnd ←∣ 线元“SM-6”数据 7 圆 E→S：347.599→E：If P≤E:Then 25315.593→W：19555.272→ Y：171o56′20″→Q：1÷280→A：1÷280→B：Return：IfEnd ←∣ 线元“SM-7”数据 8 缓和 E→S：377.599→E：If P≤E:Then 25275.075→W：19558.036→ Y：180o15′24″→Q：1÷280→A：0→B：Return：IfEnd ←∣ 线元“SM-8”数据 9 直线 E→S：383.624→E：If P≤E:Then 25245.103→W：19556.83→ Y：183o19′34″→Q：0→A：0→