5800程序道路程序

【文件属性】：
文件名称：5800程序道路程序
文件大小：12KB
文件格式：TXT
更新时间：2018-12-07 04:50:46
5800程序 本套程序含核心程序：要素数据库处理，要素计算，坐标计算，高程计算。扩展程序：坐标反算，边仰放样。 01、RESET 初始化程序 (独立运行) 02、DATLOCK 要素保护密码确定认程序 (被SET调用，可被任何需要密码保护的程序调用) 03、SHELL 外壳程序，各种功能调用 04、ZBJS 坐标计算程序 (被SET、TURNZH调用 05、TURNZH 坐标反算程序 (被SHELL、HXBYP、ZXBYP调用) 06、HXBYP 横向边仰坡放样程序 (被SHELL调用) 07、ZXBYP 纵向仰坡放样程序<隧道进口使用> (被SHELL调用) 08、SET 设置程序，平竖曲线交点要素设置 09、SETPFDYS 交点要素=>分段要素 (可独立运行,被SET调用) 10、READDAT 平曲线要素读取主程序 (被ZBJS调用) 11、READDAT1 内置数据库要素读取程序 (被READDAT调用，可直接ZBJS调用) 12、READDAT2 文件数据库要素读取程序 (被READDAT调用，可直接ZBJS调用) 13、READDAT3 实时输入要素及当前要素查看程序 (被READDAT调用，可直接ZBJS调用) 14、GCJS　 高程计算程序 (被SHELL调用) 原程序见“5800道路工程程序终极版.txt" 1、编写RESET，编写完即运行，其它程序全部都先建立空文件请严格按本说明编写顺序编写程序。 2、编写READDAT及READDAT3,READDAT2 READDAT2　文件请输入内容为以下内容以便测试结果与本文一致。 π÷180→J Goto 1 Lbi 1 If G<30008.396:Then Cls:Stop:IfEnd↙ ;判断待求桩号是否小于本要素起点，如小于就停止运行程序 If G<30661.038:Then 2851422.090→N:513896.440→E:30008.396→M:213°32′52″J→H:0→A:0→R:652.642→L:Goto E:IfEnd↙ If G<30921.038:Then 2850878.162→N:513535.768→E:30661.038→M:213°32′52″J→H:0→A:1÷1300→R:260→L:Goto E:IfEnd↙ If G<31426.367:Then 2850666.478→N:513385.004→E:30921.038→M:219°16′39″J→H:1÷1300→A:1÷1300→R:505.328→L:Goto E:IfEnd↙ If G<31686.367:Then 2850346.483→N:512998.015→E:31426.367→M:241°32′56″J→H:1÷1300→A:0→R:260→L:Goto E:IfEnd↙ If G>31686.367:Then Cls:Stop:IfEnd↙ ;判断待求桩号是否大于本要素终点，如大于就停止运行程序 Lbi E N→Z[C+23]　 E→Z[C+24]　 M→Z[C+25]　 H→[C+26]　 A→Z[C+27]　 R→Z[C+28] L→Z[C+29]