卡西欧5800计算器道路程序精简版.docVIP

卡西欧5800计算器道路程序精简版 时间:2009-12-23 20:40:00 ??来源:本站??作者:未知??我要投稿??我要收藏??投稿指南 （坐标正反算，程序模块化设计,可自行升级，扩展功能）建议录入程序次序KEYLOCK　????? 锁键程序　可独立测试能正常运行　1DISPLAYXYZ??? 　主程序　　可独立测试能正常运行　2READDAT　　　　要素数据库文件　（请改为自已路线的要素）　3ZBJS? 　　　　　坐标计算程序　4INZHANDZBJS　　桩号、横距输入程序　5TURNZH　　　　　坐标反算　　6INNEZ 　　　　　实测坐标输入程序　　7 如正确输入以上程序，运行DISPLAYXYZ，按“0”进行坐标反算，按“.”进行坐标正算。 技术支持：Q285507730 FileName:INZHANDZBJS//:桩号、横距输入程序:// Lbl SCls:Norm 1ZH?G??? ;桩求桩号JL?B ;输入横向距离JJ?W? ;输入斜桩角，一般为90Wπ÷180→WProgZBJS????????? ;080702晚添加Return FileName：ZBJS? 坐标计算程序ProgREADDATRadG-M→Q0.5(R-A)÷L→KAQ→IKQ2→J0.0469100770→P:H+IP+JP2→O0.2307653449→P:H+IP+JP2→T0.5→P???????? :H+IP+JP2→D0.7692346551→P:H+IP+JP2→F0.9530899230→P:H+IP+JP2→P0.1184634425→I0.2393143352→J0.2844444444→YN+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P))→XE+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P))→YH+AQ+KQ2→FX+BCos(F+W)→XY+BSin(F+W)→YReturn FileName:TURNZH(坐标反算)ProgINNEZ0→B：M+L÷2→G：ProgZBJSLbi S:RadU-X→I:V-Y→JIf I=0 And J=0 :Then Goto A:IfEndPol(I,J)Lbi A:Rec(I,J-F)G+I→G:IF Abs(I)0.0001 :Then ProgZBJS:Goto S↙J→B FileName：INNEZ 实测坐标输入程序Lbl SNorm 1:ClsDQD-N?U???? 输入待求点N坐标DQD-E?V??? 输入待求点E坐标? Return FileName:KEYLOCK//:本程序用于锁定键盘大部分按键，设定时间内无按键则反回默认健。只有“0”，“.”,“x10x”,“(-)”这四个键可用，为了更方便说明程序，以后将分别定义这四个键为热键“0”??? ===F1“.”??? ===F2“x10x” ===F3“(-)”? ===F4Exit??? 退出程序:// 1000→J? ;无按键时间，5800设1000时大约为50秒。Lbl S0→IDo:I+1→I:I≥J=Goto E:LpWhile Not(Getkey=25 Or Getkey=26 OrGetkey=27 OrGetkey=57 OrGetkey=73)Getkey=73=Stop? ;停止全部程序Getkey=0=Goto SGetkey→I:ReturnLbl E57→I:Retrutn? ;默认按键值为F4 FileName:DISPLAYXYZ//:主程序,显示：桩号，N，E，Z，横向偏移。 热键功能 F1 快捷坐标反算F2????? 快捷坐标正算F3 F4 :// 7→DimZZ[1]→N　当前分段要素N坐标Z[2]→E　当前分段要素E坐标Z[3]→M　当前分段要素起点桩号Z[4]→H　当前分段要素起点方位角（正北）单位：弧度Z[5]→A　当前分段要素起点曲率有左偏负右偏正（注意不是半径）Z[6]→R　当前分段要素终点曲率有左偏负右偏正（注意不是半径）Z[7]→L　当前分段要素长度 Lbl S:Cls:Fix 3ZH=:Locate 4,1,GN=:Locate 3,2,XE=:Locate 3,3,YZ:Locate 2,4,Z　　　注意，本程序无高程计算。所以这句无意义。Locate 10,4,BProg KEYLOCKIf I=25:Then Prog TURNZH:Goto S:IfEnd? ;定义F1功能If I=26:The