5800程序.pdf

《5800程序.pdf》由会员分享，可在线阅读，更多相关《5800程序.pdf（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、卡西欧卡西欧5800580058005800计算器道路程序计算器道路程序发布时间:2008-11-19 10:33:38功能:坐标正反算(含高程),把要素内置化(无需改程序文件,即可更换路线,同时存两条线要素)另含两个边仰(一个横向坡,一个纵向坡)坡放样模块.帮助文件未完成程序浏览:FileName:RESET初始化程序Norm 1:50C:12345JRESET PW?I:I=J=500DimZ为数据库增加额外变量500个，在 SET、SETPFDYS 程序根据实际再增减变量50ZC+22PASSWORDS?I:IZC+39重设要素保护密码Cls:StopFileName:DATLOCK要素

2、保护密码确定认程序Cls:Norm 1:50CPASSWORDS?I:Cls:IZC+39=StopFileName:SHELL(外壳程序)50C;在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET，SHELL，SET，SETPFDYS，这几个程序中 C 值必需一致ZC+35I:STATION-N?I:IZC+35设置测站 N 坐标ZC+36I:STATION-E?I:IZC+36设置测站 E 坐标ZC+44I:STATION-Z?I:IZC+44设置测站 Z 坐标ZC+45I:STATION-HI?I:IZC+45设置仪高ZC+41I:GC-DH?I:IZC+41放样点高差常数

3、Norm 1ZC+23N当前分段要素 N 坐标ZC+24E当前分段要素 E 坐标ZC+25M当前分段要素起点桩号ZC+26H当前分段要素起点方位角（正北）单位：弧度ZC+27A当前分段要素起点曲率有左偏负右偏正（注意不半径）ZC+28R当前分段要素终点曲率有左偏负右偏正（注意不半径）ZC+29L当前分段要素长度ZC+3WZC+32I:DAT1 2 3?I:IZC+32平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值)0IZC+4I:1 2 3?I:IZC+4选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到)Lbi 1ZC+4I

4、I=1=ProgTURNZHI=2=ProgHXBYPI=3=ProgZXBYPLbi ADeg:Norm 1:ClsZC+1G:ZH?G:GZC+1;G 桩求桩号ZC+2B:JL?B:BZC+2;B 横向距离，左正右负Lbi BProg ZBJS;坐标正算Prog GCJS;高程计算Fix 3:Cls;设置三位小数ZH:Locate 4,1,G;第一行显示桩号X:Locate 3,2,X;第二行显示 X(N)坐标Y:Locate 3,3,Y；第三行显示 Y(E)坐标Prog GCJS;高程计算Z:Locate 2,4,Z+ZC+41；第四行显示 Z 坐标Locate 10,4,ZC+2；第四

5、行显示横向距离0IDo:I+1I:I=1000=Goto 1:LpWhile Not(Getkey=57 Or Getkey=27);锁定键盘，并在几十秒后自动返回Getkey=57=Goto 1Z+ZC+41+ZC+49-ZC+44-ZC+45ZC+48Pol(ZC+35-X,ZC+36-Y)Cls:DL:Locate 3,1,I:Locate 12,1,ZC+45DH:Locate 3,2,ZC+48:Locate 12,2,ZC+49FWJJProgINFWJDLDHZC+38I:DQD-E?I:IZC+38输入待求点 E 坐标0B：M+L 2G：ProgZBJSLbi S:RadZC+

6、37-XI:ZC+38-YJIf I=0 And J=0:Then Goto A:IfEndPol(I,J)Lbi A:Rec(I,J-F):JZC+2G+IG:IF Abs(I)0.0001:Then ProgZBJS:Goto SGZC+1FileName：INFWJDLDH实测坐标（用方位角，距离，高差）输入程序Deg:Norm 1:ClsZC+46J:DQD-FWJ?J:JZC+46ZC+47I:DQD-DL?I:IZC+47ZC+48K:DQD-DZ?K:KZC+48ZC+49P:RHT?P:PZC+49Rec(I,J)ZC+35+IZC+37ZC+36+JZC+38ZC+44+ZC

7、+45+K-PZC+43FileName:HXBYP横向边仰坡放样程序Cls:Norm 1ZC+40I:QPD-DL?I:IZC+40输入起坡点与中桩距离常数ZC+41I:QPD-DZ?I:IZC+41输入起坡点与中桩高差常数ZC+42I:i?I:IZC+42输入边仰坡坡度，左仰坡(路堑)为正，右仰坡(路堑)为负，左边坡为负，右边坡为正Cls:ZC+43I:DQD-Z?I:IZC+43输入实测高程ProgTURNZHProg GCJS(ZC+43-Z-ZC+41)ZC+42+ZC+40BFix 3:B-ZC+2 显示与上一次测点的偏差BZC+2FileName:ZXBYP纵向仰坡放样程序(隧道

8、进口使用)Cls:Norm 1:ZC+33I:QPD-ZH?I:IZC+33输入起坡点桩号ZC+34I:QPD-Z?I:IZC+34输入起坡点高程ZC+42I:i?I:IZC+42仰坡时(隧道进出口仰坡)，进口为正，出口为负)Cls:ZC+43I:DQD-Z?I:IZC+43输入实测高程ProgTURNZHZC+42(ZC+43-ZC+34)+ZC+33GFix 3:G-ZC+1 显示与上一次测点的偏差GZC+1FileName:SET 设置程序Lbi SNorm 150C50ZC+220KZC+5I:1 Or 2?I:IZC+5;选择1线或者2线180ZC+3J:XZJJ?J:J180ZC+

