卡西欧5800计算器公路测量常用程序集secret文档格式.docx

1、Goto X:ProgKM:?D:PorgTHB:OL: L0?L:Z2+Z1-Z8 E:X+L cos（E） X:Y+Lsin（E） Y:ProgXY:ProgJS:Goto BLbI 2:2F:90Z1:LbI C:Z=-1= XO?X: Y0?Y:ProgTHB:PorgZD:Goto C:LbI 3:0B: H-B?BZ9:LbI D:PorgH:Fix 3: H=:Lcoate 6,4,H-Z9 I=:Locate 6,4,I Goto DLbI 4:LbI E:ProgGD: SJGD=:Locate7,4,L Goto ELbI 5:0.5B:TH-GD?BZ15:LbI F:K

2、M?Z=-1 =Z=-2 = X0?0M:”M0”?M: MZ4:Prog3FBZFix 2:Z3 D:Abs（D）-SO: L0=:Locate 6,4,OProgZD: Z5T: TW=:Lcoate 6,4,T Goto F:LbI 6:ProgDX:LbI G:LbI H:Goto G:ProgH: M0?H-MT: TW=:Locate 6,4,T Goto H:LbI 7:LbI I:0D: LD:Z-,Y+? D:Abs（D） R: LR?R: Z0? DZ6:RZ7:ZZ8:LbI J:0Y: L0:SZ+,DZ-?Y=-1=Y=-2=Goto I:ProgZP:Goto J:

3、LbI 8:LbI K:X=-1=X=-2=Goto K:LbI 9:PorgDX:LbI L:Prog”QX”:LbI M:Goto L: ProgSD1: 0.5A:“CQHD?“X0?Y0?0M=M0?MZ8:AZ15:Prog5SD： Goto M:LbI X:Mat F Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）3FBXProg”THB”:DP:Prog”GD”:If D0:Then 0.75-LD:Goto H:Else L-0.75D:IfEndProg“H”:H-0.03-Z4

4、 Z4: Prog “W1”:If Z4Then Goto 1:Else If GZ8:Then Goto 2:Else Goto 3:IfEnd:L+Z10+Z11+Z12+（G-A）Z7+Z9Z6+Z8Z5 S:Goto Z:L+Z10+Z11+（G-Z8）L+Z10+GLbI T:L+Z17T:If GZ15:Then （T+Z16+（G-Z15）Z14+Z15Z13）S:Else （T+GLbI Z3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）5SDProg”KM”:Prog“THB”: DZ13:Cos（

5、Z10） Z4 E: H+Z5 Z5: H+Z7 Z7: E+Z5 Z10:If Z8Z10:Then Goto R:Else Goto S:LbI R: （Z13-Z9） 2+（Z8-Z5） 2 ）- Z4-Z15 L:LbI S: Z4-Z6 S: （S 2-（Z7-Z5） 2 ） SAbs（S）T:Abs（Z13-Z9）-TT:（T 2+（Z8-Z7） 2 ）- Z6-Z15 L: Fix 2:” L0=”: Locate 6,4,LProg”ZD”:“ H0=”: Locate 6,4,Z8-H4：极坐放样计算程序（计算放样点至置仪点方位角及距离）JSX：Y：Z11K：Z12L：Pol

6、（X-K, Y-L）:IF JThen J+360J:IFEnd:Int（J）+0.01Int（60Frac（J）+0.006Frac（60Frac（J） J: Fix 4:” FWJ=”: Locate 6,4,J” S=”:Locate 6,4,I5路基宽度子程序6：路基标准半幅宽度计算程序（对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L） GD1S: Prog “G1”:Z-CE:（B-A）*E/S+AL:6坐标计算次程序（）THBIf Q=2:Then Goto J: Else 1P：（P-R）（2HPR） ：180E：If F=1:Then Abs（0）

7、 W：Prog ：oto 2:Else I：J：Prog ：Z： IfEnd: If F=1:Then Prog Zoto 1:Else Prog ZX：I+DCOS（Z2+Z1） X: J+DSin（Z2+Z1） Y: LbI 2 7. 线元法正算子程序（）A0.1184634425A： 0.2393143352B：0.2844444444N：0.046910077K： 0.2307653449L：0.5M： U+W（Acos（G+QEKW（C+KW）+Bcos（G+QELW（C+LW）+Ncos（G+QEMW（C+MW）+Bcos（G+QE（1-L）W（C+（1-L）WS）+Acos（G+

8、QE（1-K）W（C+（1-K）WS） X：V+W（Asin（G+QEKW（C+KW）+Bsin（G+QELW（C+LW）+Nsin（G+QEMW（C+MWS）+Bsin（G+QE（1-L）W（C+（1-L）WS）+Asin（G+QE（1-K）W（C+（1-K）W） Y：G+QEW（C+W）：X+cos（+ Z1）： Y+sin（+ Z1）8. 线元法反算子程序（）BG-90： Abs（Y-V）cos（T）-（X-U）sin（T） ： 0：Lbl 0： T+QEW（C+W） ： （J-Y）cos（L）-（I-X）sin（L）：IF Abs（）0.01:Then Goto 1：Else W+W:

9、Lbl 1:0D：（J-Y）sin（+90） D9. 交点法正算子程序（Z）ZH2R24-H（4） 2688R（3）A:H2-H（3） 240R2B:（R+A）tan（Abs（P） 2）+BT:O-TC:C+HL:L+RAbs（P） 180N:N-HE:PAbs（P） W:If ZThen 180（Z-L+0.5H） S :R2+Rsin（S）A:R（3）+R（1-Cos（S）B:RM:G+WSZ2:Z-CS:G+WKZ2:U+（A-T）cos（G）-WBsin（G）I:V+（A-T）Sin（G）+WBcos（G） J: Goto 3:U+Scos（Z2）I:V+Ssin（Z2） J: LbI

