卡西欧5800计算器道路程序发布时间:2008-11-1910:33:38功能:坐标正反算(含高程),把要素内置化(无需改程序文件,即可更换路线,同时存两条线要)素另含两个边仰(一个横向坡,一个纵向坡)坡放样模块.帮助文件未完成程序浏览:FileName:RESET初始化程序Norm1:50→C:12345→J"RESETPW"?I:I=J=>500→DimZ为数据库增加额500个，在SET、SETPFDYS外变量程序根据实际再增减变量50→Z[C+22]"PASSWORDS"?I:I→Z[C+39]重设要素保护密码Cls:StopFileName:DATLOCK要素保护密码确定认程序Cls:Norm1:50→C"PASSWORDS"?I:Cls:I≠Z[C+39]=>StopFileName:SHELL(外壳程序)50→C;在扩充变量预留50个给别的程序用前RESET，。如不够就适量加大。SHELL，SET，SETPFDYS，这几个程序C值必需一致中Z[C+35]→I:"STATION-N"?I:I→Z[C+35]设置测站N坐标Z[C+36]→I:"STATION-E"?I:I→Z[C+36]设置测站E坐标Z[C+44]→I:"STATION-Z"?I:I→Z[C+44]设置测站Z坐标Z[C+45]→I:"STATION-HI"?I:I→Z[C+45]设置仪高Z[C+41]→I:"GC-DH"?I:I→Z[C+41]放样点高差常数Norm1Z[C+23]→N当前分段要N坐标素Z[C+24]→E当前分段要E坐标素Z[C+25]→M当前分段要素起点桩号Z[C+26]→H当前分段要素起点方位角（正北）单位：弧度Z[C+27]→A当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[C+28]→R当前分段要素终点曲率有左偏负右偏正（注意不半径）Z[C+29]→L当前分段要素长度Z[C+3]→WZ[C+32]→I:"DAT123"?I:I→Z[C+32]平曲线要素数库1为内置式，2文件式，3类型选择实时输入(查看当前要素值)0→IZ[C+4]→I:"123"?I:I→Z[C+4]选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到)Lbi1Z[C+4]→II=1=>Prog"TURNZH"I=2=>Prog"HXBYP"I=3=>Prog"ZXBYP"LbiADeg:Norm1:ClsZ[C+1]→G:"ZH"?G:G→Z[C+1];G桩求桩号Z[C+2]→B:"JL"?B:B→Z[C+2];B横向距离，左正右负LbiBProg"ZBJS";坐标正算Prog"GCJS";高程计算Fix3:Cls;设置三位小数"ZH＝":Locate4,1,G;第一行显示桩号"X＝":Locate3,2,X;第二行显示X(N)坐标"Y＝":Locate3,3,Y；第三行显示Y(E)坐标Prog"GCJS";高程计算"Z":Locate2,4,Z+Z[C+41]；第四行显示Z坐标Locate10,4,Z[C+2]；第四行显示横向距离0→IDo:I+1→I:I=1000=>Goto1:LpWhileNot(Getkey=57OrGetkey=27);锁定键盘，并在几十秒后自动返回Getkey=57=>Goto1Z+Z[C+41]+Z[C+49]-Z[C+44]-Z[C+45]→Z[C+48]Pol(Z[C+35]-X,Z[C+36]-Y)Cls:"DL":Locate3,1,I:Locate12,1,Z[C+45]"DH":Locate3,2,Z[C+48]:Locate12,2,Z[C+49]"FWJ"J<0=J+360→J:J◤DMS◢J→Z[C+46]I→Z[C+47]Goto1FileName：ZBJS坐标计算程序Prog"READDAT"RadG-M→QIFAR=0:ThenIfA=R:Then1→J:Else3→J:IfEnd:ElseIfA=R:Then2→J:Else3→J:IfEnd:IfEndIfJ=1:ThenH→F:N+QCos(H)→X:E+QSin(H)→Y:IfEnd直线段直接计算IfJ=2:ThenH+QR→F:Rec(Abs(2Sin(Abs(0.5QR))÷R),H+QR÷2):N+I→X:E+J→Y:IfEnd圆弧段直接计算IfJ=3:ThenGoto5:IfEndX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnLbi5用五点通用坐标计算计算缓和段0.5(R-