《卡西欧fx5800p计算器隧道计算程序专版》由会员分享，可在线阅读，更多相关《卡西欧fx5800p计算器隧道计算程序专版（12页珍藏版）》请在金锄头文库上搜索。
1、(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。)卡西欧fx5800p计算器 隧道计算程序专版(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。)本版本是道路版的升级版，程序只改变了SHELL程序，从SHELL中拆分出WORK-SET(工作设置程序)，加入SDPY(隧道放样)。 FileName:RESET初始化程序 Norm 1:50C:12345J RESET PW?I:I=J=500DimZ 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量以保证不浪费存 50ZC+22：本程序设置变量个数目前50个刚刚够用。 PASSWORDS?I
2、:IZC+39重设要素保护密码 Cls:Stop FileName:DATLOCK要素保护密码确定认程序 Cls:Norm 1:50C PASSWORDS?J:Cls:JZC+39=Stop FileName:SHELL(外壳程序) 50C;在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致 Norm 1 ZC+23N当前分段要素N坐标 ZC+24E当前分段要素E坐标 ZC+25M当前分段要素起点桩号 ZC+26H当前分段要素起点方位角（正北）单位：弧度 ZC+27A当前分段要素起点曲率有左偏负右偏正（注意不是半径）
3、 ZC+28R当前分段要素终点曲率有左偏负右偏正（注意不是半径） ZC+29L当前分段要素长度 ZC+3W 斜桩角度 Lbi S ProgPROGMODE ;进入模式功能选择 Lbi A Deg:Norm 1:Cls ZC+1G:ZH?G;桩求桩号 If G=-1:Then ProgWORK-SET:Goto S:IfEnd进入工作设置 GZC+1 ZC+2B:JL?B:BZC+2 ;B横向距离，左正右负 Lbi B Prog ZBJS ;坐标正算 Fix 3:Cls ;设置三位小数 ZH:Locate 4,1,G ;第一行显示桩号 X:Locate 3,2,X ;第二行显示X(N)坐标 Y:
4、Locate 3,3,Y；第三行显示Y(E)坐标 Prog GCJS ;高程计算 Z:Locate 2,4,Z+ZC+41 ；第四行显示Z坐标 Locate 10,4,B ；第四行显示横向距离 0I Do:I+1I:I=1000=Goto 1:LpWhile Not(Getkey=57 Or Getkey=27 Or Getkey=26) ;锁定键盘，并在几十秒后自动返回 Getkey=57= Goto 1 If Getkey=26= Prog SDFY:Goto B:EndIf Pol(ZC+35-X,ZC+36-Y) Cls:DL:Locate 3,1,I:Locate 12,1,ZC+4
5、5 :Locate 3,2,B:Locate 12,2,ZC+49 FWJ JJ+360J:JDMS JZC+46 IZC+47 Goto 1 FileName：SDFY 隧道放样 Cls ZC+2V ZC+41D ZC+43I:DQD-Z?I:IZC+43 ZC+42J:R?J:JZC+42 ZC+40K:R-DL?K:KZC+40 Abs(V-K)P (P2+(I-Z-D)2)U 计算实际半径 Fix 3:Cls ;设置三位小数 ZH:Locate 4,1,G R:Locate 2,2,U Locate 10,2,U-J If I-Z-D-J0 :Then I-Z-D-(J2-P2)P:0
6、O Else If P-J0:Then P-(J2-(I-Z-D)2)O:0P Else P-(J2-(I-Z-D)2)O:I-Z-D-(J2-P2)P IfEnd:IfEnd H:Locate 2,3,O Locate 8,3,V Locate 9,3,P Locate 1,4,Z+D Locate 9,4,I 0T Do:T+1T:T=1000=Return:LpWhile Not(Getkey=57 Or Getkey=27) ;锁定键盘，并在几十秒后自动返回 Getkey=57=Return If V-K0 :Then V-OB:Else V+OB:IfEnd FileName：ZBJ
7、S坐标计算程序 ProgREADDAT Rad G-MQ IF AR=0 :Then If A=R :Then 1J:Else 3J :IfEnd:Else If A=R :Then 2J:Else 3J:IfEnd:IfEnd 判断线元类型 If J=1 :Then HF:N+QCos(H)X:E+QSin(H)Y:IfEnd 直线段直接计算 If J=2 :Then H+QRF:Rec(Abs(2Sin(Abs(0.5QR)R),H+QR2):N+IX:E+JY:IfEnd圆弧段直接计算 If J=3 :Then Goto 5 :IfEnd X+BCos(F+W)X Y+BSin(F+W)
8、Y Deg:Return Lbi 5 用五点通用坐标计算计算缓和段 0.5(R-A)LK AQI KQ2J 0.0469100770P:H+IP+JP2O 0.2307653449P:H+IP+JP2T 0.5P :H+IP+JP2D 0.7692346551P:H+IP+JP2F 0.9530899230P:H+IP+JP2P 0.1184634425I 0.2393143352J 0.2844444444Y N+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P)X E+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P)Y H+
9、AQ+KQ2F X+BCos(F+W)X Y+BSin(F+W)Y Deg:Return FileName:TURNZH(坐标反算) ProgINNEZ ZC+37U ZC+38V 0B：M+L2G：ProgZBJS Lbi S:Rad U-XI:V-YJ If I=0 And J=0 :Then Goto A:IfEnd Pol(I,J) Lbi A:Rec(I,J-F) G+IG:IF Abs(I)0.0001 :Then ProgZBJS:Goto S JB GZC+1 JZC+2 ProgGCJS FileName：INNEZ 实测坐标输入程序 Lbl S:Norm 1:Cls ZC+
10、50=2=Goto 1 ZC+37I IGoto 1 DQD-N?I 输入待求点N坐标 IGoto 1 IZC+37 ZC+38I:DQD-E?I输入待求点E坐标 IGoto 1 IZC+38 ZC+43I:DQD-Z?I 输入实测高程 IGoto 1 IZC+43 Return Lbi 1 I=-1=Then 2ZC+50 If I=-2:Then ProgWORK-SET:Goto S:IfEnd进入工作设置 ProgINFWJDLDH ZC+50=1=Goto S Return FileName：INFWJDLDH实测坐标（用方位角，距离，高差）输入程序 Lbi S:Deg:Norm 1
11、:Cls ZC+46J:DQD-FWJ?J JGoto 1 JZC+46 ZC+47I:DQD-DL?I:IZC+47 ZC+48K:DQD-DZ?K:KZC+48 ZC+49P:RHT?P:PZC+49 Rec(I,J) ZC+35+IZC+37 ZC+36+JZC+38 ZC+44+ZC+45+K-PZC+43 Return Lbi 1 If J=-2:Then ProgWORK-SET:Goto S:IfEnd进入工作设置 1ZC+50 Return FileName: WORK-SET 测站设置程序 Norm 1:Cls 50C ZC+32I:DAT1 2 3?I:IZC+32平曲线要
12、素数库类型选择1为置式，2文件式，3实时输入(查看当前要素值) ZC+4I:0 1 2 3?I:IZC+4 选择本程序模式0为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到) ZC+41I:GC-DH?I:IZC+41 放样点高差常数 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 设置仪高 Cls FileName: PROGMODE 程序功能模式选择 ZC+4I
13、 I=0=Return ;正算模式 I=1=ProgTURNZH;反算模式 I=2=ProgHXBYP ;横向边仰坡放样模式 I=3=ProgZXBYP ;纵向边仰坡放样模式 FileName:HXBYP 横向边仰坡放样程序 Cls:Norm 1 ZC+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 输入实测高程 ProgTURNZH Prog GCJS (