9、3;斜桩夹角If I=1:Then ZC+8ZC+6:ZC+9ZC+7ZC+12ZC+16:ZC+13ZC+17:ZC+18ZC+20Else ZC+10ZC+6:ZC+11 ZC+7ZC+14ZC+16:ZC+15ZC+17:ZC+19ZC+20IfEndZC+7+3ZC+310I:1PQX,2SQX,3YSDS?I;1输入平曲线要素，2输入竖曲线要素，3输入1、2线夹平竖曲线交点(变坡点)数量以让程序规划内存建立要素数据为，其它值退出本程序I=1=Goto 1:I=2=Goto 2:I=3=Goto 3I0=ProgDATLOCKProgSETPFDYSStopLbi 1;平曲线要素输入部

10、分ZC+6D-1ZD+3For 1JToZC+16Cls:PQX:Locate 9,1,JZD+1I:N?I:IZD+1;请输入 N 坐标ZD+2I:E?I:IZD+2;请输入 E 坐标ZD+3I:R?I:IZD+3;请输入半径 RZD+4I:LS1?I:IZD+4;请输入缓和曲线1长度ZD+5I:LS2?I:IZD+5;请输入缓和曲线2长度D+5 DNext1ZD-2Goto SLbi 2;竖曲线要素输入部分ZC+7D-1ZD+3For 1JToZC+17Cls:SQX:Locate 9,1,JZD+1I:BPDZH?I:IZC+1;请输入变坡点桩号ZD+2I:BPDGC?I:IZC+2;请

11、输入变坡点高程ZD+3I:R?I:IZC+3;请输入半径 RD+3 DNext1ZDGoto SLbi 3;要素点数输入部分ZC+12I:1PQXDS?I:IZC+12;输入1线平曲线点数,最小值为3ZC+13I:1SQXDS?I:IZC+13;输入1线竖曲线点数,最小值为3ZC+18I:1JDZH?I:IZC+18;输入1线平曲线第一个交点的交点桩号ZC+14I:2PQXDS?I:IZC+14;输入2线平曲线点数,最小值为3ZC+15I:2SQXDS?I:IZC+15;输入2线竖曲线点数,最小值为3ZC+19I:2JDZH?I:IZC+19;输入2线平曲线第一个交点的交点桩号C+ZC+22Z

12、C+81线路平曲线要素指针偏移基数ZC+8+5ZC+12ZC+91线路竖曲线要素指针偏移基数ZC+9+3ZC+13ZC+102线路平曲线要素指针偏移基数ZC+10+5ZC+14ZC+112线路竖曲线要素指针偏移基数ZC+11+3ZC+15ZC+21要素数据库结束指针ZC+21+1 ZC+30ZC+21DimZ增加额外变量-1KGoto SFileName:SETPFDYS交点要素=分段要素Norm 150CRadZC+6+5DZC+21+1 FF+6DimZ-1ZF;设置分段要素开始标志ZC+20V;从数据库读入当前线第一个平曲线交点桩号0GPol(ZD+1-ZD-4,ZD+2-ZD-3)；计

13、算第一条直线的距离 I，计算方位角 JJHZD-4ZF+1直线段ZD-3ZF+2V-IZF+3For 1GToZC+16-2Pol(ZD+1-ZD-4,ZD+2-ZD-3)；计算第本交点与下一交点的距离 I，计算方位角 JIW:JHPol(ZD+6-ZD+1,ZD+7-ZD+2)J-HK；计算转角 K，负值是左转角，正值是右转角IF Abs(K):Then If K0:Then K-2K:Else K+2K:IfEnd:IfEndZD+3R;从数据库读入半径 RZD+4L;从数据库读入缓和曲线1长度ZD+5M;从数据库读入缓和曲线2长度L2RB;计算缓和曲线1的 B0角M2RO;计算缓和曲线2