10、 310. 交点法缓和段转化子程序（HX）HXS-S（5） 40R2H2+S（9） 3456R（4） H（4）A:S（3） 6H-S（7） 336R（3） H（3）+S（11） 42240R（5） H（5）B:90S2HK:RHSM11. 交点法反算子程序（ZX）ZXLbI 0:Prog “Z”:Pol（X-I,Y-J）:J-Z2 J:Isin（J） S:Icos（J） I:If Abs（I）0.1:Then Z+IZ:SD:Else Goto 1: LbI 1:If M=0:Eles Pol（M-WS,I）:（JM）/180I:Z+IZ:LbI 212高程计算子程序（H）HProg “S1”

11、:C-TF:Z-FS:C+TE:G-TIQ:If T=O:Then Q+SIH:Else If ZF:Else If ZE:Then Q+SI+S22RH:H:If D=0:Then Goto I:Else Prog “I”:H+VH:LbI I 13.高程超高计算程序（I）IIf Z3=1:Then Prog “I1”:Else Prog “I2”:Goto1: If W=1:Then:Else: IfEnd LbI Z:If S=0:Then Abs（D）MV:Else Abs（D）（N-M）（Z-C）S+M）V:（3（Z-C）S）2-2（Z-C）S）（3）（N-M）+M）V:Abs（D）

12、E:VEI:I（E-K）V14导线点子程序（DX）DXZ11 K:Z12 L:“XZ”?K:”YZ”?KZ11:LZ1215线路选择子程序（线路选择输0时。则输曲线参数（QX）QX1A:”QX:X1=1,X2=2”?AZ3:If A=0:Else Goto 2:”JDO”?O:”XO”?U:”YO”?V:”FW”?G:”LS”?P:”J=2,X=（0,1,-1）”?Q:16线路中线元段判别子程序（KM）KMIf Z3=0:Then Goto 0:Else If Z3=1:Then Prog “X1”:Else Prog “X2”: LbI 017坐标计算参数转化子程序（F）FMat F1,1O

13、: Mat F1,2U: Mat F1,3V: Mat F1,4G: Mat F1,5H: Mat F1,6P: Mat F1,7R: Mat F1,8Q18.桥梁锥坡放样子程序（ZP）ZP（Z62（1-Y2/Z72） X：Z8 Z:Then L+XD:Else L-XD:Z8+YZ:Prog”XY”:Prog”JS”19显示子程序（XY）XYix 3: =：Locate 6,4, ：Locate 6,4,ZD：Locate 6,4,：Locate 6,4,20数据子程序（附后示例）-1程序名：X1（线路1坐标计算要素程序）If Z26615.555:Then 25900,11587.421,

14、1847.983, 101。0923.1”,715.555,11045, 11045, 0Mat F:If Z26915.555:Then 26615.555,11448.97,2550.016,101。0923.1”,300,11045,1800,1Mat F: Prog”F”-2程序名：X2（线路2坐标计算要素程序）If Z616.951:Then 316.951,11230.669,3213.086, 118。4228.42”,300,1800, 11045, 1Mat F:If Z4050:Then3089.766,9708.017,5530.185,123。2857.1”,300,-

15、44。3938”,2200,2Mat F:Prog”F”程序字母说明：O-线元起点桩号（交点桩号）；U-起点X坐标（交点X）；V-起点Y坐标（交点Y）；G-线元起点桩号切线方位角（交点前一交点至现交点方位角）; 线元长度（缓和曲线长度），线元起点曲率半径（偏角：值为正负，左偏为负，右偏为正），线元终点曲率半径（圆半径）,Q线元判别（以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0;交点法取值2）.说明括内为交点法子母代表意思。-1程序名：S1（线路1高程竖曲线要素子程序） Else Prog “S2”:If Z26157

16、.8:Then -200000R:157.8T:26000C:37.1G:0.01222I:If Z27421.915:Then 300000R:171.915T:27250C:32.65G:-0.00356I:If Z27889.029:Then 1000000R:134.029T:27755C:36.64G:0.0079I:LbI 0-2程序名：S2（线路2高程竖曲线要素子程序）If Z183.007:Then 1365R:20.475T:162.532C:46.1G:0.003I:If Z321.264:Then -1200R:38.732T:282.532C:50.175G:0.033

17、I:C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长（标段结尾或开头没有竖曲线的输0）；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I竖曲线前纵坡-1程序名：I1（线路1高程超高参数子程序）1.5K:2W:Then Goto L:Else Goto R:Then 0S:-0.02M:If Z26735.555:Then 120S:26615.555C:0.02N:If Z26795.555:Then 60S:26735.555C:0.02M:0.04N: If Z26735.555: Goto 0:-0.04N:If Z27436.951:-0.04M:LbI 0

18、 -2程序名：I2（线路2高程超高参数子程序）0.5K:1W:If Z100:-0.015M:If Z110:Then 10S:100C:-0.02N:If Z343.665: -0.02M: If Z100:IfEndIf Z375.665:字程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;S超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。-1程序名：G1（线路1路基标准半幅宽度参数子

19、程序）Else Prog “G2”: IfEndIf Z28110.727:Then ZC:17.25A:If Z28200.727:Then 28110.727C:21.25B:90S: Z27927.478:If Z28172:Then 27927.478C:27.031B:244.522S:-2程序名：G2（线路2路基标准半幅宽度参数子程序）If Z69.998:28.25A:If Z82.402:Then 69.998C:25.545B:12.404S: Z69.998:17.45A:If Z80.367:16.787B:10.369S:C宽度渐变段起点桩号（不是渐变段C=Z）；A宽度渐变段起点宽度; B宽度渐变段终点宽