课件5800多线版(默认同存十条线要素)坐标正反算,含同心、三心隧道放样模块.docVIP

5800多线版（默认同存十条线要素）坐标正反算，含同心、三心隧道放样模块 本程序是原来终极版程序的一个改版，坐标计算还是原来的核心（没有任何改动）与简约版核心通用。本次修改1、去掉了终极版中平曲线交点要素输入支持（因为此程序极难调试，因此去除）2、对反算程序修改一下以提高计算速度。现在反算缓各段+计算高程总用时约为7秒，整线速度第二次计算性能一至。3、加入要素检错功能，确保计算结果99.9999%是正确，当要素被其它程序无意修改时，程序会要求重输入要素。4、加入智能坐标输入，例如上一次输入X坐标为4251.123本次要输入4251.478只需输入.478（或1.478）即可5、高程计算可关闭首先运行RESET初始化以及设置密码---XLSET设置要素点数---DATASET输入平竖曲线要素XLSEC选择线路DISPLAYXYZ进入坐标正反算STATIONSET?? 测站设置SDFYSET设置三心隧道圆心参数SDFY进入三心隧道放样SDFYSET2设置单心隧道圆心参数SDFY2进入单心隧道放样HXKWXFYSET??横向开挖线放样参数设置HXKWXFY????横向开挖线放样本程序为电子版开发（笔误是在所难免，请朋友们自行测试），已在自己计算器调试完成，本人在深圳接受程序传输。代码：第一部分多线要素管理FileName:OFFSET//:扩充变量偏移补偿程序，本程序的各种设置需要，使用大量的扩充变量，为了不让其它小程序干扰到本程序，于是将本程序的扩充变量向后移动://50→C??;偏移量100→Z[C+22]??;要素偏移量10→Z[C+10]?????? 最大线路条数（默认为设置为10条）4Z[C+10]→Z[C+11]ReturnFileName:RESET????初始化程序Norm 112345→JRESET-PW?I:I=J=500→DimZ?? 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量以保证不浪费内存ProgOFFSET?????????? DATA-PW?I:I→Z[C+39]??????重设要素保护密码Cls:StopFileName:DATALOCK??????要素保护密码确定认程序Cls:Norm 1 DATA-PW?J:Cls:J≠Z[C+39]=StopFileName:XLSET//:路线文件文件头设置//Norm 1Prog OFFSETZ[C+5]→I:XLSEC?I:I→Z[C+5]??;选择路线C+Z[C+22]+4(Z[C+5]-1)→DCls:XL:Locate 9,1,IZ[D+3]→I:PQXDS?I:I→Z[D+3]Z[D+4]→I:SQXDS?I:I→Z[D+4]C+Z[C+22]→DD+Z[C+11]→Z[D+1]Z[D+1]+7Z[D+3]+3→Z[D+2]For 1→J To Z[C+10]-1Z[D+2]+7Z[D+4]→Z[D+5]D+4→DZ[D+1]+7Z[D+3]+3→Z[D+2]NextZ[D+2]+7Z[D+4]→Z[C+21]Z[C+21]→DimZFileName:XLSEC//:选择路线//Norm 1:ClsProg OFFSETZ[C+5]→I:XLSEC?I:I→Z[C+5]??;选择路线C+Z[C+22]+4(Z[C+5]-1)→DZ[D+1]→Z[C+6]Z[D+2]→Z[C+7]Z[D+3]→Z[C+8]Z[D+4]→Z[C+9]Z[C+6]+1→Z[C+30]Z[C+7]+7→Z[C+31]Z[C+30]→FZ[F+1]→M　当前分段要素起点桩号Z[F+2]→N　当前分段要素N坐标Z[F+3]→E　当前分段要素E坐标Z[F+4]→H　当前分段要素起点方位角（正北）Z[F+5]→A　当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[F+6]→R??当前分段要素终点曲率有左偏负右偏正（注意不半径）Z[F+8]-M→L??当前分段要素长度FileName:DATASET//:设要素//Norm 1Prog OFFSETLbl SProg XLSEC0→I:1PQX,2SQX?I???;1输入平曲线要素，2输入竖曲线要素I≠0=ProgDATALOCKCls:I=0=StopI=1 = Goto 1I=2 = Goto 2StopLbl 1Z[C+6]+1→F-1→Z[F]???????????????? 平曲线起点标志For 1→J To Z[C+8]Cls:PQX:Locate 9,1