14、的 B0角(Abs(K)-B-O)RP;计算圆曲线长度L224R-L(4)2384R(3)Q;内移值计算方法2L2-L(3)240R2S;切线增长值计算方法2M224R-M(4)2384R(3)J;内移值计算方法2M2-M(3)240R2I;切线增长值计算方法2Abs(2-Abs(K)ARtan(Abs(K2)+S+JCos(A)-QTan(A)T;计算切线1Rtan(Abs(K2)+I+Q Cos(A)-JTan(A)U;计算切线2HH+2 H1AK-1 AHZF+40ZF+50ZF+6F+6FF+6DimZRec(T,H)缓和段1ZD+1-INZD+2-JENZF+1EZF+2V-TZF+

15、3L=0=Goto AHZF+40ZF+5ARZF+6F+6FF+6DimZLbi A圆弧段0I:0JL=0=Goto BPol(L-L(3)40R2,L26R-L(4)336R(4)Lbi BRec(I,H+AJ)N+INE+JENZF+1EZF+2V-T+LZF+3H+ABZF+4ARZF+5ARZF+6F+6FF+6DimZM=0=Goto C缓和段2Rec(2RSin(0.5PR),H+AB+AP R2)N+INE+JENZF+1EZF+2V-T+L+PZF+3H+AB+APRZF+4ARZF+50ZF+6Lbi CF+6FF+6DimZRec(U,H+K)ZD+1+JZF+1ZD+2

16、+IZF+2V-T+L+P+M ZF+3V-T+L+P+M-U+IVD+5 DNextH+KZF+40ZF+50ZF+6F+9DimZ1ZF+7VZF+9要素终点桩号DegFileName：READDATZC+32II=3=ProgREADDAT3IfGM+L:Then;验证要素是否可用，否则重设要素I=1=ProgREADDAT1I=2=ProgREADDAT2ProgREALDAT3IfEndFileName:READDAT1 平曲线分段要素读取程序1ZC+30F0JLbi 1搜索要素If GGoto E:F-6F:-1J:Goto 1Else 1=ZF+1=Goto E:-1=J=Got

17、o 2:1J:F+6F:Goto 1IfEndLbi 2FZC+30ZF+1ZC+23当前分段要素 N 坐标ZF+2ZC+24当前分段要素 E 坐标ZF+3ZC+25当前分段要素起点桩号ZF+4C+26当前分段要素起点方位角（正北）ZF+5ZC+27当前分段要素起点曲率有左偏负右偏正（注意不半径）ZF+6ZC+28当前分段要素终点曲率有左偏负右偏正（注意不半径）ZF+9-ZF+3ZC+29当前分段要素长度ReturnLbi EClsERRORStopREADDAT2文件请输入内容为以下内容以便测试结果与本文一致。180JGoto 1Lbi 1If G30008.396:Then Cls:Sto

18、p:IfEnd;判断待求桩号是否小于本要素起点，如小于就停止运行程序If G30661.038(终点里程):Then 2851422.090(起点 X)N:513896.440(起点Y)E:30008.396M:2133252J(起点方位角)H:0(起点曲率)A:0(终点曲率)R:652.642起点至终点长度L:Goto E:IfEndIf G30921.038:Then2850878.162N:513535.768E:30661.038 M:2133252JH:0A:11300R:260L:Goto E:IfEndIf G31426.367:Then2850666.478N:513385.0

19、04E:30921.038 M:2191639JH:11300A:11300R:505.328L:Goto E:IfEndIf G31686.367:Then Cls:Stop:IfEnd;判断待求桩号是否大于本要素终点，如大于就停止运行程序Lbi ENZC+23:EZC+24:MZC+25:HC+26:AZC+27:RZC+28:LZC+29FileName:READDAT3 平曲线分段要素读取程序3Norm 1ZC+23N:?N:NZC+23当前分段要素 N 坐标ZC+24E:?E:EZC+24当前分段要素 E 坐标ZC+25M:SZH?M:MZC+25当前分段要素起点桩号180ZC+26

20、H:HDMS:FWJ?H:H180H:HZC+26当前分段要素起点方位角（正北）单位：度分秒ZC+27A:SR?A:AZC+27当前分段要素起点曲率有左偏负右偏正（注意是半径的倒数）ZC+28R:ER?R:RZC+28当前分段要素终点曲率有左偏负右偏正（注意是半径倒数）ZC+29L:?L:LZC+29当前分段要素长度ReturnFileName:GCJS高程计算ZC+31D0JLbi SDZC+31ZD-2IZD-1VZD+1KZD+2O(O-V)(K-I)UZD+4IZD+5V(V-O)(J-K)VU-VZ;为正时是凸型竖曲线,负是时为凹竖曲线ZD+3I;读入半径Abs(IZ)2T;切线长If GK-T:Then;点在切点前If J=1 Or ZD=-1:Then UG-UK+O Z:Return:IfEnd;计算高程Z-1J:D-3D:Goto SElse If G0=-IIO-UT+UQ+IZ;计算高程ZReturnElse If G0=-IIO+VT+VQ+IZ;计算高程ZReturnElse If J=-1 Or ZD+3=1:ThenO+VG-VKZ;计算高程ZReturnElse 1J:D+3 D:Goto SIfEnd:IfEnd:IfEnd:IfEnd